File: mainunit.lfm

package info (click to toggle)
lazarus 0.9.28.2-12
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 93,096 kB
  • ctags: 89,312
  • sloc: pascal: 820,189; xml: 202,194; makefile: 110,323; sh: 2,460; perl: 395; sql: 174; ansic: 133
file content (199 lines) | stat: -rw-r--r-- 3,839 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
object frmMain: TfrmMain
  Left = 33
  Height = 440
  Top = 116
  Width = 714
  HorzScrollBar.Page = 713
  VertScrollBar.Page = 439
  ActiveControl = lbFamily
  Caption = 'frmMain'
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  ShowHint = True
  object Label3: TLabel
    Left = 548
    Height = 13
    Top = 257
    Width = 29
    Caption = 'Filtro'
    Color = clNone
    ParentColor = False
  end
  object Label4: TLabel
    Left = 216
    Height = 13
    Top = 16
    Width = 73
    Caption = 'Face font list'
    Color = clNone
    ParentColor = False
  end
  object Label5: TLabel
    Left = 424
    Height = 13
    Top = 11
    Width = 35
    Caption = 'Styles'
    Color = clNone
    ParentColor = False
  end
  object Sizes: TLabel
    Left = 648
    Height = 13
    Top = 11
    Width = 31
    Caption = 'Sizes'
    Color = clNone
    ParentColor = False
  end
  object lblCharset: TLabel
    Left = 424
    Height = 13
    Top = 176
    Width = 57
    Caption = 'lblCharset'
    Color = clNone
    ParentColor = False
  end
  object Label6: TLabel
    Left = 11
    Height = 13
    Top = 16
    Width = 29
    Caption = 'Filter'
    Color = clNone
    ParentColor = False
  end
  object lbFamily: TListBox
    Left = 216
    Height = 272
    Top = 32
    Width = 200
    OnClick = lbFamilyClick
    TabOrder = 0
    TopIndex = -1
  end
  object cbCharset: TComboBox
    Left = 8
    Height = 21
    Top = 37
    Width = 194
    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
    MaxLength = 0
    TabOrder = 1
    Text = 'ANSI_CHARSET'
  end
  object Button2: TButton
    Left = 8
    Height = 25
    Top = 96
    Width = 75
    BorderSpacing.InnerBorder = 4
    Caption = 'apply filter'
    OnClick = Button2Click
    TabOrder = 2
  end
  object lbStyles: TListBox
    Left = 424
    Height = 128
    Top = 32
    Width = 208
    OnClick = lbStylesClick
    TabOrder = 3
    TopIndex = -1
  end
  object lbSizes: TListBox
    Left = 640
    Height = 272
    Top = 32
    Width = 56
    OnClick = lbSizesClick
    TabOrder = 4
    TopIndex = -1
  end
  object lbCharset: TListBox
    Left = 424
    Height = 112
    Top = 192
    Width = 208
    OnClick = lbCharsetClick
    TabOrder = 5
    TopIndex = -1
  end
  object cbPitch: TComboBox
    Left = 8
    Height = 21
    Top = 61
    Width = 194
    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
    ItemIndex = 0
    Items.Strings = (
      'DEFAULT_PITCH'
      'FIXED_PITCH'
      'VARIABLE_PITCH'
      'MONO_FONT'
    )
    MaxLength = 0
    TabOrder = 6
    Text = 'DEFAULT_PITCH'
  end
  object BtnFontDlg: TButton
    Left = 56
    Height = 40
    Top = 368
    Width = 152
    BorderSpacing.InnerBorder = 4
    Caption = 'Font Dlg'
    OnClick = BtnFontDlgClick
    TabOrder = 7
  end
  object chkStrike: TCheckBox
    Left = 591
    Height = 20
    Top = 312
    Width = 72
    Caption = 'Strikeout'
    TabOrder = 8
  end
  object chkUnderLine: TCheckBox
    Left = 592
    Height = 20
    Top = 336
    Width = 81
    Caption = 'UnderLine'
    TabOrder = 9
  end
  object Button1: TButton
    Left = 56
    Height = 41
    Top = 312
    Width = 153
    BorderSpacing.InnerBorder = 4
    Caption = 'Reset Sample Text'
    OnClick = Button1Click
    TabOrder = 10
  end
  object grid: TStringGrid
    Left = 216
    Height = 120
    Top = 312
    Width = 368
    AutoFillColumns = True
    ColCount = 1
    DefaultRowHeight = 17
    FixedColor = clBtnFace
    FixedCols = 0
    FixedRows = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
    RowCount = 5
    ScrollBars = ssAutoBoth
    TabOrder = 11
    TabStop = True
  end
  object FontDialog1: TFontDialog
    Title = 'Select a font'
    left = 312
    top = 384
  end
end