    Hello !   Welcome to Font Builder program !

    This program is a small utility, which makes easier setting different
    fonts in the dialog box. You can 'visualy' create font, and then paste
    appropiate source code into your program.


    Here's an example (written in Pascal OWL):

    type PMyDialog=^TMyDialog;
         TMyDialog=object(TDialog)
           font:HFont;                 { handle of font we want to create }
           procedure SetupWindow;virtual;
           destructor Done;virtual;
          end;
    procedure TMyDialog.SetupWindow;
    begin
     inherited SetupWindow;            { initialize dialog }
     font:=CreateFont(...);            { create font }
     { CreateFont function requires some parameters (to be exact: 14) - so
       it's hard to remember what does the n-th parameter do. And you have
       to recompile entire program to test every change in parameters in
       that function. With this program it is very simple. You just design
       font you want, then you press 'CreateFont' button - it will copy to
       clipboard following text:'CreateFont( correct_parameters );', then
       you may paste it into your program. Simple, isn't it? }
     SendDlgItemMsg(itemID,wm_SetFont,font,0);
     { send wm_SetFont message to itemID control in the dialog box to
       change its font }
    end;
    destructor TMyDialog.Done;
    begin
     DeleteObject(font); { delete font - we don't need it any more }
     inherited Done;
    end;


    Mikolaj Rydzewski
    rydzew@student.uci.agh.edu.pl


    Font Builder may be copied and distributed freely (including uploading
    it to bulletin boards), providing:

    1. No fee is charged and it is not part of a package for which a charge
       is made.

    2. The package is not modified in any way.