  __________________________________________________
 /                                                  \
|   FontNameSetter component for Delphi 1,2,3,4      |
|    by Sergey Lelyushkin (lel@korzh.com)            | 
|      ************  Freeware  ************          |
 \__________________________________________________/

Description:

FontNameSetter placed on the form allows you to set FontName property
- in all components;
- in user specified components;
- in all components with user specified types ;
FontNameSetter do nothing, if component has not property Font.
FontNameSetter works as in design-time as in run-time. 
Component is very useful in QuickReport forms.

Files:

\dcr16\FntStReg.dcr - 16 bit resource file for Delphi 1
\dcr32\FntStReg.dcr - 32 bit resource file for Delphi 2,3,4

FntStReg.pas - component registration file
FntNmSet.pas - TFontNameSetter component itself 
FntNmPrp.pas - additional unit contains property editors
DList.pas    - additional unit contains DListDialog(used by property editors) 
Readme.txt   - this file

 

Properties and Methods:

type
 TSettingType = (ForAll,ForTypes,ForNames);
  {
  ForAll - procedure SetFontName sets FontName property
    in all components placed in the some form with FontNameSetter
  ForNames procedure SetFontName sets FontName property
    only in user specified components placed in the some form with FontNameSetter;
  ForNames procedure SetFontName sets FontName property 
   only in components with user specified types placed in the some form with FontNameSetter;
  }

 TFontNameSetter = class(TComponent)
  [....]
  public
    constructor Create(AOwner: TComponent); override; // component constructor
    destructor Destroy; override; // component destructor
    procedure SetFontName; // procedure that sets FontName property according to SettingType property
  published
    property SettingType : TSettingType; // specifies how SetFontName must works
    property Names : TStrings; // user specified component names (actually if SettingType=ForNames)
    property Types : TStrings; // user specified component types (actually if SettingType=ForTypes)
    property FontName : TFontName; // Value of FontName that sets with SetFontName procedure
  end;

Work in run-time:
 Use procedure SetFontName to change components font names. 

Work in run design-time:
 Click right button on TFontNameSetter component and chose menu item "Set FontName"

Installation notes :

 Unzip file fntnmset.zip  : pkunzip -d fntnmset.zip
 Copy unzipped files and resource files into your components directory.
For Delphi 1 
a.  Chose menu item Options | Install Components 
b.  Add file FntStReg.pas and press OK for rebuilding library

For Delphi 2 
a.  Chose menu item Component | Install
b.  Add file FntStReg.pas and press OK for rebuilding library

For Delphi 3
a. Chose menu item Component | Install Component
b. Spesify Unit file name as FntStReg.pas
c. Chose Package file name
d. Press OK.


Your wishes and bug reports are welcome.

Sergey Lelyushkin 
http://lelsoft.hypermart.net/