THMIBasicControl

type THMIBasicControl = class(TCustomControl,IHMIInterface)

protected

  FSecurityCode: UTF8String;

  FIsEnabled: Boolean;

  FIsEnabledBySecurity: Boolean;

  procedure SetHMITag(); virtual;

  function GetHMITag; virtual;

  function GetControlSecurityCode;

  procedure CanBeAccessed();

  procedure MakeUnsecure;

  procedure SetEnabled(); override;

  procedure SetSecurityCode();

  procedure DoMouseDown(); virtual;

  procedure DoMouseUp(); virtual;

  property SecurityCode: UTF8String; [rw]

  FBorderColor: TColor;

  FBodyColor: TColor;

  FUpdateShape: Boolean;

  FShouldRedraw: Boolean;

  FBorderWidth: Integer;

  FControlArea: TBGRABitmap;

  FUpdatingCount: Cardinal;

  FOldWidth: Integer;

  FOldHeight: Integer;

  function IsControlArea(); virtual;

  procedure ForwardMouseMessage(); virtual;

  procedure WMLButtonDown(); message;

  procedure WMRButtonDown(); message;

  procedure WMMButtonDown(); message;

  procedure WMXButtonDown(); message;

  procedure WMLButtonUp(); message;

  procedure WMRButtonUp(); message;

  procedure WMMButtonUp(); message;

  procedure WMXButtonUp(); message;

  procedure WMLButtonDBLCLK(); message;

  procedure WMRButtonDBLCLK(); message;

  procedure WMMButtonDBLCLK(); message;

  procedure WMXButtonDBLCLK(); message;

  procedure WMLButtonTripleCLK(); message;

  procedure WMRButtonTripleCLK(); message;

  procedure WMMButtonTripleCLK(); message;

  procedure WMXButtonTripleCLK(); message;

  procedure WMLButtonQuadCLK(); message;

  procedure WMRButtonQuadCLK(); message;

  procedure WMMButtonQuadCLK(); message;

  procedure WMXButtonQuadCLK(); message;

  procedure WMMouseMove(); message;

  function Cateto();

  function Degrees();

  function Hipotenusa();

  function Seno();

  function ControlArea(); virtual;

  procedure InvalidateDraw; virtual;

  procedure InvalidateShape; virtual;

  procedure DrawControl; virtual;

  procedure UpdateShape; virtual;

  procedure Paint; override;

  procedure Resize; override;

  procedure CMHitTest(); message;

  procedure CMDesignHitTest(); message;

  procedure SetParent(); override;

  procedure SetBodyColor(); virtual;

  procedure SetBorderColor(); virtual;

  procedure SetBorderWidth(); virtual;

  procedure Loaded; override;

  property BorderColor: TColor; [rw]

  property BorderWidth: Integer; [rw]

  property BodyColor: TColor; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Invalidate; override;

end;

THMIBasicControl

TObject,IHMIInterface