Class TfrmSpotEdit (unit SpotEdit)

Inherits from

TForm

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;



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;