| Class THSEditForm (unit WABD_HotSpotEditor) |
TForm
| Constructors |
| Functions |
procedure AddButClick(Sender: TObject);
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);
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;
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;