home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D1 / FONTLIST.ZIP / demo.ZIP / Unit1.dfm / Unit1.txt
Text File  |  1997-04-29  |  889b  |  41 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 104
  4.   Width = 368
  5.   Height = 170
  6.   Caption = 'TFontListBox demo - Copyright ∩┐╜ 1997 Greg Lief'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Position = poScreenCenter
  12.   ShowHint = True
  13.   PixelsPerInch = 96
  14.   TextHeight = 13
  15.   object FontListBox1: TFontListBox
  16.     Left = 147
  17.     Top = 19
  18.     Width = 193
  19.     Height = 105
  20.     Hint = 'Double-click to change form'#39's font'
  21.     SelectedFont = '<none>'
  22.     TabOrder = 0
  23.     OnDblClick = FontListBox1DblClick
  24.   end
  25.   object RadioGroup1: TRadioGroup
  26.     Left = 19
  27.     Top = 19
  28.     Width = 113
  29.     Height = 105
  30.     Hint = 'This changes the type of fonts shown in the listbox'
  31.     Caption = '&Font Type'
  32.     ItemIndex = 0
  33.     Items.Strings = (
  34.       '&Screen'
  35.       '&Printer'
  36.       '&Both')
  37.     TabOrder = 1
  38.     OnClick = RadioGroup1Click
  39.   end
  40. end
  41.