home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D1 / FONTLIST.ZIP / demo.ZIP / Unit1.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1997-04-29  |  901 b   |  46 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   WinTypes, WinProcs, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls
  8.   {$IFDEF WIN32}
  9.   , fontlis2
  10.   {$ELSE}
  11.   , fontlis1
  12.   {$ENDIF}
  13.   ;
  14.  
  15. type
  16.   TForm1 = class(TForm)
  17.     FontListBox1: TFontListBox;
  18.     RadioGroup1: TRadioGroup;
  19.     procedure RadioGroup1Click(Sender: TObject);
  20.     procedure FontListBox1DblClick(Sender: TObject);
  21.   private
  22.     { Private declarations }
  23.   public
  24.     { Public declarations }
  25.   end;
  26.  
  27. var
  28.   Form1: TForm1;
  29.  
  30. implementation
  31.  
  32. {$R *.DFM}
  33.  
  34. procedure TForm1.RadioGroup1Click(Sender: TObject);
  35. begin
  36.      FontListBox1.FontType := TFontType(RadioGroup1.ItemIndex) ;
  37.      Caption := IntToStr(FontListBox1.Items.Count) + ' fonts available' ;
  38. end;
  39.  
  40. procedure TForm1.FontListBox1DblClick(Sender: TObject);
  41. begin
  42.      Font.Name := FontListBox1.SelectedFont ; 
  43. end;
  44.  
  45. end.
  46.