Class TForm2 (unit Holfloat)

Inherits from

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);

ptMaxTrackSize.

Properties

Events

Variables

btnCapture : TButton;


BtnClose2 : TButton;


btnSize : TButton;


btnStopGo : TButton;


PaintBox2 : TPaintBox;


CurrPath : string;


SaveNumber : integer;

Private declarations


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