File: unit1.lfm

package info (click to toggle)
lazarus 2.0.0%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 214,460 kB
  • sloc: pascal: 1,862,622; xml: 265,709; cpp: 56,595; sh: 3,008; java: 609; makefile: 535; perl: 297; sql: 222; ansic: 137
file content (371 lines) | stat: -rw-r--r-- 6,763 bytes parent folder | download | duplicates (12)
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
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
object Form1: TForm1
  Left = 290
  Height = 300
  Top = 189
  Width = 400
  Caption = 'Form1'
  ClientHeight = 275
  ClientWidth = 400
  Menu = MainMenu1
  OnCreate = FormCreate
  LCLVersion = '0.9.25'
  object SynEdit1: TSynEdit
    Height = 275
    Width = 400
    Align = alClient
    Font.Height = 12
    Font.Name = 'courier'
    Font.Pitch = fpFixed
    ParentColor = False
    TabOrder = 0
    BookMarkOptions.OnChange = nil
    Gutter.CodeFoldingWidth = 14
    Keystrokes = <    
      item
        Command = 3
        ShortCut = 38
      end    
      item
        Command = 103
        ShortCut = 8230
      end    
      item
        Command = 211
        ShortCut = 16422
      end    
      item
        Command = 4
        ShortCut = 40
      end    
      item
        Command = 104
        ShortCut = 8232
      end    
      item
        Command = 212
        ShortCut = 16424
      end    
      item
        Command = 1
        ShortCut = 37
      end    
      item
        Command = 101
        ShortCut = 8229
      end    
      item
        Command = 5
        ShortCut = 16421
      end    
      item
        Command = 105
        ShortCut = 24613
      end    
      item
        Command = 2
        ShortCut = 39
      end    
      item
        Command = 102
        ShortCut = 8231
      end    
      item
        Command = 6
        ShortCut = 16423
      end    
      item
        Command = 106
        ShortCut = 24615
      end    
      item
        Command = 10
        ShortCut = 34
      end    
      item
        Command = 110
        ShortCut = 8226
      end    
      item
        Command = 14
        ShortCut = 16418
      end    
      item
        Command = 114
        ShortCut = 24610
      end    
      item
        Command = 9
        ShortCut = 33
      end    
      item
        Command = 109
        ShortCut = 8225
      end    
      item
        Command = 13
        ShortCut = 16417
      end    
      item
        Command = 113
        ShortCut = 24609
      end    
      item
        Command = 7
        ShortCut = 36
      end    
      item
        Command = 107
        ShortCut = 8228
      end    
      item
        Command = 15
        ShortCut = 16420
      end    
      item
        Command = 115
        ShortCut = 24612
      end    
      item
        Command = 8
        ShortCut = 35
      end    
      item
        Command = 108
        ShortCut = 8227
      end    
      item
        Command = 16
        ShortCut = 16419
      end    
      item
        Command = 116
        ShortCut = 24611
      end    
      item
        Command = 223
        ShortCut = 45
      end    
      item
        Command = 201
        ShortCut = 16429
      end    
      item
        Command = 604
        ShortCut = 8237
      end    
      item
        Command = 502
        ShortCut = 46
      end    
      item
        Command = 603
        ShortCut = 8238
      end    
      item
        Command = 501
        ShortCut = 8
      end    
      item
        Command = 501
        ShortCut = 8200
      end    
      item
        Command = 504
        ShortCut = 16392
      end    
      item
        Command = 601
        ShortCut = 32776
      end    
      item
        Command = 602
        ShortCut = 40968
      end    
      item
        Command = 509
        ShortCut = 13
      end    
      item
        Command = 199
        ShortCut = 16449
      end    
      item
        Command = 201
        ShortCut = 16451
      end    
      item
        Command = 610
        ShortCut = 24649
      end    
      item
        Command = 509
        ShortCut = 16461
      end    
      item
        Command = 510
        ShortCut = 16462
      end    
      item
        Command = 503
        ShortCut = 16468
      end    
      item
        Command = 611
        ShortCut = 24661
      end    
      item
        Command = 604
        ShortCut = 16470
      end    
      item
        Command = 603
        ShortCut = 16472
      end    
      item
        Command = 507
        ShortCut = 16473
      end    
      item
        Command = 506
        ShortCut = 24665
      end    
      item
        Command = 601
        ShortCut = 16474
      end    
      item
        Command = 602
        ShortCut = 24666
      end    
      item
        Command = 301
        ShortCut = 16432
      end    
      item
        Command = 302
        ShortCut = 16433
      end    
      item
        Command = 303
        ShortCut = 16434
      end    
      item
        Command = 304
        ShortCut = 16435
      end    
      item
        Command = 305
        ShortCut = 16436
      end    
      item
        Command = 306
        ShortCut = 16437
      end    
      item
        Command = 307
        ShortCut = 16438
      end    
      item
        Command = 308
        ShortCut = 16439
      end    
      item
        Command = 309
        ShortCut = 16440
      end    
      item
        Command = 310
        ShortCut = 16441
      end    
      item
        Command = 351
        ShortCut = 24624
      end    
      item
        Command = 352
        ShortCut = 24625
      end    
      item
        Command = 353
        ShortCut = 24626
      end    
      item
        Command = 354
        ShortCut = 24627
      end    
      item
        Command = 355
        ShortCut = 24628
      end    
      item
        Command = 356
        ShortCut = 24629
      end    
      item
        Command = 357
        ShortCut = 24630
      end    
      item
        Command = 358
        ShortCut = 24631
      end    
      item
        Command = 359
        ShortCut = 24632
      end    
      item
        Command = 360
        ShortCut = 24633
      end    
      item
        Command = 231
        ShortCut = 24654
      end    
      item
        Command = 232
        ShortCut = 24643
      end    
      item
        Command = 233
        ShortCut = 24652
      end    
      item
        Command = 612
        ShortCut = 9
      end    
      item
        Command = 613
        ShortCut = 8201
      end    
      item
        Command = 250
        ShortCut = 24642
      end>
    Lines.Strings = (
      'SynEdit1'
    )
    SelectedColor.OnChange = nil
  end
  object MainMenu1: TMainMenu
    left = 83
    top = 61
    object FileMenuItem: TMenuItem
      Caption = 'File'
      object OpenMenuItem: TMenuItem
        Caption = 'Open'
        OnClick = OpenMenuItemClick
      end
      object MenuItem2: TMenuItem
        Caption = '-'
      end
      object ExitMenuItem: TMenuItem
        Caption = 'Exit'
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
    left = 135
    top = 60
  end
end