| Class TfrmHSEdit (unit HSEdit) |
TForm
| Constructors |
| Functions |
procedure btnClearClick(Sender: TObject);
procedure btnDeleteSpotClick(Sender: TObject);
procedure btnEditSpotClick(Sender: TObject);
procedure btnLoadClick(Sender: TObject);
procedure btnMaskClick(Sender: TObject);
procedure btnNewSpotClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure lboxSpotsClick(Sender: TObject);
procedure lboxSpotsDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure lboxSpotsDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure lboxSpotsDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PaintBox1Paint(Sender: TObject);
function Edit(HotSpots:THotSpots;const S:String):boolean;Painting New Shape
procedure DrawSpot(ASpot:TSpot);
procedure FillLB;
procedure PaintSpot;
procedure UpdateButtons;| Properties |
| Events |
| Variables |
btnCancel : TButton;
btnClear : TButton;
btnDeleteSpot : TButton;
btnEditSpot : TButton;
btnLoad : TButton;
btnMask : TButton;
btnNewSpot : TButton;
btnOk : TButton;
btnSave : TButton;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
lboxSpots : TListBox;
OpenDialog1 : TOpenDialog;
PaintBox1 : TPaintBox;
SaveDialog1 : TSaveDialog;
ScrollBox1 : TScrollBox;
FDenominator : Integer;
FDrawingSpot : TSpot;
FGraphic : TGraphic;
FHotSpots : THotSpots;
FMaskedGraphic : TGraphic;
FNominator : Integer;
FPrivStr : string;
FSelectedSpot : TSpot;
FSize : TPoint;| Constructors |
| Functions |
procedure btnClearClick(Sender: TObject);
procedure btnDeleteSpotClick(Sender: TObject);
procedure btnEditSpotClick(Sender: TObject);
procedure btnLoadClick(Sender: TObject);
procedure btnMaskClick(Sender: TObject);
procedure btnNewSpotClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure lboxSpotsClick(Sender: TObject);
procedure lboxSpotsDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure lboxSpotsDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure lboxSpotsDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);DrawSpot(Spot);
procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PaintBox1Paint(Sender: TObject);
function Edit(HotSpots:THotSpots;const S:String):boolean;Public declarations
Painting New Shape
procedure DrawSpot(ASpot:TSpot);
procedure FillLB;
procedure PaintSpot;
procedure UpdateButtons;| Properties |
| Events |
| Variables |
btnCancel : TButton;
btnClear : TButton;
btnDeleteSpot : TButton;
btnEditSpot : TButton;
btnLoad : TButton;
btnMask : TButton;
btnNewSpot : TButton;
btnOk : TButton;
btnSave : TButton;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
lboxSpots : TListBox;
OpenDialog1 : TOpenDialog;
PaintBox1 : TPaintBox;
SaveDialog1 : TSaveDialog;
ScrollBox1 : TScrollBox;
FDenominator : Integer;
FDrawingSpot : TSpot;
FGraphic : TGraphic;Private declarations
FHotSpots : THotSpots;
FMaskedGraphic : TGraphic;
FNominator : Integer;
FPrivStr : string;
FSelectedSpot : TSpot;
FSize : TPoint;