THMIButton

type THMIButton = class(TSpeedButton,IHMIInterface)

protected

  procedure CMButtonPressed(); message;

  procedure SetButtonState();

  procedure SetHMITag();

  function GetHMITag;

  function GetControlSecurityCode;

  procedure CanBeAccessed();

  procedure MakeUnsecure;

  procedure SetEnabled(); override;

  procedure SetOtherValues();

  procedure SetButtonType();

  function GetGroupIndex;

  function GetAllowAllUp;

  function GetDown;

  procedure MouseUp(); override;

  function GetCaption;

  procedure SetCaptionDown();

  procedure SetCaptionUp();

  procedure SetCaptionGrayed();

  function GetColor;

  procedure SetColorDown();

  procedure SetColorUp();

  procedure SetColorGrayed();

  procedure SetValueDown();

  procedure SetValueUp();

  procedure Loaded; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Click; override;

published

  property OtherValuesIs: TOtherValues; [rw]

  property ButtonType: TButtonType; [rw]

  property AfterGray: Boolean; [rw]

  property Caption: TCaption; [r]

  property CaptionDown: TCaption; [rw]

  property CaptionUp: TCaption; [rw]

  property CaptionGrayed: TCaption; [rw]

  property Color: TColor; [r]

  property ColorDown: TColor; [rw]

  property ColorUp: TColor; [rw]

  property ColorGrayed: TColor; [rw]

  property Enabled: Boolean; [rw]

  property PLCTag: TPLCTag; [rw]

  property ValueDown: Double; [rw]

  property ValueUp: Double; [rw]

  property Down: Boolean; [r]

  property GroupIndex: LongInt; [r]

  property AllowAllUp: Boolean; [r]

  property SecurityCode: UTF8String; [rw]

end;

THMIButton

TObject,IHMIInterface