Class TfrmSpotEdit (unit SpotEdit) |
Inherits from
TForm
procedure edSpotIDKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
Show Active Selection
procedure FormDestroy(Sender: TObject);
Allocating memory for point arrays
procedure lboxPointsClick(Sender: TObject);
Mouse Messages
procedure PaintBoxMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PaintBoxMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure PaintBoxMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
ReleaseCapture;
procedure PaintBoxPaint(Sender: TObject);
procedure rgZoomClick(Sender: TObject);
procedure sbDeletePointClick(Sender: TObject);
procedure sbEditClick(Sender: TObject);
procedure sbPolylineClick(Sender: TObject);
Sync button States
function Edit(Graphic: TGraphic; Spot:TSpot): Boolean;
Public declarations Rescaling points for current Zoom-in ratio
procedure AddPoint(const APoint: TPoint);
procedure ClearAllPoints;
300%
procedure DeletePoint(Index: Integer);
procedure DrawEditLines;
function DtoI(const P: TPoint): TPoint;
procedure FillLB;
procedure GetPoints(ASpot: TSpot);
procedure HandleSBMessages(var Message: TMessage);
function ItoD(const P: TPoint): TPoint;
Scale routines; Scale conversion for coordinates
procedure NormalizePoints;
procedure PaintShape;
With Canvas
procedure ResortPoints;
procedure SetScale(Nominator, Denominator: Integer);
procedure SetSelectedPoint(Index: Integer);
FOldPoint := APoint;
procedure SetSpotKind(SpotKind: TSpotKind);
btnCancel : TButton;
btnOk : TButton;
chkboxEnabled : TCheckBox;
edSpotID : TEdit;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
lboxPoints : TListBox;
memHint : TMemo;
PaintBox : TPaintBox;
pnlShape : TPanel;
rgZoom : TRadioGroup;
sbDeletePoint : TSpeedButton;
sbEdit : TSpeedButton;
sbElipse : TSpeedButton;
sbPolyline : TSpeedButton;
sbRect : TSpeedButton;
ScrollBox1 : TScrollBox;
FDenominator : integer;
FDrawing : Boolean;
FDrawRect : TRect;
FGraphic : TGraphic;
Private declarations
FHiding : Boolean;
FNewSBProc : pointer ;
FNominator : integer;
FOldPoint : TPoint;
FOldSBProc : pointer;
FOutOfControl : Boolean;
FPoints : PPoints;
points that stores independed coordinates;
FPointsCount : Integer;
FSelectedKind : TSpotKind;
FSelectedPoint : Integer;
FZmdPoints : PPoints;
procedure edSpotIDKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
Show Active Selection
procedure FormDestroy(Sender: TObject);
Allocating memory for point arrays
procedure lboxPointsClick(Sender: TObject);
Mouse Messages
procedure PaintBoxMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PaintBoxMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure PaintBoxMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
ReleaseCapture;
procedure PaintBoxPaint(Sender: TObject);
procedure rgZoomClick(Sender: TObject);
procedure sbDeletePointClick(Sender: TObject);
procedure sbEditClick(Sender: TObject);
procedure sbPolylineClick(Sender: TObject);
Sync button States
function Edit(Graphic: TGraphic; Spot:TSpot): Boolean;
Public declarations
Rescaling points for current Zoom-in ratio
procedure AddPoint(const APoint: TPoint);
procedure ClearAllPoints;
300%
procedure DeletePoint(Index: Integer);
procedure DrawEditLines;
function DtoI(const P: TPoint): TPoint;
procedure FillLB;
procedure GetPoints(ASpot: TSpot);
procedure HandleSBMessages(var Message: TMessage);
function ItoD(const P: TPoint): TPoint;
Scale routines;
Scale conversion for coordinates
procedure NormalizePoints;
procedure PaintShape;
With Canvas
procedure ResortPoints;
procedure SetScale(Nominator, Denominator: Integer);
procedure SetSelectedPoint(Index: Integer);
FOldPoint := APoint;
procedure SetSpotKind(SpotKind: TSpotKind);
btnCancel : TButton;
btnOk : TButton;
chkboxEnabled : TCheckBox;
edSpotID : TEdit;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
lboxPoints : TListBox;
memHint : TMemo;
PaintBox : TPaintBox;
pnlShape : TPanel;
rgZoom : TRadioGroup;
sbDeletePoint : TSpeedButton;
sbEdit : TSpeedButton;
sbElipse : TSpeedButton;
sbPolyline : TSpeedButton;
sbRect : TSpeedButton;
ScrollBox1 : TScrollBox;
FDenominator : integer;
FDrawing : Boolean;
FDrawRect : TRect;
FGraphic : TGraphic;
Private declarations
FHiding : Boolean;
FNewSBProc : pointer ;
FNominator : integer;
FOldPoint : TPoint;
FOldSBProc : pointer;
FOutOfControl : Boolean;
FPoints : PPoints;
points that stores independed coordinates;
FPointsCount : Integer;
FSelectedKind : TSpotKind;
FSelectedPoint : Integer;
FZmdPoints : PPoints;