Class THMIBasicControl

Unit

hmi_draw_basiccontrol

Declaration

type THMIBasicControl = class(TCustomControl, IHMIInterface)

Description

THMIBasicControl

Hierarchy

• TCustomControl
• THMIBasicControl

Overview

Fields

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

Methods

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

Properties

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

Description

Fields

	FSecurityCode:UTF8String;

	FIsEnabled:Boolean;

	FIsEnabledBySecurity:Boolean;

	FBorderColor:TColor;

	FBodyColor: TColor;

	FUpdateShape:Boolean;

	FShouldRedraw:Boolean;

	FBorderWidth:Integer;

	FControlArea:TBGRABitmap;

	FUpdatingCount:Cardinal;

	FOldWidth:Integer;

	FOldHeight:Integer;

Methods

	procedure SetHMITag(t:TPLCTag); virtual;
: See also IHMIInterface.SetHMITag

	function GetHMITag:TPLCTag; virtual;
seta um tag : See also IHMIInterface.GetHMITag

	function GetControlSecurityCode:UTF8String;
: See also IHMIInterface.GetControlSecurityCode

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

	procedure MakeUnsecure;
: See also IHMIInterface.MakeUnsecure

	procedure SetSecurityCode(sc: UTF8String);

	function Cateto(p0, p1: Integer): Integer;

	function Degrees(x0, x1, y0, y1: Integer): Double;

	function Hipotenusa(x0, x1, y0, y1: Integer): Double;

	function Seno(x0, x1, y0, y1: Integer): Double;

	function ControlArea(pixel: TBGRAPixel): Boolean; virtual;

	procedure InvalidateDraw; virtual;

	procedure InvalidateShape; virtual;

	procedure DrawControl; virtual;

	procedure UpdateShape; virtual;

	procedure Paint; override;

	procedure Resize; override;

	procedure CMHitTest(var Message: TCMHittest) ; message CM_HITTEST;

	procedure SetParent(NewParent: TWinControl); override;

	procedure SetBodyColor(AValue: TColor); virtual;

	procedure SetBorderColor(AValue: TColor); virtual;

	procedure SetBorderWidth(AValue: Integer); virtual;

	procedure Loaded; override;

	constructor Create(AOwner: TComponent); override;

	destructor Destroy; override;

Properties

	property SecurityCode: UTF8String read FSecurityCode write SetSecurityCode;
: Security code that allows access to control.

	property BorderColor: TColor read FBorderColor write SetBorderColor default clBlack;

	property BorderWidth: Integer read FBorderWidth write SetBorderWidth default 1;

	property BodyColor: TColor read FBodyColor write SetBodyColor default clSilver;

---

Generated by PasDoc 0.14.0.