home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / turbo5 / bgiexamp.arc / USRCHSZ.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-29  |  402 b   |  21 lines
  1. { Example for SetUserCharSize }
  2.  
  3. uses
  4.   Graph;
  5. var
  6.   Driver, Mode : Integer;
  7. begin
  8.   Driver := Detect;
  9.   InitGraph(Driver, Mode, '');
  10.   if GraphResult <> grOk then
  11.     Halt(1);
  12.   { Showoff }
  13.   SetTextStyle(TriplexFont, Horizdir, 4);
  14.   OutText('Norm');
  15.   SetUserCharSize(1, 3, 1, 2);
  16.   OutText('Short');
  17.   SetUserCharSize(3, 1, 1, 1);
  18.   OutText('Wide');
  19.   Readln;
  20.   CloseGraph;
  21. end.