Class TfrmQuickDirs (unit Quickdir)

Inherits from

TForm

Constructors



Functions

procedure BitBtn2Click(Sender: TObject);


procedure edtDescriptionChange(Sender: TObject);


procedure edtPathChange(Sender: TObject);

with

procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);

finally

procedure lstbDirectoriesClick(Sender: TObject);


procedure OKBtnClick(Sender: TObject);

with

procedure SpeedButton2Click(Sender: TObject);


procedure SpeedButton3Click(Sender: TObject);

with

procedure SaveQuickDirs;

with

procedure UpdateEditBoxes;


Properties

Events

Variables

Bevel1 : TBevel;


BitBtn2 : TBitBtn;


CancelBtn : TBitBtn;


edtDescription : TEdit;


edtPath : TEdit;


Label1 : TLabel;


Label2 : TLabel;


lstbDirectories : TListBox;


OKBtn : TBitBtn;


SpeedButton2 : TSpeedButton;


SpeedButton3 : TSpeedButton;


strlDirectories : TStringList;

Public declarations

Updating : Boolean;

Private declarations


Constructors


Functions


procedure BitBtn2Click(Sender: TObject);


procedure edtDescriptionChange(Sender: TObject);


procedure edtPathChange(Sender: TObject);

with


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);

finally


procedure lstbDirectoriesClick(Sender: TObject);


procedure OKBtnClick(Sender: TObject);

with


procedure SpeedButton2Click(Sender: TObject);


procedure SpeedButton3Click(Sender: TObject);

with


procedure SaveQuickDirs;

with


procedure UpdateEditBoxes;


Properties


Events


Variables


Bevel1 : TBevel;


BitBtn2 : TBitBtn;


CancelBtn : TBitBtn;


edtDescription : TEdit;


edtPath : TEdit;


Label1 : TLabel;


Label2 : TLabel;


lstbDirectories : TListBox;


OKBtn : TBitBtn;


SpeedButton2 : TSpeedButton;


SpeedButton3 : TSpeedButton;


strlDirectories : TStringList;

Public declarations


Updating : Boolean;

Private declarations