| Class TfrmSpotEdit (unit SpotEdit) |
TForm
| Constructors |
| Functions |
procedure edSpotIDKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure lboxPointsClick(Sender: TObject);
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);
procedure PaintBoxPaint(Sender: TObject);
procedure rgZoomClick(Sender: TObject);
procedure sbDeletePointClick(Sender: TObject);
procedure sbEditClick(Sender: TObject);
procedure sbPolylineClick(Sender: TObject);
function Edit(Graphic: TGraphic; Spot:TSpot): Boolean;Rescaling points for current Zoom-in ratio
procedure AddPoint(const APoint: TPoint);
procedure ClearAllPoints;
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 conversion for coordinates
procedure NormalizePoints;
procedure PaintShape;
procedure ResortPoints;
procedure SetScale(Nominator, Denominator: Integer);
procedure SetSelectedPoint(Index: Integer);
procedure SetSpotKind(SpotKind: TSpotKind);| Properties |
| Events |
| Variables |
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;
FHiding : Boolean;
FNewSBProc : pointer ;
FNominator : integer;
FOldPoint : TPoint;
FOldSBProc : pointer;
FOutOfControl : Boolean;
FPoints : PPoints;
FPointsCount : Integer;
FSelectedKind : TSpotKind;
FSelectedPoint : Integer;
FZmdPoints : PPoints;| Constructors |
| Functions |
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);| Properties |
| Events |
| Variables |
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;