Class TFireGraphicControl
Unit
Declaration
type TFireGraphicControl = class(TControl)
Description
Hierarchy
- TControl
- TFireGraphicControl
Overview
Fields
FUpdateOnResize: Boolean; |
Methods
constructor Create(AOwner: TComponent); override; |
|
destructor Destroy; override; |
|
function DragDropState: TFireDragDropState; |
|
function GetDragDropObject: TFireDragDropObject; |
|
procedure UpdateLayout; |
|
procedure SetFocusGP(GraphicPrimitive: TFireGraphicPrimitive; Reason: Integer = 0); |
|
function GetFocusedGP: TFireGraphicPrimitive; |
|
procedure SetActiveGP(GraphicPrimitive: TFireGraphicPrimitive); |
|
function GetActiveGP: TFireGraphicPrimitive; |
|
procedure SetPressedGP(GraphicPrimitive: TFireGraphicPrimitive); |
|
function GetOverGP: TFireGraphicPrimitive; |
|
procedure setToolTip(const Tip: String); |
|
function GetPalette: TFirePalette; |
|
procedure SetPalette(const Palette: TFirePalette); |
|
procedure MouseOverUpdate(const Pos: TPoint; ForcePressGP: Boolean); |
|
procedure GeometryChanged; |
|
procedure MouseDoubleClickPressed(Button: TMouseButton; Shift: TShiftState; X, Y: Single); |
|
procedure SetNewScene(AScene: IScene); override; |
|
procedure StyleChanged; virtual; |
|
procedure StyleChangedHandler(const Sender: TObject; const Msg: TMessage); |
|
procedure Paint; override; |
|
procedure PaintChildren; override; |
|
function DoSetSize(const ASize: TControlSize; const NewPlatformDefault: Boolean; ANewWidth, ANewHeight: Single; var ALastWidth, ALastHeight: Single): Boolean; override; |
|
function ObjectAtPoint(P: TPointF): IControl; override; |
|
function CheckHitTest(const AHitTest: Boolean): Boolean; override; |
|
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Single); override; |
|
procedure MouseMove(Shift: TShiftState; X, Y: Single); override; |
|
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Single); override; |
|
procedure MouseClick(Button: TMouseButton; Shift: TShiftState; X, Y: Single); override; |
|
procedure MouseWheel(Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean); override; |
|
procedure KeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState); override; |
|
procedure KeyUp(var Key: Word; var KeyChar: WideChar; Shift: TShiftState); override; |
|
procedure DoEnter; override; |
|
procedure DoExit; override; |
|
procedure DoMouseEnter; override; |
|
procedure DoMouseLeave; override; |
|
procedure DragEnter(const Data: TDragObject; const P: TPointF); override; |
|
procedure DragOver(const Data: TDragObject; const P: TPointF; var Operation: TDragOperation); override; |
|
procedure DragDrop(const Data: TDragObject; const P: TPointF); override; |
|
procedure DragLeave; override; |
|
function ShowContextMenu(const ScreenPosition: TPointF): Boolean; override; |
|
procedure DialogKey(var Key: Word; Shift: TShiftState); override; |
|
procedure MoveDragDropObject(const Pos: TPoint; DragObject: TFireDragDropObject); virtual; |
|
procedure StopDragDrop; virtual; |
|
function CreateNativeDragDropObject(const Pos: TPoint): TFireNativeDragObject; virtual; |
|
function IsLocked: Boolean; virtual; |
|
procedure CheckPressedState(Sender: TObject); |
|
procedure Update(const R: TRect); |
|
procedure RealignRootGeometry; |
|
function GetScaleFactor: Single; |
|
function HitTestGP(const Point: TPoint): TFireGraphicPrimitive; |
|
function RootPrimitive: TFireGraphicPrimitive; |
|
procedure SetRoot(Root: TFireGraphicPrimitive); |
Properties
property PressedGP: TFireGraphicPrimitive read FPressedGP; |
|
property Font: TFont read FFont write SetFont; |
|
property Effects: TFireEffects read FEffects; |
|
property RootGP: TFireGraphicPrimitive read FRootGP; |
|
property ScaleFactor: Single read GetScaleFactor; |
Description
Fields
FUpdateOnResize: Boolean; |
|
Methods
constructor Create(AOwner: TComponent); override; |
|
destructor Destroy; override; |
|
function DragDropState: TFireDragDropState; |
|
function GetDragDropObject: TFireDragDropObject; |
|
procedure UpdateLayout; |
|
procedure SetFocusGP(GraphicPrimitive: TFireGraphicPrimitive; Reason: Integer = 0); |
|
function GetFocusedGP: TFireGraphicPrimitive; |
|
procedure SetActiveGP(GraphicPrimitive: TFireGraphicPrimitive); |
|
function GetActiveGP: TFireGraphicPrimitive; |
|
procedure SetPressedGP(GraphicPrimitive: TFireGraphicPrimitive); |
|
function GetOverGP: TFireGraphicPrimitive; |
|
procedure setToolTip(const Tip: String); |
|
function GetPalette: TFirePalette; |
|
procedure SetPalette(const Palette: TFirePalette); |
|
procedure MouseOverUpdate(const Pos: TPoint; ForcePressGP: Boolean); |
|
procedure GeometryChanged; |
|
procedure MouseDoubleClickPressed(Button: TMouseButton; Shift: TShiftState; X, Y: Single); |
|
procedure SetNewScene(AScene: IScene); override; |
|
procedure StyleChanged; virtual; |
|
procedure StyleChangedHandler(const Sender: TObject; const Msg: TMessage); |
|
procedure Paint; override; |
|
procedure PaintChildren; override; |
|
function DoSetSize(const ASize: TControlSize; const NewPlatformDefault: Boolean; ANewWidth, ANewHeight: Single; var ALastWidth, ALastHeight: Single): Boolean; override; |
|
function ObjectAtPoint(P: TPointF): IControl; override; |
|
function CheckHitTest(const AHitTest: Boolean): Boolean; override; |
|
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Single); override; |
|
procedure MouseMove(Shift: TShiftState; X, Y: Single); override; |
|
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Single); override; |
|
procedure MouseClick(Button: TMouseButton; Shift: TShiftState; X, Y: Single); override; |
|
procedure MouseWheel(Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean); override; |
|
procedure KeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState); override; |
|
procedure KeyUp(var Key: Word; var KeyChar: WideChar; Shift: TShiftState); override; |
|
procedure DoEnter; override; |
|
procedure DoExit; override; |
|
procedure DoMouseEnter; override; |
|
procedure DoMouseLeave; override; |
|
procedure DragEnter(const Data: TDragObject; const P: TPointF); override; |
|
procedure DragOver(const Data: TDragObject; const P: TPointF; var Operation: TDragOperation); override; |
|
procedure DragDrop(const Data: TDragObject; const P: TPointF); override; |
|
procedure DragLeave; override; |
|
function ShowContextMenu(const ScreenPosition: TPointF): Boolean; override; |
|
procedure DialogKey(var Key: Word; Shift: TShiftState); override; |
|
procedure MoveDragDropObject(const Pos: TPoint; DragObject: TFireDragDropObject); virtual; |
|
procedure StopDragDrop; virtual; |
|
function CreateNativeDragDropObject(const Pos: TPoint): TFireNativeDragObject; virtual; |
|
function IsLocked: Boolean; virtual; |
|
procedure CheckPressedState(Sender: TObject); |
|
procedure Update(const R: TRect); |
|
procedure RealignRootGeometry; |
|
function GetScaleFactor: Single; |
|
function HitTestGP(const Point: TPoint): TFireGraphicPrimitive; |
|
function RootPrimitive: TFireGraphicPrimitive; |
|
procedure SetRoot(Root: TFireGraphicPrimitive); |
|
Properties
property PressedGP: TFireGraphicPrimitive read FPressedGP; |
|
property Font: TFont read FFont write SetFont; |
|
property Effects: TFireEffects read FEffects; |
|
property RootGP: TFireGraphicPrimitive read FRootGP; |
|
property ScaleFactor: Single read GetScaleFactor; |
|
Generated by PasDoc 0.15.0.