Class TfrmMain (unit JGColorButtonDemo)

Inherits from

TForm

Renamed from Demo1.pas 6/7/1998 Paul Rice

Constructors



Functions

procedure OnBrowseColor(Sender: TObject);


procedure OnBrowseFont(Sender: TObject);


procedure OnBrowsePicture(Sender: TObject);


procedure OnChangeAlignment(Sender: TObject);

Initialize the app

procedure OnChangeBevelSize(Sender: TObject);


procedure OnChangeBevelStyle(Sender: TObject);


procedure OnChangeCaption(Sender: TObject);


procedure OnChangeEnabled(Sender: TObject);


procedure OnChangeSpacing(Sender: TObject);


procedure OnChangeStyle(Sender: TObject);


procedure OnInitialize(Sender: TObject);


procedure OnMoveToCenter(Sender: TObject);


Properties

Events

Variables

btnColor : TButton;


btnColorButton : TColorButton;


btnFont : TButton;


btnPicture : TButton;


cbxAlignment : TComboBox;


cbxBevelStyle : TComboBox;


chkAutoSize : TCheckBox;


chkCenter : TCheckBox;


chkEnabled : TCheckBox;


chkShowFocus : TCheckBox;


chkStretch : TCheckBox;


dlgColor : TColorDialog;


dlgFont : TFontDialog;


dlgOpen : TOpenDialog;


gbxProperties : TGroupBox;


lblAlignment : TLabel;


lblBevelSize : TLabel;


lblBevelStyle : TLabel;


lblCaption : TLabel;


lblColor : TLabel;


lblFont : TLabel;


lblPicture : TLabel;


lblSpacing : TLabel;


pnlDisplay : TPanel;


spnBevelSize : TUpDown;


spnSpacing : TUpDown;


txtBevelSize : TEdit;


txtCaption : TEdit;


txtColor : TEdit;


txtFont : TEdit;


txtPicture : TEdit;


txtSpacing : TEdit;



Constructors


Functions


procedure OnBrowseColor(Sender: TObject);


procedure OnBrowseFont(Sender: TObject);


procedure OnBrowsePicture(Sender: TObject);


procedure OnChangeAlignment(Sender: TObject);

Initialize the app


procedure OnChangeBevelSize(Sender: TObject);


procedure OnChangeBevelStyle(Sender: TObject);


procedure OnChangeCaption(Sender: TObject);


procedure OnChangeEnabled(Sender: TObject);


procedure OnChangeSpacing(Sender: TObject);


procedure OnChangeStyle(Sender: TObject);


procedure OnInitialize(Sender: TObject);


procedure OnMoveToCenter(Sender: TObject);


Properties


Events


Variables


btnColor : TButton;


btnColorButton : TColorButton;


btnFont : TButton;


btnPicture : TButton;


cbxAlignment : TComboBox;


cbxBevelStyle : TComboBox;


chkAutoSize : TCheckBox;


chkCenter : TCheckBox;


chkEnabled : TCheckBox;


chkShowFocus : TCheckBox;


chkStretch : TCheckBox;


dlgColor : TColorDialog;


dlgFont : TFontDialog;


dlgOpen : TOpenDialog;


gbxProperties : TGroupBox;


lblAlignment : TLabel;


lblBevelSize : TLabel;


lblBevelStyle : TLabel;


lblCaption : TLabel;


lblColor : TLabel;


lblFont : TLabel;


lblPicture : TLabel;


lblSpacing : TLabel;


pnlDisplay : TPanel;


spnBevelSize : TUpDown;


spnSpacing : TUpDown;


txtBevelSize : TEdit;


txtCaption : TEdit;


txtColor : TEdit;


txtFont : TEdit;


txtPicture : TEdit;


txtSpacing : TEdit;