Class TOCHButton (unit Ochbtn)

Inherits from

TCustomPanel

Constructors


constructor Create(AOwner:TComponent);

______________________________________________________________________________


Functions

procedure OCHButtonClick(Sender: TObject);

______________________________________________________________________________

procedure RedrawPanel;

______________________________________________________________________________

procedure SetButtonsHeight(const Value: integer);

______________________________________________________________________________

procedure SetButtonsSpacing(const Value: integer);

______________________________________________________________________________

procedure SetButtonsWidth(const Value: integer);

______________________________________________________________________________

procedure SetCancel(const Value: boolean);

______________________________________________________________________________

procedure SetDefault(const Value: TOCHDefault);

______________________________________________________________________________

procedure SetOrientation(const Value: TOCHOrientation);

______________________________________________________________________________

procedure SetTabStop(const Value: boolean);

______________________________________________________________________________

Properties

property Align :


property BevelOuter :


property ButtonsHeight : integer


property ButtonsSpacing : integer


property ButtonsWidth : integer


property Cancel : boolean


property Default : TOCHDefault


property Font :


property Orientation : TOCHOrientation


property ParentFont :


property TabStop : boolean


Events

event OnClick : TOCHEvent


Variables

BitBtnCancel : TBitBtn;


BitBtnHelp : TBitBtn;


BitBtnOK : TBitBtn;


FButtonsHeight : integer;


FButtonsSpacing : integer;


FButtonsWidth : integer;


FCancel : boolean;


FDefault : TOCHDefault;


FOnClick : TOCHEvent;


FOrientation : TOCHOrientation;


FTabStop : boolean;



Constructors


constructor Create(AOwner:TComponent);

______________________________________________________________________________


Functions


procedure OCHButtonClick(Sender: TObject);

______________________________________________________________________________


procedure RedrawPanel;

______________________________________________________________________________


procedure SetButtonsHeight(const Value: integer);

______________________________________________________________________________


procedure SetButtonsSpacing(const Value: integer);

______________________________________________________________________________


procedure SetButtonsWidth(const Value: integer);

______________________________________________________________________________


procedure SetCancel(const Value: boolean);

______________________________________________________________________________


procedure SetDefault(const Value: TOCHDefault);

______________________________________________________________________________


procedure SetOrientation(const Value: TOCHOrientation);

______________________________________________________________________________


procedure SetTabStop(const Value: boolean);

______________________________________________________________________________


Properties


property Align :


property BevelOuter :


property ButtonsHeight : integer


property ButtonsSpacing : integer


property ButtonsWidth : integer


property Cancel : boolean


property Default : TOCHDefault


property Font :


property Orientation : TOCHOrientation


property ParentFont :


property TabStop : boolean


Events


event OnClick : TOCHEvent


Variables


BitBtnCancel : TBitBtn;


BitBtnHelp : TBitBtn;


BitBtnOK : TBitBtn;


FButtonsHeight : integer;


FButtonsSpacing : integer;


FButtonsWidth : integer;


FCancel : boolean;


FDefault : TOCHDefault;


FOnClick : TOCHEvent;


FOrientation : TOCHOrientation;


FTabStop : boolean;