| Class TfrmMaskEdit (unit imskedit) |
TForm
| Constructors |
| Functions |
procedure cboxActionClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure PaintBox1Paint(Sender: TObject);
procedure PaintBoxMaskMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
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;
procedure DrawShape(DrawCanvas: TCanvas; const Offst: TPoint);
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;
FDenominator : Integer;
FDisplayOffset : TPoint;
FDragging : Boolean;
FDrawRect : TRect;
FInSpot : Boolean;
FInternalSpot : TSpot;
FMaskGraphic : TGraphic;
FMaskItem : TMaskItem;
FMaskKind : TMaskKind;
FNominator : Integer;
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;