Class TDDListBox (unit DDListBox)

Inherits from

TListBox

Constructors


Constructor Create( aOwner: TComponent );

Public declarations


Functions

procedure ChkUpdate;


procedure Click;

copy or move file from source ( once only

Procedure DblClick;


procedure DeletePict( Sender: TObject );


function DoIt( act : TAction; S : AnsiString ):Boolean;


procedure DragDrop( Source: TObject; X, Y: Integer);


procedure DragOver( Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);


function GetImage : TImage;


procedure InitialFF;


Function MakePopUpMenu : TPopUpMenu ;


procedure MouseDown( Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove( Shift: TShiftState; X, Y: Integer);


procedure ReadDirectory( s : string );


procedure Rename( Sender: TObject );


Procedure SetDirectory( s : string );


procedure SetFFAction( act : TAction );


procedure SetFFpFrom( s : Ansistring );


procedure SetFFpTo( s : Ansistring );


procedure SetImage( image : TImage );

Protected declarations

'NviewLib.


procedure SortIt( Sender: TObject );

Delete file

procedure ToggleShowJPG( Sender: TObject );


procedure ZoomIn( Sender: TObject );


procedure ShowPicture( i : integer );


Properties

property Action : TAction


property Directory : string

Published declarations

property Image : TImage


property ShowJPG : Boolean


Events

event OnDragDrop :


event OnDragOver :


event OnMouseDown :


Variables

FAction : TAction;


FactPHeight : integer;


FactPWidth : integer;


FDirectory : String;

Private declarations

FF : TShFileOpStruct;


FImage : TImage;


FImageHeight : integer;


FImageLeft : integer;


FImageTop : integer;


FImageWidth : integer;


FItemNo : integer;


FPopUpMenu : TPopUpMenu;


FShowJPG : Boolean;



Constructors


Constructor Create( aOwner: TComponent );

Public declarations


Functions


procedure ChkUpdate;


procedure Click;

copy or move file from source ( once only


Procedure DblClick;


procedure DeletePict( Sender: TObject );


function DoIt( act : TAction; S : AnsiString ):Boolean;


procedure DragDrop( Source: TObject; X, Y: Integer);


procedure DragOver( Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);


function GetImage : TImage;


procedure InitialFF;


Function MakePopUpMenu : TPopUpMenu ;


procedure MouseDown( Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove( Shift: TShiftState; X, Y: Integer);


procedure ReadDirectory( s : string );


procedure Rename( Sender: TObject );


Procedure SetDirectory( s : string );


procedure SetFFAction( act : TAction );


procedure SetFFpFrom( s : Ansistring );


procedure SetFFpTo( s : Ansistring );


procedure SetImage( image : TImage );

Protected declarations

'NviewLib.dll' supports .JIF .BMP .DIB .RLE .TGA and .PCX too. Amend this section as appropriate...


procedure SortIt( Sender: TObject );

Delete file


procedure ToggleShowJPG( Sender: TObject );


procedure ZoomIn( Sender: TObject );


procedure ShowPicture( i : integer );


Properties


property Action : TAction


property Directory : string

Published declarations


property Image : TImage


property ShowJPG : Boolean


Events


event OnDragDrop :


event OnDragOver :


event OnMouseDown :


Variables


FAction : TAction;


FactPHeight : integer;


FactPWidth : integer;


FDirectory : String;

Private declarations


FF : TShFileOpStruct;


FImage : TImage;


FImageHeight : integer;


FImageLeft : integer;


FImageTop : integer;


FImageWidth : integer;


FItemNo : integer;


FPopUpMenu : TPopUpMenu;


FShowJPG : Boolean;