home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2000 November
/
Chip_2000-11_cd2.bin
/
ctenari
/
Majda
/
FontView
/
FontView.exe
/
0
/
RCDATA
/
TMAINFORM
/
TMAINFORM.txt
Wrap
Text File
|
2000-07-29
|
4KB
|
159 lines
object MainForm: TMainForm
Left = 218
Top = 88
ActiveControl = FontList
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'FontView'
ClientHeight = 406
ClientWidth = 272
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poDefault
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object FontCountLabel: TLabel
Left = 176
Top = 12
Width = 86
Height = 13
Alignment = taRightJustify
Caption = 'Po�et p�sem: XXX'
end
object UnderlineBtn: TSpeedButton
Left = 54
Top = 8
Width = 23
Height = 22
Hint = 'Podtr�en�'
AllowAllUp = True
GroupIndex = 3
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000CE0E0000D80E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDDDD000000000DDDDDDDDDDDDDDDDDDDDDDDDD00000DD
DDDDDDDD008D800DDDDDDDDD00DDD00DDDDDDDDD00DDD00DDDDDDDDD00DDD00D
DDDDDDDD00DDD00DDDDDDDDD00DDD00DDDDDDDDD00DDD00DDDDDDDD0000D0000
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD}
OnClick = FontPropsChanged
end
object ItalicBtn: TSpeedButton
Left = 31
Top = 8
Width = 23
Height = 22
Hint = 'Kurz�va'
AllowAllUp = True
GroupIndex = 2
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000CE0E0000D80E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD000000DDD
DDDDDDDDD008DDDDDDDDDDDDD800DDDDDDDDDDDDDD008DDDDDDDDDDDDD800DDD
DDDDDDDDDDD008DDDDDDDDDDDDD800DDDDDDDDDDDDDD008DDDDDDDDDDDD00000
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD}
OnClick = FontPropsChanged
end
object BoldBtn: TSpeedButton
Left = 8
Top = 8
Width = 23
Height = 22
Hint = 'Tu�n�'
AllowAllUp = True
GroupIndex = 1
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000CE0E0000D80E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD00000000D
DDDDDDDD000DD000DDDDDDDD000DD000DDDDDDDD000DD000DDDDDDDD0000000D
DDDDDDDD000DD000DDDDDDDD000DD000DDDDDDDD000DD000DDDDDDD00000000D
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD}
OnClick = FontPropsChanged
end
object FontList: TListBox
Left = 8
Top = 40
Width = 257
Height = 329
ItemHeight = 32
Style = lbOwnerDrawFixed
TabOrder = 0
OnClick = FontListClick
OnDrawItem = FontListDrawItem
end
object TestAreaBtn: TButton
Left = 152
Top = 376
Width = 115
Height = 25
Caption = '&Testovac� oblast >>'
TabOrder = 1
OnClick = TestArea
end
object TestMemo: TMemo
Left = 272
Top = 40
Width = 297
Height = 329
Lines.Strings = (
'Testovac� text')
ScrollBars = ssBoth
TabOrder = 2
end
object InfoBtn: TButton
Left = 88
Top = 376
Width = 59
Height = 25
Caption = '&Info...'
TabOrder = 3
OnClick = Info
end
object QuitBtn: TButton
Left = 8
Top = 376
Width = 75
Height = 25
Caption = '&Konec'
TabOrder = 4
OnClick = Quit
end
object SizeUpDown: TUpDown
Left = 136
Top = 8
Width = 15
Height = 21
Hint = 'Velikost p�sma'
Associate = SizeEdit
Min = 8
Max = 72
Position = 16
TabOrder = 5
Wrap = False
OnChanging = SizeUpDownChanging
end
object SizeEdit: TEdit
Left = 88
Top = 8
Width = 48
Height = 21
Hint = 'Velikost p�sma'
TabOrder = 6
Text = '16'
OnExit = FontPropsChanged
OnKeyUp = SizeEditKeyUp
end
end