Class TOCHButton (unit Ochbtn) |
Inherits from
TCustomPanel
constructor Create(AOwner:TComponent);
- ______________________________________________________________________________
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);
______________________________________________________________________________
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
event OnClick : TOCHEvent
BitBtnCancel : TBitBtn;
BitBtnHelp : TBitBtn;
BitBtnOK : TBitBtn;
FButtonsHeight : integer;
FButtonsSpacing : integer;
FButtonsWidth : integer;
FCancel : boolean;
FDefault : TOCHDefault;
FOnClick : TOCHEvent;
FOrientation : TOCHOrientation;
FTabStop : boolean;
constructor Create(AOwner:TComponent);
______________________________________________________________________________
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);
______________________________________________________________________________
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
event OnClick : TOCHEvent
BitBtnCancel : TBitBtn;
BitBtnHelp : TBitBtn;
BitBtnOK : TBitBtn;
FButtonsHeight : integer;
FButtonsSpacing : integer;
FButtonsWidth : integer;
FCancel : boolean;
FDefault : TOCHDefault;
FOnClick : TOCHEvent;
FOrientation : TOCHOrientation;
FTabStop : boolean;