Class TfrmHallSel (unit HallSel) |
Inherits from
TForm
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
list of pointers {remove flickering during resizing
procedure HotImage1GetHintText(Sender: TObject; Spot: TSpot;
var Text: String);
just demonstration of OnGetHintText event handler
procedure HotImage1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure HotImage1Paint(Sender: TObject);
procedure ScrollBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ScrollBox1Resize(Sender: TObject);
procedure AddSelection(ASPot:TSpot);
procedure CancelSelection;
procedure DrawSelection(ASpot:TSpot);
procedure for drawing selection
procedure LoadData;
list of currently selected spotsremove all selection
procedure SetSelection(ASpot:TSpot);
inverted drawing
Button1 : TButton;
Button2 : TButton;
HotImage1 : THotImage;
Label1 : TLabel;
Panel1 : TPanel;
ScrollBox1 : TScrollBox;
FSpots : TList;
Private declarations
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
list of pointers {remove flickering during resizing
procedure HotImage1GetHintText(Sender: TObject; Spot: TSpot;
var Text: String);
just demonstration of OnGetHintText event handler
procedure HotImage1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure HotImage1Paint(Sender: TObject);
procedure ScrollBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ScrollBox1Resize(Sender: TObject);
procedure AddSelection(ASPot:TSpot);
procedure CancelSelection;
procedure DrawSelection(ASpot:TSpot);
procedure for drawing selection
procedure LoadData;
list of currently selected spots
remove all selection
procedure SetSelection(ASpot:TSpot);
inverted drawing
Button1 : TButton;
Button2 : TButton;
HotImage1 : THotImage;
Label1 : TLabel;
Panel1 : TPanel;
ScrollBox1 : TScrollBox;
FSpots : TList;
Private declarations