pascalSCADA OPM: hmi_polyline: Class THMIPolyline

Pascal SCADA OPM

previous page next page

Class THMIPolyline

Description
Hierarchy
Fields
Methods
Properties

Unit

hmi_polyline

Declaration

type THMIPolyline = class(THMIBasicControl)

Description

THMIPolyline

Hierarchy

Overview

Fields

Protected FPointCoordinates:TPointCollection;
Protected FDesignDrawing:Boolean;
Protected FCtrlOnLastMouseMove:Boolean;
Protected FPointInfo:AnsiString;
Protected FPointInfoWidth:Integer;
Protected FOldAlign:TAlign;

Methods

Protected procedure SetBorderWidth(AValue: Integer); override;
Protected procedure SetLineColor(AValue: TColor); virtual;
Protected procedure DoLineColorChange; virtual;
Protected procedure DrawControl; override;
Protected procedure BeginDrawPolyline; virtual;
Protected procedure BeginEmptyPolyline; virtual;
Protected procedure EndDrawPolyline; virtual;
Protected procedure OptimizeDraw; virtual;
Protected procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
Protected procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
Protected procedure CMDesignHitTest(var Message: TLMessage); message CM_DESIGNHITTEST;
Public constructor Create(AOwner: TComponent); override;
Public destructor Destroy; override;

Properties

Published property LineColor: TColor read FBorderColor write SetLineColor default clBlack;
Published property LineWidth: Integer read FBorderWidth write SetBorderWidth default 2;
Published property PointCoordinates: TPointCollection read FPointCoordinates write setPointCoordinates;
Published property Visible;

Description

Fields

Protected FPointCoordinates:TPointCollection;
 
Protected FDesignDrawing:Boolean;
 
Protected FCtrlOnLastMouseMove:Boolean;
 
Protected FPointInfo:AnsiString;
 
Protected FPointInfoWidth:Integer;
 
Protected FOldAlign:TAlign;
 

Methods

Protected procedure SetBorderWidth(AValue: Integer); override;
 
Protected procedure SetLineColor(AValue: TColor); virtual;
 
Protected procedure DoLineColorChange; virtual;
 
Protected procedure DrawControl; override;
 
Protected procedure BeginDrawPolyline; virtual;
 
Protected procedure BeginEmptyPolyline; virtual;
 
Protected procedure EndDrawPolyline; virtual;
 
Protected procedure OptimizeDraw; virtual;
 
Protected procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
 
Protected procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
 
Protected procedure CMDesignHitTest(var Message: TLMessage); message CM_DESIGNHITTEST;
 
Public constructor Create(AOwner: TComponent); override;
 
Public destructor Destroy; override;
 

Properties

Published property LineColor: TColor read FBorderColor write SetLineColor default clBlack;
 
Published property LineWidth: Integer read FBorderWidth write SetBorderWidth default 2;
 
Published property PointCoordinates: TPointCollection read FPointCoordinates write setPointCoordinates;
 
Published property Visible;
 
Generated by PasDoc 0.14.0.
previous page start next page