Unit 'hmi_polyline' Package
[Overview][Types][Classes][Index] [#pl_pascalscada]

THMIPolyline

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

Declaration

Source position: hmi_polyline.pas line 39

type THMIPolyline = class(THMIBasicControl)

protected

  FPointCoordinates: TPointCollection;

  

  FDesignDrawing: Boolean;

  

  FCtrlOnLastMouseMove: Boolean;

  

  FPointInfo: AnsiString;

  

  FPointInfoWidth: Integer;

  

  FOldAlign: TAlign;

  

  procedure SetBorderWidth(); override;

  

  procedure SetLineColor(); virtual;

  

  procedure DoLineColorChange; virtual;

  

  procedure DrawControl; override;

  

  procedure BeginDrawPolyline; virtual;

  

  procedure BeginEmptyPolyline; virtual;

  

  procedure EndDrawPolyline; virtual;

  

  procedure OptimizeDraw; virtual;

  

  procedure OptimizeDrawAfterFinish; virtual;

  

  procedure MouseDown(); override;

  

  procedure MouseMove(); override;

  

  procedure CMDesignHitTest(); message;

  

public

  constructor Create(); override;

  

  destructor Destroy; override;

  

published

  property LineColor: TColor; [rw]

  

  property LineWidth: Integer; [rw]

  

  property PenStyle: TPenStyle; [rw]

  

  property PointCoordinates: TPointCollection; [rw]

  

  property Visible;

  

end;

Inheritance

THMIPolyline

  

|

THMIBasicControl

  

|

TObject,IHMIInterface



CT Web help

CodeTyphon Studio