Class TWFontBank32 (unit UFontBank32) |
Inherits from
TForm
procedure About1Click(Sender: TObject);
---->>>> ~~~~~~~~~~~~~~~~~~~ Form Events ~~~~~~~~~~~~~~~~ Finish ~~~~~~~~~~~~~~~~~~~ Form Popup Menu(s) ~~~~~~~~~~~~~~~~ Start #### About1
procedure bitExitClick(Sender: TObject);
---->>>> #### bitExit -> OnClick
procedure bitPrinterClick(Sender: TObject);
---->>>> ~~~~~~~~~~~~~~~~~~~ Form Popup Menu(s) ~~~~~~~~~~~~~~~~ Finish ~~~~~~~~~~~~~~~~~~~ Form Objects ~~~~~~~~~~~~~~~~ Start #### bitPrinter -> OnClick
procedure bitScreenClick(Sender: TObject);
---->>>> #### bitScreen -> OnClick
procedure cmbColorChange(Sender: TObject);
---->>>> #### cmbColor -> OnChange
procedure ediFontKeyPress(Sender: TObject; var Key: Char);
---->>>> #### ediFont -> OnKeyPress
procedure Exit1Click(Sender: TObject);
---->>>> #### Exit1
procedure FormCreate(Sender: TObject);
---->>>> ~~~~~~~~~~~~~~~~~~~ User Defined Procs ~~~~~~~~~~~~~~~~ Finish ~~~~~~~~~~~~~~~~~~~ Form Events ~~~~~~~~~~~~~~~~ Start ~~~~ OnCreate
procedure FormHide(Sender: TObject);
~~~~ OnHide
procedure FormResize(Sender: TObject);
~~~~ OnResize
procedure Hide1Click(Sender: TObject);
---->>>> #### Hide1
procedure lstFontListClick(Sender: TObject);
---->>>> #### lstFontList -> OnClick
procedure Maximize1Click(Sender: TObject);
---->>>> #### Maximize1
procedure pagFontsChange(Sender: TObject);
---->>>> #### pagFonts -> OnChange
procedure radStyleClick(Sender: TObject);
---->>>> #### radStyle -> OnClick
procedure sedSpinChange(Sender: TObject);
---->>>> #### sedSpin -> OnChange
procedure Information;
Public declarations ~~~~ Information ~~~~ ~~~~ Used to do the slavery job
procedure WMGetMinMaxInfo(var MSG: TMessage);
Private declarations ~~~~~~~~~~~~~~~~~~~ User Defined Procs ~~~~~~~~~~~~~~~~ Start ~~~~ ~~~~ WMGetMinMaxInfo ~~~~ ~~~~ Using the following procedure the form minimum ans maimum size can ~~~~ be set/Controled
About1 : TMenuItem;
bitExit : TBitBtn;
bitPrinter : TBitBtn;
bitScreen : TBitBtn;
cmbColor : TComboBox;
ediFont : TEdit;
Exit1 : TMenuItem;
Hide1 : TMenuItem;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
lstFontList : TListBox;
Maximize1 : TMenuItem;
memAbout : TMemo;
memFont : TMemo;
N1 : TMenuItem;
N2 : TMenuItem;
pagFonts : TPageControl;
panBackAbout : THMPanel;
panBackAttrib : THMPanel;
panBackList : THMPanel;
panList : THMPanel;
panMemo : THMPanel;
panMemoAttrib : THMPanel;
panSample : THMPanel;
popFontBank32 : TPopupMenu;
radStyle : TRadioGroup;
sedSpin : TSpinEdit;
sheAbout : TTabSheet;
sheAttribute : TTabSheet;
sheFontList : TTabSheet;
procedure About1Click(Sender: TObject);
---->>>> ~~~~~~~~~~~~~~~~~~~ Form Events ~~~~~~~~~~~~~~~~ Finish ~~~~~~~~~~~~~~~~~~~ Form Popup Menu(s) ~~~~~~~~~~~~~~~~ Start #### About1
procedure bitExitClick(Sender: TObject);
---->>>> #### bitExit -> OnClick
procedure bitPrinterClick(Sender: TObject);
---->>>> ~~~~~~~~~~~~~~~~~~~ Form Popup Menu(s) ~~~~~~~~~~~~~~~~ Finish ~~~~~~~~~~~~~~~~~~~ Form Objects ~~~~~~~~~~~~~~~~ Start #### bitPrinter -> OnClick
procedure bitScreenClick(Sender: TObject);
---->>>> #### bitScreen -> OnClick
procedure cmbColorChange(Sender: TObject);
---->>>> #### cmbColor -> OnChange
procedure ediFontKeyPress(Sender: TObject; var Key: Char);
---->>>> #### ediFont -> OnKeyPress
procedure Exit1Click(Sender: TObject);
---->>>> #### Exit1
procedure FormCreate(Sender: TObject);
---->>>> ~~~~~~~~~~~~~~~~~~~ User Defined Procs ~~~~~~~~~~~~~~~~ Finish ~~~~~~~~~~~~~~~~~~~ Form Events ~~~~~~~~~~~~~~~~ Start ~~~~ OnCreate
procedure FormHide(Sender: TObject);
~~~~ OnHide
procedure FormResize(Sender: TObject);
~~~~ OnResize
procedure Hide1Click(Sender: TObject);
---->>>> #### Hide1
procedure lstFontListClick(Sender: TObject);
---->>>> #### lstFontList -> OnClick
procedure Maximize1Click(Sender: TObject);
---->>>> #### Maximize1
procedure pagFontsChange(Sender: TObject);
---->>>> #### pagFonts -> OnChange
procedure radStyleClick(Sender: TObject);
---->>>> #### radStyle -> OnClick
procedure sedSpinChange(Sender: TObject);
---->>>> #### sedSpin -> OnChange
procedure Information;
Public declarations
~~~~ Information ~~~~ ~~~~ Used to do the slavery job
procedure WMGetMinMaxInfo(var MSG: TMessage);
Private declarations
~~~~~~~~~~~~~~~~~~~ User Defined Procs ~~~~~~~~~~~~~~~~ Start ~~~~ ~~~~ WMGetMinMaxInfo ~~~~ ~~~~ Using the following procedure the form minimum ans maimum size can ~~~~ be set/Controled
About1 : TMenuItem;
bitExit : TBitBtn;
bitPrinter : TBitBtn;
bitScreen : TBitBtn;
cmbColor : TComboBox;
ediFont : TEdit;
Exit1 : TMenuItem;
Hide1 : TMenuItem;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
lstFontList : TListBox;
Maximize1 : TMenuItem;
memAbout : TMemo;
memFont : TMemo;
N1 : TMenuItem;
N2 : TMenuItem;
pagFonts : TPageControl;
panBackAbout : THMPanel;
panBackAttrib : THMPanel;
panBackList : THMPanel;
panList : THMPanel;
panMemo : THMPanel;
panMemoAttrib : THMPanel;
panSample : THMPanel;
popFontBank32 : TPopupMenu;
radStyle : TRadioGroup;
sedSpin : TSpinEdit;
sheAbout : TTabSheet;
sheAttribute : TTabSheet;
sheFontList : TTabSheet;