pascalSCADA OPM: hmi_draw_basiccontrol: Class THMIBasicControl

Pascal SCADA OPM

previous page next page

Class THMIBasicControl

Description
Hierarchy
Fields
Methods
Properties

Unit

hmi_draw_basiccontrol

Declaration

type THMIBasicControl = class(TCustomControl, IHMIInterface)

Description

THMIBasicControl

Hierarchy

  • TCustomControl
  • THMIBasicControl

Overview

Fields

Protected FSecurityCode:UTF8String;
Protected FIsEnabled:Boolean;
Protected FIsEnabledBySecurity:Boolean;
Protected FBorderColor:TColor;
Protected FBodyColor: TColor;
Protected FUpdateShape:Boolean;
Protected FShouldRedraw:Boolean;
Protected FBorderWidth:Integer;
Protected FControlArea:TBGRABitmap;
Protected FUpdatingCount:Cardinal;
Protected FOldWidth:Integer;
Protected FOldHeight:Integer;

Methods

Protected procedure SetHMITag(t:TPLCTag); virtual;
Protected function GetHMITag:TPLCTag; virtual;
Protected function GetControlSecurityCode:UTF8String;
Protected procedure CanBeAccessed(a:Boolean);
Protected procedure MakeUnsecure;
Protected procedure SetSecurityCode(sc: UTF8String);
Protected function Cateto(p0, p1: Integer): Integer;
Protected function Degrees(x0, x1, y0, y1: Integer): Double;
Protected function Hipotenusa(x0, x1, y0, y1: Integer): Double;
Protected function Seno(x0, x1, y0, y1: Integer): Double;
Protected function ControlArea(pixel: TBGRAPixel): Boolean; virtual;
Protected procedure InvalidateDraw; virtual;
Protected procedure InvalidateShape; virtual;
Protected procedure DrawControl; virtual;
Protected procedure UpdateShape; virtual;
Protected procedure Paint; override;
Protected procedure Resize; override;
Protected procedure CMHitTest(var Message: TCMHittest) ; message CM_HITTEST;
Protected procedure SetParent(NewParent: TWinControl); override;
Protected procedure SetBodyColor(AValue: TColor); virtual;
Protected procedure SetBorderColor(AValue: TColor); virtual;
Protected procedure SetBorderWidth(AValue: Integer); virtual;
Protected procedure Loaded; override;
Public constructor Create(AOwner: TComponent); override;
Public destructor Destroy; override;

Properties

Protected property SecurityCode: UTF8String read FSecurityCode write SetSecurityCode;
Protected property BorderColor: TColor read FBorderColor write SetBorderColor default clBlack;
Protected property BorderWidth: Integer read FBorderWidth write SetBorderWidth default 1;
Protected property BodyColor: TColor read FBodyColor write SetBodyColor default clSilver;

Description

Fields

Protected FSecurityCode:UTF8String;
 
Protected FIsEnabled:Boolean;
 
Protected FIsEnabledBySecurity:Boolean;
 
Protected FBorderColor:TColor;
 
Protected FBodyColor: TColor;
 
Protected FUpdateShape:Boolean;
 
Protected FShouldRedraw:Boolean;
 
Protected FBorderWidth:Integer;
 
Protected FControlArea:TBGRABitmap;
 
Protected FUpdatingCount:Cardinal;
 
Protected FOldWidth:Integer;
 
Protected FOldHeight:Integer;
 

Methods

Protected procedure SetHMITag(t:TPLCTag); virtual;

:

See also
IHMIInterface.SetHMITag
Protected function GetHMITag:TPLCTag; virtual;

seta um tag :

See also
IHMIInterface.GetHMITag
Protected function GetControlSecurityCode:UTF8String;

:

See also
IHMIInterface.GetControlSecurityCode
Protected procedure CanBeAccessed(a:Boolean);

:

See also
IHMIInterface.CanBeAccessed
Protected procedure MakeUnsecure;

:

See also
IHMIInterface.MakeUnsecure
Protected procedure SetSecurityCode(sc: UTF8String);
 
Protected function Cateto(p0, p1: Integer): Integer;
 
Protected function Degrees(x0, x1, y0, y1: Integer): Double;
 
Protected function Hipotenusa(x0, x1, y0, y1: Integer): Double;
 
Protected function Seno(x0, x1, y0, y1: Integer): Double;
 
Protected function ControlArea(pixel: TBGRAPixel): Boolean; virtual;
 
Protected procedure InvalidateDraw; virtual;
 
Protected procedure InvalidateShape; virtual;
 
Protected procedure DrawControl; virtual;
 
Protected procedure UpdateShape; virtual;
 
Protected procedure Paint; override;
 
Protected procedure Resize; override;
 
Protected procedure CMHitTest(var Message: TCMHittest) ; message CM_HITTEST;
 
Protected procedure SetParent(NewParent: TWinControl); override;
 
Protected procedure SetBodyColor(AValue: TColor); virtual;
 
Protected procedure SetBorderColor(AValue: TColor); virtual;
 
Protected procedure SetBorderWidth(AValue: Integer); virtual;
 
Protected procedure Loaded; override;
 
Public constructor Create(AOwner: TComponent); override;
 
Public destructor Destroy; override;
 

Properties

Protected property SecurityCode: UTF8String read FSecurityCode write SetSecurityCode;

: Security code that allows access to control.

Protected property BorderColor: TColor read FBorderColor write SetBorderColor default clBlack;
 
Protected property BorderWidth: Integer read FBorderWidth write SetBorderWidth default 1;
 
Protected property BodyColor: TColor read FBodyColor write SetBodyColor default clSilver;
 
Generated by PasDoc 0.14.0.
previous page start next page