123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310 |
- object Form1: TForm1
- Left = 281
- Height = 600
- Top = 416
- Width = 800
- ActiveControl = Panel1
- BorderStyle = bsSingle
- Caption = 'ZenFont 0.2.6(LCL)'
- ClientHeight = 600
- ClientWidth = 800
- Constraints.MinHeight = 600
- Constraints.MinWidth = 800
- OnActivate = FormActivate
- OnClose = FormClose
- OnResize = FormResize
- Position = poScreenCenter
- LCLVersion = '2.2.4.0'
- Visible = True
- object GroupBox1: TGroupBox
- Left = 0
- Height = 200
- Top = 400
- Width = 800
- Align = alBottom
- Caption = 'Parameters'
- ClientHeight = 176
- ClientWidth = 798
- TabOrder = 0
- object CheckBoxAntialiasing: TCheckBox
- Left = 10
- Height = 27
- Top = 95
- Width = 114
- Caption = 'Antialiasing'
- Checked = True
- OnChange = CheckBoxAntialiasingChange
- State = cbChecked
- TabOrder = 0
- end
- object CheckBoxPack: TCheckBox
- Left = 10
- Height = 27
- Top = 120
- Width = 62
- Caption = 'Pack'
- Checked = True
- OnChange = CheckBoxPackChange
- State = cbChecked
- TabOrder = 1
- end
- object LabelCurrentPage: TLabel
- Left = 10
- Height = 23
- Top = 55
- Width = 104
- Caption = 'Current Page:'
- ParentColor = False
- end
- object ComboBoxPageSize: TComboBox
- Left = 90
- Height = 35
- Top = 10
- Width = 70
- ItemHeight = 0
- ItemIndex = 1
- Items.Strings = (
- '128'
- '256'
- '512'
- '1024'
- '2048'
- )
- OnChange = ComboBoxPageSizeChange
- Style = csDropDownList
- TabOrder = 2
- Text = '256'
- end
- object LabelPageSize: TLabel
- Left = 10
- Height = 23
- Top = 15
- Width = 76
- Caption = 'Page Size:'
- ParentColor = False
- end
- object ButtonChooseFont: TButton
- Left = 10
- Height = 25
- Top = 150
- Width = 150
- Caption = 'Choose Font'
- OnClick = ButtonChooseFontClick
- TabOrder = 3
- end
- object ButtonSaveFont: TButton
- Left = 642
- Height = 25
- Top = 40
- Width = 150
- Anchors = [akTop, akRight]
- Caption = 'Save Font'
- OnClick = ButtonSaveFontClick
- TabOrder = 5
- end
- object ButtonExit: TButton
- Left = 642
- Height = 25
- Top = 150
- Width = 150
- Anchors = [akTop, akRight]
- Caption = 'Exit'
- OnClick = ButtonExitClick
- TabOrder = 6
- end
- object ButtonRebuildFont: TButton
- Left = 642
- Height = 25
- Top = 10
- Width = 150
- Anchors = [akTop, akRight]
- Caption = 'Rebuild Font'
- OnClick = ButtonRebuildFontClick
- TabOrder = 4
- end
- object GroupBox2: TGroupBox
- Left = 170
- Height = 70
- Top = 105
- Width = 462
- Anchors = [akTop, akLeft, akRight]
- Caption = 'Char Padding'
- ClientHeight = 46
- ClientWidth = 460
- TabOrder = 7
- object Label1: TLabel
- Left = 120
- Height = 23
- Top = 15
- Width = 32
- Caption = 'Top:'
- ParentColor = False
- end
- object Label2: TLabel
- Left = 10
- Height = 23
- Top = 15
- Width = 33
- Caption = 'Left:'
- ParentColor = False
- end
- object Label3: TLabel
- Left = 220
- Height = 23
- Top = 15
- Width = 44
- Caption = 'Right:'
- ParentColor = False
- end
- object Label4: TLabel
- Left = 340
- Height = 23
- Top = 15
- Width = 61
- Caption = 'Bottom:'
- ParentColor = False
- end
- object SpinTop: TSpinEdit
- Left = 160
- Height = 40
- Top = 0
- Width = 50
- OnChange = SpinTopChange
- TabOrder = 1
- Value = 2
- end
- object SpinLeft: TSpinEdit
- Left = 60
- Height = 40
- Top = 0
- Width = 50
- OnChange = SpinLeftChange
- TabOrder = 0
- Value = 2
- end
- object SpinRight: TSpinEdit
- Left = 280
- Height = 40
- Top = 0
- Width = 50
- OnChange = SpinRightChange
- TabOrder = 2
- Value = 2
- end
- object SpinBottom: TSpinEdit
- Left = 400
- Height = 40
- Top = 0
- Width = 50
- OnChange = SpinBottomChange
- TabOrder = 3
- Value = 2
- end
- end
- object SpinCurrentPage: TSpinEdit
- Left = 110
- Height = 40
- Top = 50
- Width = 50
- Enabled = False
- MaxValue = 1
- MinValue = 1
- OnChange = SpinCurrentPageChange
- TabOrder = 8
- Value = 1
- end
- object GroupBox3: TGroupBox
- Left = 295
- Height = 95
- Top = 0
- Width = 337
- Anchors = [akTop, akLeft, akRight]
- Caption = 'Chars'
- ClientHeight = 71
- ClientWidth = 335
- TabOrder = 9
- object ButtonDefaultSymbols: TButton
- Left = 11
- Height = 25
- Top = 45
- Width = 150
- Caption = 'Set default'
- OnClick = ButtonDefaultSymbolsClick
- TabOrder = 0
- end
- object ButtonImportSymbols: TButton
- Left = 174
- Height = 25
- Top = 45
- Width = 150
- Anchors = [akTop, akRight]
- Caption = 'Import from file'
- OnClick = ButtonImportSymbolsClick
- TabOrder = 1
- end
- object EditChars: TEdit
- Left = 11
- Height = 40
- Top = 0
- Width = 314
- Anchors = [akTop, akLeft, akRight]
- TabOrder = 2
- end
- end
- object GroupBox4: TGroupBox
- Left = 170
- Height = 95
- Top = 0
- Width = 120
- Caption = 'Test String'
- ClientHeight = 71
- ClientWidth = 118
- TabOrder = 10
- object EditTest: TEdit
- Left = 10
- Height = 40
- Top = 0
- Width = 95
- TabOrder = 0
- Text = 'Test'
- end
- end
- end
- object Panel1: TPanel
- Left = 0
- Height = 400
- Top = 0
- Width = 800
- Align = alClient
- Caption = 'Processing...'
- TabOrder = 1
- OnMouseDown = Panel1MouseDown
- OnMouseMove = Panel1MouseMove
- OnMouseUp = Panel1MouseUp
- end
- object SaveFontDialog: TSaveDialog
- Title = 'Save Font'
- Filter = 'Zen Font Info|*.zfi'
- Left = 130
- end
- object FontDialog: TFontDialog
- Title = 'Choose the Font'
- Font.Height = -13
- Font.Name = 'Sans'
- MinFontSize = 0
- MaxFontSize = 0
- Left = 230
- end
- object OpenDialog: TOpenDialog
- Title = 'Open text file'
- Filter = 'Any UTF-8 file|*.*'
- Left = 30
- end
- object Timer1: TTimer
- Enabled = False
- Interval = 16
- OnTimer = Timer1Timer
- Left = 32
- Top = 64
- end
- end
|