Class TfrmHSEdit (unit HSEdit)

Inherits from

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);

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;



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;