Class TBGRAOriginalEditor
Unit
Declaration
type TBGRAOriginalEditor = class(TObject)
Description
Graphical editor for an original
Hierarchy
- TObject
- TBGRAOriginalEditor
Overview
Fields
 |
FClickPointHandlers: TClickPointHandlers; |
|
FConsecutiveClickCount: integer; |
|
FCurHoverPoint: integer; |
|
FDoubleClickTime: TDateTime; |
|
FGridActive: boolean; |
|
FGridMatrix: TAffineMatrix; |
|
FGridMatrixInverse: TAffineMatrix; |
|
FHoverPointHandlers: THoverPointHandlers; |
|
FLastClickPos: TPointF; |
|
FLastClickTime: TDateTime; |
|
FMatrix: TAffineMatrix; |
|
FMatrixInverse: TAffineMatrix; |
|
FMovingRightButton: boolean; |
|
FPointCoordDelta: TPointF; |
|
FPointMoving: integer; |
|
FPoints: array of record
Origin, Coord: TPointF;
OnMove, OnAlternateMove: TOriginalMovePointEvent;
RightButton, Highlighted: boolean;
SnapToPoint: integer;
HitBox: TAffineBox;
end; |
|
FPointSize: single; |
|
FPointWasMoved: boolean; |
|
FPolylines: array of record
Coords: array of TPointF;
Closed: boolean;
Style: TBGRAOriginalPolylineStyle;
BackColor: TBGRAPixel;
end; |
|
FPrevMousePos: TPointF; |
|
FStartMoveHandlers: TStartMoveHandlers; |
Methods
 |
