Class TfrmMaskEdit (unit imskedit)

Inherits from

TForm

Constructors



Functions

procedure cboxActionClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure PaintBox1Paint(Sender: TObject);

painting target shape

procedure PaintBoxMaskMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Target

procedure PaintBoxMaskMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure PaintBoxMaskMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure PaintBoxMaskPaint(Sender: TObject);


procedure rgZoomClick(Sender: TObject);


procedure sbClearActnClick(Sender: TObject);


procedure SpeedButton1Click(Sender: TObject);


function Edit(var MaskItem : TMaskItem; Spot : TSpot; MaskGraphic, TargetGraphic: TGraphic): Boolean;

Public declarations

procedure DrawShape(DrawCanvas: TCanvas; const Offst: TPoint);

convert region data to device coordinates

function DtoI(const Point: TPoint): TPoint;


procedure FocusShape;


procedure InitTargetShape(Graphic: TGraphic);


function ItoD(const Point: TPoint): TPoint;


procedure RecalcPoints;


procedure Rescale(Nominator, Denominator: integer);


procedure WriteOffsetString;


Properties

Events

Variables

btnCancel : TButton;


btnOk : TButton;


cboxAction : TComboBox;


gboxActions : TGroupBox;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


Label1 : TLabel;


PaintBox1 : TPaintBox;


PaintBoxMask : TPaintBox;


rgZoom : TRadioGroup;


sbClearActn : TSpeedButton;


ScrollBox1 : TScrollBox;


ScrollBox2 : TScrollBox;


SpeedButton1 : TSpeedButton;


FCleared : Boolean;


FDelta : TPoint;

delta between topleft of Spot on screen and where lbutton was down

FDenominator : Integer;


FDisplayOffset : TPoint;


FDragging : Boolean;


FDrawRect : TRect;


FInSpot : Boolean;


FInternalSpot : TSpot;


FMaskGraphic : TGraphic;

Private declarations

FMaskItem : TMaskItem;


FMaskKind : TMaskKind;


FNominator : Integer;

FPtBuffSize:cardinal;

FPointsCount : Integer;


FSpotTopLeft : TPoint;


FTagDenom : Integer;


FTagNom : Integer;


FTargetBmp : TBitmap;


FTargetGraphic : TGraphic;


FTargetSpot : TSpot;



Constructors


Functions


procedure cboxActionClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure PaintBox1Paint(Sender: TObject);

painting target shape


procedure PaintBoxMaskMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Target


procedure PaintBoxMaskMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure PaintBoxMaskMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure PaintBoxMaskPaint(Sender: TObject);


procedure rgZoomClick(Sender: TObject);


procedure sbClearActnClick(Sender: TObject);


procedure SpeedButton1Click(Sender: TObject);


function Edit(var MaskItem : TMaskItem; Spot : TSpot; MaskGraphic, TargetGraphic: TGraphic): Boolean;

Public declarations


procedure DrawShape(DrawCanvas: TCanvas; const Offst: TPoint);

convert region data to device coordinates


function DtoI(const Point: TPoint): TPoint;


procedure FocusShape;


procedure InitTargetShape(Graphic: TGraphic);


function ItoD(const Point: TPoint): TPoint;


procedure RecalcPoints;


procedure Rescale(Nominator, Denominator: integer);


procedure WriteOffsetString;


Properties


Events


Variables


btnCancel : TButton;


btnOk : TButton;


cboxAction : TComboBox;


gboxActions : TGroupBox;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


Label1 : TLabel;


PaintBox1 : TPaintBox;


PaintBoxMask : TPaintBox;


rgZoom : TRadioGroup;


sbClearActn : TSpeedButton;


ScrollBox1 : TScrollBox;


ScrollBox2 : TScrollBox;


SpeedButton1 : TSpeedButton;


FCleared : Boolean;


FDelta : TPoint;

delta between topleft of Spot on screen and where lbutton was down


FDenominator : Integer;


FDisplayOffset : TPoint;


FDragging : Boolean;


FDrawRect : TRect;


FInSpot : Boolean;


FInternalSpot : TSpot;


FMaskGraphic : TGraphic;

Private declarations


FMaskItem : TMaskItem;


FMaskKind : TMaskKind;


FNominator : Integer;

FPtBuffSize:cardinal;


FPointsCount : Integer;


FSpotTopLeft : TPoint;


FTagDenom : Integer;


FTagNom : Integer;


FTargetBmp : TBitmap;


FTargetGraphic : TGraphic;


FTargetSpot : TSpot;