| Class TButtonsForm (unit BtnWin) |
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);
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;