Class THMIPolyline
Unit
Declaration
type THMIPolyline = class(THMIBasicControl)
Description
THMIPolyline
Hierarchy
- TCustomControl
- THMIBasicControl
- THMIPolyline
Overview
Fields
![]() |
FPointCoordinates:TPointCollection; |
![]() |
FDesignDrawing:Boolean; |
![]() |
FCtrlOnLastMouseMove:Boolean; |
![]() |
FPointInfo:AnsiString; |
![]() |
FPointInfoWidth:Integer; |
![]() |
FOldAlign:TAlign; |
Methods
![]() |
procedure SetBorderWidth(AValue: Integer); override; |
![]() |
procedure SetLineColor(AValue: TColor); virtual; |
![]() |
procedure DoLineColorChange; virtual; |
![]() |
procedure DrawControl; override; |
![]() |
procedure BeginDrawPolyline; virtual; |
![]() |
procedure BeginEmptyPolyline; virtual; |
![]() |
procedure EndDrawPolyline; virtual; |
![]() |
procedure OptimizeDraw; virtual; |
![]() |
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; |
![]() |
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override; |
![]() |
procedure CMDesignHitTest(var Message: TLMessage); message CM_DESIGNHITTEST; |
![]() |
constructor Create(AOwner: TComponent); override; |
![]() |
destructor Destroy; override; |
Properties
![]() |
property LineColor: TColor read FBorderColor write SetLineColor default clBlack; |
![]() |
property LineWidth: Integer read FBorderWidth write SetBorderWidth default 2; |
![]() |
property PointCoordinates: TPointCollection read FPointCoordinates write setPointCoordinates; |
![]() |
property Visible; |
Description
Fields
![]() |
FPointCoordinates:TPointCollection; |
![]() |
FDesignDrawing:Boolean; |
![]() |
FCtrlOnLastMouseMove:Boolean; |
![]() |
FPointInfo:AnsiString; |
![]() |
FPointInfoWidth:Integer; |
![]() |
FOldAlign:TAlign; |
Methods
![]() |
procedure SetBorderWidth(AValue: Integer); override; |
![]() |
procedure SetLineColor(AValue: TColor); virtual; |
![]() |
procedure DoLineColorChange; virtual; |
![]() |
procedure DrawControl; override; |
![]() |
procedure BeginDrawPolyline; virtual; |
![]() |
procedure BeginEmptyPolyline; virtual; |
![]() |
procedure EndDrawPolyline; virtual; |
![]() |
procedure OptimizeDraw; virtual; |
![]() |
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; |
![]() |
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override; |
![]() |
procedure CMDesignHitTest(var Message: TLMessage); message CM_DESIGNHITTEST; |
![]() |
constructor Create(AOwner: TComponent); override; |
![]() |
destructor Destroy; override; |
Properties
![]() |
property LineColor: TColor read FBorderColor write SetLineColor default clBlack; |
![]() |
property LineWidth: Integer read FBorderWidth write SetBorderWidth default 2; |
![]() |
property PointCoordinates: TPointCollection read FPointCoordinates write setPointCoordinates; |
![]() |
property Visible; |
Generated by PasDoc 0.14.0.