Class TButtonsForm (unit BtnWin)

Inherits from

TForm

Constructors



Functions

procedure ButtonSizeChange(Sender: TObject);


procedure ButtonsPerRowChange(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure SBtnExitClick(Sender: TObject);


procedure SBtnInfoClick(Sender: TObject);


procedure SBtnOptionsClick(Sender: TObject);


procedure ButtonsProc(Sender: TObject);

Private declarations

procedure ClearButtons;


procedure CreateButtons (FileListBox :TFileListBox);


procedure ResizeButtons;


Properties

Events

Variables

ButtonsScrollBox : TScrollBox;


Label1 : TLabel;


SBtnExit : TSpeedButton;


SBtnInfo : TSpeedButton;


SBtnOptions : TSpeedButton;


SpeedPanel : TPanel;


StatusDirLabel : TLabel;


StatusDirPanel : TPanel;


StatusFileLabel : TLabel;


StatusFilePanel : TPanel;


StatusPanel : TPanel;


BtnPerRow : integer;


BtnSize : integer;



Constructors


Functions


procedure ButtonSizeChange(Sender: TObject);


procedure ButtonsPerRowChange(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure SBtnExitClick(Sender: TObject);


procedure SBtnInfoClick(Sender: TObject);


procedure SBtnOptionsClick(Sender: TObject);


procedure ButtonsProc(Sender: TObject);

Private declarations


procedure ClearButtons;


procedure CreateButtons (FileListBox :TFileListBox);


procedure ResizeButtons;


Properties


Events


Variables


ButtonsScrollBox : TScrollBox;


Label1 : TLabel;


SBtnExit : TSpeedButton;


SBtnInfo : TSpeedButton;


SBtnOptions : TSpeedButton;


SpeedPanel : TPanel;


StatusDirLabel : TLabel;


StatusDirPanel : TPanel;


StatusFileLabel : TLabel;


StatusFilePanel : TPanel;


StatusPanel : TPanel;


BtnPerRow : integer;


BtnSize : integer;