| Class TForm2 (unit Holfloat) |
TForm
| Constructors |
| Functions |
procedure btnCaptureClick(Sender: TObject);
procedure BtnClose2Click(Sender: TObject);
procedure btnStopGoClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure FormResize(Sender: TObject);
procedure WMGetMinMaxInfo(var Message : TWMGetMinMaxInfo);
procedure WMNCHitTest(var M: TWMNCHitTest);| Properties |
| Events |
| Variables |
btnCapture : TButton;
BtnClose2 : TButton;
btnSize : TButton;
btnStopGo : TButton;
PaintBox2 : TPaintBox;
CurrPath : string;
SaveNumber : integer;| Constructors |
| Functions |
procedure btnCaptureClick(Sender: TObject);
procedure BtnClose2Click(Sender: TObject);
procedure btnStopGoClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure FormResize(Sender: TObject);
procedure WMGetMinMaxInfo(var Message : TWMGetMinMaxInfo);
procedure WMNCHitTest(var M: TWMNCHitTest);ptMaxTrackSize.X := 640; ptMaxTrackSize.Y := 480;
| Properties |
| Events |
| Variables |
btnCapture : TButton;
BtnClose2 : TButton;
btnSize : TButton;
btnStopGo : TButton;
PaintBox2 : TPaintBox;
CurrPath : string;
SaveNumber : integer;Private declarations