Class TWFontBank32 (unit UFontBank32)

Inherits from

TForm

Constructors



Functions

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


Properties

Events

Variables

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;



Constructors


Functions


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


Properties


Events


Variables


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;