Class THSEditForm (unit WABD_HotSpotEditor)

Inherits from

TForm

Constructors



Functions

procedure AddButClick(Sender: TObject);

so we can find it easily

procedure DeleteButClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure HotListClick(Sender: TObject);


procedure ShapeMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ShapeMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

Simulate a double click

procedure ShapeMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure HotSpotChange(Sender: TObject);


procedure Init;


Properties

Events

Variables

AddBut : TButton;


DeleteBut : TButton;


HotList : TListBox;


Image1 : TImage;


Panel1 : TPanel;


Panel2 : TPanel;


ScrollBox1 : TScrollBox;


Shape : TShape;


CurReg : integer;


CurShape : TShape;


Designer : TFormDesigner;

Public declarations

DetectChanges : boolean;


DownX : integer;


DownY : integer;


LastDown : integer;


Moving : boolean;


ParImage : TWABD_Base_Image;



Constructors


Functions


procedure AddButClick(Sender: TObject);

so we can find it easily


procedure DeleteButClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure HotListClick(Sender: TObject);


procedure ShapeMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ShapeMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

Simulate a double click


procedure ShapeMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure HotSpotChange(Sender: TObject);


procedure Init;


Properties


Events


Variables


AddBut : TButton;


DeleteBut : TButton;


HotList : TListBox;


Image1 : TImage;


Panel1 : TPanel;


Panel2 : TPanel;


ScrollBox1 : TScrollBox;


Shape : TShape;


CurReg : integer;


CurShape : TShape;


Designer : TFormDesigner;

Public declarations


DetectChanges : boolean;


DownX : integer;


DownY : integer;


LastDown : integer;


Moving : boolean;


ParImage : TWABD_Base_Image;