Class TFavOpenDialog (unit FavOpenDialog)

Inherits from

TOpenDialog

Constructors


constructor create(aowner:tcomponent);

Public-Deklarationen


Functions

destructor Destroy;


function Execute: Boolean;


procedure FavFromRegistry (Rootkey:HKEY;Key:string);


procedure FavToRegistry(Rootkey:HKEY;Key:string);


procedure DoClose;

Protected-Deklarationen

procedure DoFolderChange;


procedure DoShow;

Hide any hint windows left behind

function getstring(index:integer):string;


procedure setfassociated(value : tfavopendialog);


procedure SetFavorites(index:integer;value : tstrings);

Move preview area to right of static area

procedure setshowfullpath(val:boolean);

shell-icon holen

procedure setstring(index:integer;val:string);


procedure addfavorite(sr:tstrings;val:string;insert:boolean);


procedure fbuttonclick(sender:tobject);


procedure fcomboclick(sender:tobject);


procedure fcombodraw(Control: TWinControl; Index: Integer ;Rect: TRect; State: TOwnerDrawState);


function getfolderpath:string;

überprüfen, ob schon vorhanden

procedure notification(AComponent: TComponent; Operation: TOperation);


Properties

property Associated : tfavopendialog


property ButtonHint : string


property ComboHint : string


property Favorites : tstrings


property LabelCaption : string


property MaxCount : integer

Published-Deklarationen

property SetInitDirFrom1st : boolean


property ShowFullPath : boolean


Events

Variables

fassociated : tfavopendialog;


fbutton : tspeedbutton;


fcombo : tcombobox;


ficonheight : integer;


ficonwidth : integer;


flabel : tlabel;


flist : timagelist;


fmaxcount : integer;


fnofold : integer;


fovl : integer;


fpanel : tpanel;

Private-Deklarationen

fsetinitdir : boolean;


fshowfullpath : boolean;


fstrings : tstrings;



Constructors


constructor create(aowner:tcomponent);

Public-Deklarationen


Functions


destructor Destroy;


function Execute: Boolean;


procedure FavFromRegistry (Rootkey:HKEY;Key:string);


procedure FavToRegistry(Rootkey:HKEY;Key:string);


procedure DoClose;

Protected-Deklarationen


procedure DoFolderChange;


procedure DoShow;

Hide any hint windows left behind


function getstring(index:integer):string;


procedure setfassociated(value : tfavopendialog);


procedure SetFavorites(index:integer;value : tstrings);

Move preview area to right of static area


procedure setshowfullpath(val:boolean);

shell-icon holen


procedure setstring(index:integer;val:string);


procedure addfavorite(sr:tstrings;val:string;insert:boolean);


procedure fbuttonclick(sender:tobject);


procedure fcomboclick(sender:tobject);


procedure fcombodraw(Control: TWinControl; Index: Integer ;Rect: TRect; State: TOwnerDrawState);


function getfolderpath:string;

überprüfen, ob schon vorhanden


procedure notification(AComponent: TComponent; Operation: TOperation);


Properties


property Associated : tfavopendialog


property ButtonHint : string


property ComboHint : string


property Favorites : tstrings


property LabelCaption : string


property MaxCount : integer

Published-Deklarationen


property SetInitDirFrom1st : boolean


property ShowFullPath : boolean


Events


Variables


fassociated : tfavopendialog;


fbutton : tspeedbutton;


fcombo : tcombobox;


ficonheight : integer;


ficonwidth : integer;


flabel : tlabel;


flist : timagelist;


fmaxcount : integer;


fnofold : integer;


fovl : integer;


fpanel : tpanel;

Private-Deklarationen


fsetinitdir : boolean;


fshowfullpath : boolean;


fstrings : tstrings;