constructor Create; |
|
destructor Destroy; override; |
|
function AddArrow(const AOrigin, AEndCoord: TPointF; AOnMoveEnd: TOriginalMovePointEvent; ARightButton: boolean = false): integer; |
|
function AddFixedPoint(const ACoord: TPointF; ARightButton: boolean = false): integer; |
|
function AddPoint(const ACoord: TPointF; AOnMove: TOriginalMovePointEvent; ARightButton: boolean = false; ASnapToPoint: integer = -1): integer; |
|
function AddPolyline(const ACoords: array of TPointF; AClosed: boolean; AStyle: TBGRAOriginalPolylineStyle; ABackColor: TBGRAPixel): integer; overload; |
|
function AddPolyline(const ACoords: array of TPointF; AClosed: boolean; AStyle: TBGRAOriginalPolylineStyle): integer; overload; |
|
function GetPointAt(const ACoord: TPointF; ARightButton: boolean): integer; |
|
function GetRenderBounds(const ALayoutRect: TRect): TRect; virtual; |
|
function OriginalCoordToView(const AImageCoord: TPointF): TPointF; |
|
function Render(ADest: TBGRABitmap; const ALayoutRect: TRect): TRect; virtual; |
|
function SnapToGrid(const ACoord: TPointF; AIsViewCoord: boolean): TPointF; |
|
function ViewCoordToOriginal(const AViewCoord: TPointF): TPointF; |
|
function GetFixedShiftForButton(AShift: TShiftState; ARightDown: boolean): TShiftState; |
|
function GetMoveCursor(APointIndex: integer): TOriginalEditorCursor; virtual; |
|
function GetRenderArrowBounds(AOrigin, AEndCoord: TPointF): TRect; virtual; |
|
function GetRenderPointBounds(ACoord: TPointF; AHighlighted: boolean): TRect; virtual; |
|
function GetRenderPolygonBounds(ACoords: array of TPointF): TRect; |
|
function RenderArrow(ADest: TBGRABitmap; AOrigin, AEndCoord: TPointF): TRect; virtual; |
|
function RenderPoint(ADest: TBGRABitmap; ACoord: TPointF; AAlternateColor: boolean; AHighlighted: boolean): TRect; virtual; |
|
function RenderPolygon(ADest: TBGRABitmap; ACoords: array of TPointF; AClosed: boolean; AStyle: TBGRAOriginalPolylineStyle; ABackColor: TBGRAPixel): TRect; virtual; |
|
procedure AddClickPointHandler(AOnClickPoint: TOriginalClickPointEvent); |
|
procedure AddHoverPointHandler(AOnHoverPoint: TOriginalHoverPointEvent); |
|
procedure AddPointAlternateMove(AIndex: integer; AOnAlternateMove: TOriginalMovePointEvent); |
|
procedure AddStartMoveHandler(AOnStartMove: TOriginalStartMovePointEvent); |
|
procedure Clear; virtual; |
|
procedure KeyDown(Shift: TShiftState; Key: TSpecialKey; out AHandled: boolean); virtual; |
|
procedure KeyPress(UTF8Key: string; out AHandled: boolean); virtual; |
|
procedure KeyUp(Shift: TShiftState; Key: TSpecialKey; out AHandled: boolean); virtual; |
|
procedure MouseDown(RightButton: boolean; Shift: TShiftState; ViewX, ViewY: single; out ACursor: TOriginalEditorCursor; out AHandled: boolean); virtual; |
|
procedure MouseMove(Shift: TShiftState; ViewX, ViewY: single; out ACursor: TOriginalEditorCursor; out AHandled: boolean); virtual; |
|
procedure MouseUp(RightButton: boolean; Shift: TShiftState; ViewX, ViewY: single; out ACursor: TOriginalEditorCursor; out AHandled: boolean); virtual; |
|
procedure SetHitBox(AIndex: integer; AHitBox: TAffineBox); |
|
procedure SetGridActive(AValue: boolean); |
|
procedure SetGridMatrix(AValue: TAffineMatrix); |
|
procedure SetMatrix(AValue: TAffineMatrix); |
Properties
|
property ConsecutiveClickCount: integer read FConsecutiveClickCount; |
|
property Focused: boolean read FFocused write SetFocused; |
|
property GridActive: boolean read FGridActive write SetGridActive; |
|
property GridMatrix: TAffineMatrix read FGridMatrix write SetGridMatrix; |
|
property IsMovingPoint: boolean read GetIsMovingPoint; |
|
property Matrix: TAffineMatrix read FMatrix write SetMatrix; |
|
property OnFocusChanged: TNotifyEvent read FOnFocusChanged write FOnFocusChanged; |
|
property PointCoord[AIndex: integer]: TPointF read GetPointCoord; |
|
property PointCount: integer read GetPointCount; |
|
property PointHighlighted[AIndex: integer]: boolean read GetPointHighlighted write SetPointHighlighted; |
|
property PointSize: single read FPointSize write FPointSize; |
Description
Fields
|
FClickPointHandlers: TClickPointHandlers; |
|
This item has no description. | |
|
FConsecutiveClickCount: integer; |
|
This item has no description. | |
|
FCurHoverPoint: integer; |
|
This item has no description. | |
|
FDoubleClickTime: TDateTime; |
|
This item has no description. | |
|
FGridActive: boolean; |
|
grid matrix in original coord | |
|
FGridMatrix: TAffineMatrix; |
|
view matrix from original coord | |
|
FGridMatrixInverse: TAffineMatrix; |
|
view matrix from original coord | |
|
FHoverPointHandlers: THoverPointHandlers; |
|
This item has no description. | |
|
FLastClickPos: TPointF; |
|
This item has no description. | |
|
FLastClickTime: TDateTime; |
|
This item has no description. | |
|
FMatrix: TAffineMatrix; |
|
This item has no description. | |
|
FMatrixInverse: TAffineMatrix; |
|
This item has no description. | |
|
FMovingRightButton: boolean; |
|
This item has no description. | |
|
FPointCoordDelta: TPointF; |
|
This item has no description. | |
|
FPointMoving: integer; |
|
This item has no description. | |
|
FPoints: array of record
Origin, Coord: TPointF;
OnMove, OnAlternateMove: TOriginalMovePointEvent;
RightButton, Highlighted: boolean;
SnapToPoint: integer;
HitBox: TAffineBox;
end; |
|
This item has no description. | |
|
FPointSize: single; |
|
This item has no description. | |
|
FPointWasMoved: boolean; |
|
This item has no description. | |
|
FPolylines: array of record
Coords: array of TPointF;
Closed: boolean;
Style: TBGRAOriginalPolylineStyle;
BackColor: TBGRAPixel;
end; |
|
This item has no description. | |
|
FPrevMousePos: TPointF; |
|
This item has no description. | |
|
FStartMoveHandlers: TStartMoveHandlers; |
|
This item has no description. | |
Methods
|
constructor Create; |
|
This item has no description. | |
|
destructor Destroy; override; |
|
This item has no description. | |
|
function AddArrow(const AOrigin, AEndCoord: TPointF; AOnMoveEnd: TOriginalMovePointEvent; ARightButton: boolean = false): integer; |
|
This item has no description. | |
|
function AddFixedPoint(const ACoord: TPointF; ARightButton: boolean = false): integer; |
|
This item has no description. | |
|
function AddPoint(const ACoord: TPointF; AOnMove: TOriginalMovePointEvent; ARightButton: boolean = false; ASnapToPoint: integer = -1): integer; |
|
This item has no description. | |
|
function AddPolyline(const ACoords: array of TPointF; AClosed: boolean; AStyle: TBGRAOriginalPolylineStyle; ABackColor: TBGRAPixel): integer; overload; |
|
This item has no description. | |
|
function AddPolyline(const ACoords: array of TPointF; AClosed: boolean; AStyle: TBGRAOriginalPolylineStyle): integer; overload; |
|
This item has no description. | |
|
function GetPointAt(const ACoord: TPointF; ARightButton: boolean): integer; |
|
This item has no description. | |
|
function GetRenderBounds(const ALayoutRect: TRect): TRect; virtual; |
|
This item has no description. | |
|
function OriginalCoordToView(const AImageCoord: TPointF): TPointF; |
|
This item has no description. | |
|
function Render(ADest: TBGRABitmap; const ALayoutRect: TRect): TRect; virtual; |
|
This item has no description. | |
|
function SnapToGrid(const ACoord: TPointF; AIsViewCoord: boolean): TPointF; |
|
This item has no description. | |
|
function ViewCoordToOriginal(const AViewCoord: TPointF): TPointF; |
|
This item has no description. | |
|
function GetFixedShiftForButton(AShift: TShiftState; ARightDown: boolean): TShiftState; |
|
This item has no description. | |
|
function GetMoveCursor(APointIndex: integer): TOriginalEditorCursor; virtual; |
|
This item has no description. | |
|
function GetRenderArrowBounds(AOrigin, AEndCoord: TPointF): TRect; virtual; |
|
This item has no description. | |
|
function GetRenderPointBounds(ACoord: TPointF; AHighlighted: boolean): TRect; virtual; |
|
This item has no description. | |
|
function GetRenderPolygonBounds(ACoords: array of TPointF): TRect; |
|
This item has no description. | |
|
function RenderArrow(ADest: TBGRABitmap; AOrigin, AEndCoord: TPointF): TRect; virtual; |
|
This item has no description. | |
|
function RenderPoint(ADest: TBGRABitmap; ACoord: TPointF; AAlternateColor: boolean; AHighlighted: boolean): TRect; virtual; |
|
This item has no description. | |
|
function RenderPolygon(ADest: TBGRABitmap; ACoords: array of TPointF; AClosed: boolean; AStyle: TBGRAOriginalPolylineStyle; ABackColor: TBGRAPixel): TRect; virtual; |
|
This item has no description. | |
|
procedure AddClickPointHandler(AOnClickPoint: TOriginalClickPointEvent); |
|
This item has no description. | |
|
procedure AddHoverPointHandler(AOnHoverPoint: TOriginalHoverPointEvent); |
|
This item has no description. | |
|
procedure AddPointAlternateMove(AIndex: integer; AOnAlternateMove: TOriginalMovePointEvent); |
|
This item has no description. | |
|
procedure AddStartMoveHandler(AOnStartMove: TOriginalStartMovePointEvent); |
|
This item has no description. | |
|
procedure Clear; virtual; |
|
This item has no description. | |
|
procedure KeyDown(Shift: TShiftState; Key: TSpecialKey; out AHandled: boolean); virtual; |
|
This item has no description. | |
|
procedure KeyPress(UTF8Key: string; out AHandled: boolean); virtual; |
|
This item has no description. | |
|
procedure KeyUp(Shift: TShiftState; Key: TSpecialKey; out AHandled: boolean); virtual; |
|
This item has no description. | |
|
procedure MouseDown(RightButton: boolean; Shift: TShiftState; ViewX, ViewY: single; out ACursor: TOriginalEditorCursor; out AHandled: boolean); virtual; |
|
This item has no description. | |
|
procedure MouseMove(Shift: TShiftState; ViewX, ViewY: single; out ACursor: TOriginalEditorCursor; out AHandled: boolean); virtual; |
|
This item has no description. | |
|
procedure MouseUp(RightButton: boolean; Shift: TShiftState; ViewX, ViewY: single; out ACursor: TOriginalEditorCursor; out AHandled: boolean); virtual; |
|
This item has no description. | |
|
procedure SetHitBox(AIndex: integer; AHitBox: TAffineBox); |
|
This item has no description. | |
|
procedure SetGridActive(AValue: boolean); |
|
This item has no description. | |
|
procedure SetGridMatrix(AValue: TAffineMatrix); |
|
This item has no description. | |
|
procedure SetMatrix(AValue: TAffineMatrix); |
|
This item has no description. | |
Properties
|
property ConsecutiveClickCount: integer read FConsecutiveClickCount; |
|
This item has no description. | |
|
property Focused: boolean read FFocused write SetFocused; |
|
This item has no description. | |
|
property GridActive: boolean read FGridActive write SetGridActive; |
|
This item has no description. | |
|
property GridMatrix: TAffineMatrix read FGridMatrix write SetGridMatrix; |
|
This item has no description. | |
|
property IsMovingPoint: boolean read GetIsMovingPoint; |
|
This item has no description. | |
|
property Matrix: TAffineMatrix read FMatrix write SetMatrix; |
|
This item has no description. | |
|
property OnFocusChanged: TNotifyEvent read FOnFocusChanged write FOnFocusChanged; |
|
This item has no description. | |
|
property PointCoord[AIndex: integer]: TPointF read GetPointCoord; |
|
This item has no description. | |
|
property PointCount: integer read GetPointCount; |
|
This item has no description. | |
|
property PointHighlighted[AIndex: integer]: boolean read GetPointHighlighted write SetPointHighlighted; |
|
This item has no description. | |
|
property PointSize: single read FPointSize write FPointSize; |
|
This item has no description. | |