Description | Hierarchy | Fields | Methods | Properties |
type TPanTool = class(TCustomInteractiveTool)
TPanTool
is used to move the view of the model.
function GetHint: string; override; |
|
procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; |
|
procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; |
|
procedure RightClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; |
function GetHint: string; override; |
|
Used to define Hint |
procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; |
|
|
procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; |
|
|
procedure RightClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; |
|
|