home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi 4 Bible
/
Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso
/
source
/
FONTSAMP
/
MAIN.dfm
/
MAIN.txt
< prev
Wrap
Text File
|
1998-04-23
|
5KB
|
165 lines
object MainForm: TMainForm
Left = 216
Top = 168
ActiveControl = FontListBox
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Font Sampler'
ClientHeight = 263
ClientWidth = 346
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
Icon.Data = {<image000.ico>}
Menu = MainMenu1
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 16
object Bevel1: TBevel
Left = 216
Top = 8
Width = 17
Height = 241
Shape = bsLeftLine
end
object Label1: TLabel
Left = 16
Top = 8
Width = 96
Height = 16
Caption = 'Installed fonts:'
end
object FontListBox: TListBox
Left = 16
Top = 24
Width = 185
Height = 212
IntegralHeight = True
ItemHeight = 16
MultiSelect = True
Sorted = True
TabOrder = 3
end
object SelectAllBitBtn: TBitBtn
Left = 240
Top = 48
Width = 89
Height = 33
Caption = '&Select all'
TabOrder = 0
OnClick = SelectAllBitBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333FFF33FFFFF33333300033000
00333337773377777333333330333300033333337FF33777F333333330733300
0333333377FFF777F33333333700000073333333777777773333333333033000
3333333337FF777F333333333307300033333333377F777F3333333333703007
33333333377F7773333333333330000333333333337777F33333333333300003
33333333337777F3333333333337007333333333337777333333333333330033
3333333333377333333333333333033333333333333733333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object PrintBitBtn: TBitBtn
Left = 240
Top = 128
Width = 89
Height = 33
Caption = '&Print...'
TabOrder = 1
OnClick = PrintBitBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object CloseBitBtn: TBitBtn
Left = 240
Top = 216
Width = 89
Height = 33
TabOrder = 2
Kind = bkClose
end
object PreviewBitBtn: TBitBtn
Left = 240
Top = 88
Width = 89
Height = 33
Caption = 'Pre&view'
TabOrder = 4
OnClick = PreviewBitBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
0000333377777777777733330FFFFFFFFFF033337F3FFF3F3FF733330F000F0F
00F033337F777373773733330FFFFFFFFFF033337F3FF3FF3FF733330F00F00F
00F033337F773773773733330FFFFFFFFFF033337FF3333FF3F7333300FFFF00
F0F03333773FF377F7373330FB00F0F0FFF0333733773737F3F7330FB0BF0FB0
F0F0337337337337373730FBFBF0FB0FFFF037F333373373333730BFBF0FB0FF
FFF037F3337337333FF700FBFBFB0FFF000077F333337FF37777E0BFBFB000FF
0FF077FF3337773F7F37EE0BFB0BFB0F0F03777FF3733F737F73EEE0BFBF00FF
00337777FFFF77FF7733EEEE0000000003337777777777777333}
NumGlyphs = 2
end
object MainMenu1: TMainMenu
Left = 40
Top = 48
object File1: TMenuItem
Caption = '&File'
object PrintPreview1: TMenuItem
Caption = 'Print Pre&view'
OnClick = PreviewBitBtnClick
end
object PrintSetup1: TMenuItem
Caption = 'Print &Setup...'
OnClick = PrintSetup1Click
end
object Print1: TMenuItem
Caption = '&Print...'
OnClick = PrintBitBtnClick
end
object N1: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = 'E&xit'
OnClick = Exit1Click
end
end
object Help1: TMenuItem
Caption = '&Help'
object About1: TMenuItem
Caption = '&About...'
OnClick = About1Click
end
end
end
object PrintDialog1: TPrintDialog
Options = [poPageNums, poWarning]
Left = 120
Top = 48
end
object PrinterSetupDialog1: TPrinterSetupDialog
Left = 80
Top = 112
end
end