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