Class TfrmHallSel (unit HallSel)

Inherits from

TForm

Constructors



Functions

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

Properties

Events

Variables

Button1 : TButton;


Button2 : TButton;


HotImage1 : THotImage;


Label1 : TLabel;


Panel1 : TPanel;


ScrollBox1 : TScrollBox;


FSpots : TList;

Private declarations


Constructors


Functions


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


Properties


Events


Variables


Button1 : TButton;


Button2 : TButton;


HotImage1 : THotImage;


Label1 : TLabel;


Panel1 : TPanel;


ScrollBox1 : TScrollBox;


FSpots : TList;

Private declarations