PageRenderTime 19ms CodeModel.GetById 10ms app.highlight 6ms RepoModel.GetById 1ms app.codeStats 1ms

/components/datadict/frmgeneratedcode.lfm

http://github.com/graemeg/lazarus
Unknown | 653 lines | 653 code | 0 blank | 0 comment | 0 complexity | fe5d9c3cfd071a60d523bcd685430c00 MD5 | raw file
  1object CodeForm: TCodeForm
  2  Left = 350
  3  Height = 300
  4  Top = 194
  5  Width = 400
  6  ActiveControl = MCode
  7  Caption = 'Generated code'
  8  ClientHeight = 300
  9  ClientWidth = 400
 10  OnCreate = FormCreate
 11  LCLVersion = '0.9.27'
 12  object MCode: TSynMemo
 13    Cursor = crIBeam
 14    Left = 0
 15    Height = 256
 16    Top = 0
 17    Width = 400
 18    Align = alClient
 19    Font.Height = 14
 20    Font.Name = '-adobe-courier-medium-r-normal-*-*-*-*-*-*-*-iso10646-1'
 21    Font.Pitch = fpFixed
 22    Font.Quality = fqNonAntialiased
 23    ParentColor = False
 24    ParentFont = False
 25    TabOrder = 0
 26    BookMarkOptions.Xoffset = 17
 27    BookMarkOptions.OnChange = nil
 28    ExtraLineSpacing = 2
 29    Gutter.LeftOffset = 4
 30    Gutter.Width = 65
 31    Gutter.MouseActions = <    
 32      item
 33        Shift = []
 34        ShiftMask = []
 35        Button = mbLeft
 36        ClickCount = ccAny
 37        ClickDir = cdDown
 38        Command = 13
 39        MoveCaret = False
 40        Option = 0
 41        Priority = 0
 42      end    
 43      item
 44        Shift = []
 45        ShiftMask = []
 46        Button = mbRight
 47        ClickCount = ccSingle
 48        ClickDir = cdUp
 49        Command = 12
 50        MoveCaret = False
 51        Option = 0
 52        Priority = 0
 53      end>
 54    Highlighter = SynFreePascalSyn1
 55    Keystrokes = <    
 56      item
 57        Command = ecUp
 58        ShortCut = 38
 59      end    
 60      item
 61        Command = ecSelUp
 62        ShortCut = 8230
 63      end    
 64      item
 65        Command = ecScrollUp
 66        ShortCut = 16422
 67      end    
 68      item
 69        Command = ecDown
 70        ShortCut = 40
 71      end    
 72      item
 73        Command = ecSelDown
 74        ShortCut = 8232
 75      end    
 76      item
 77        Command = ecScrollDown
 78        ShortCut = 16424
 79      end    
 80      item
 81        Command = ecLeft
 82        ShortCut = 37
 83      end    
 84      item
 85        Command = ecSelLeft
 86        ShortCut = 8229
 87      end    
 88      item
 89        Command = ecWordLeft
 90        ShortCut = 16421
 91      end    
 92      item
 93        Command = ecSelWordLeft
 94        ShortCut = 24613
 95      end    
 96      item
 97        Command = ecRight
 98        ShortCut = 39
 99      end    
100      item
101        Command = ecSelRight
102        ShortCut = 8231
103      end    
104      item
105        Command = ecWordRight
106        ShortCut = 16423
107      end    
108      item
109        Command = ecSelWordRight
110        ShortCut = 24615
111      end    
112      item
113        Command = ecPageDown
114        ShortCut = 34
115      end    
116      item
117        Command = ecSelPageDown
118        ShortCut = 8226
119      end    
120      item
121        Command = ecPageBottom
122        ShortCut = 16418
123      end    
124      item
125        Command = ecSelPageBottom
126        ShortCut = 24610
127      end    
128      item
129        Command = ecPageUp
130        ShortCut = 33
131      end    
132      item
133        Command = ecSelPageUp
134        ShortCut = 8225
135      end    
136      item
137        Command = ecPageTop
138        ShortCut = 16417
139      end    
140      item
141        Command = ecSelPageTop
142        ShortCut = 24609
143      end    
144      item
145        Command = ecLineStart
146        ShortCut = 36
147      end    
148      item
149        Command = ecSelLineStart
150        ShortCut = 8228
151      end    
152      item
153        Command = ecEditorTop
154        ShortCut = 16420
155      end    
156      item
157        Command = ecSelEditorTop
158        ShortCut = 24612
159      end    
160      item
161        Command = ecLineEnd
162        ShortCut = 35
163      end    
164      item
165        Command = ecSelLineEnd
166        ShortCut = 8227
167      end    
168      item
169        Command = ecEditorBottom
170        ShortCut = 16419
171      end    
172      item
173        Command = ecSelEditorBottom
174        ShortCut = 24611
175      end    
176      item
177        Command = ecToggleMode
178        ShortCut = 45
179      end    
180      item
181        Command = ecCopy
182        ShortCut = 16429
183      end    
184      item
185        Command = ecPaste
186        ShortCut = 8237
187      end    
188      item
189        Command = ecDeleteChar
190        ShortCut = 46
191      end    
192      item
193        Command = ecCut
194        ShortCut = 8238
195      end    
196      item
197        Command = ecDeleteLastChar
198        ShortCut = 8
199      end    
200      item
201        Command = ecDeleteLastChar
202        ShortCut = 8200
203      end    
204      item
205        Command = ecDeleteLastWord
206        ShortCut = 16392
207      end    
208      item
209        Command = ecUndo
210        ShortCut = 32776
211      end    
212      item
213        Command = ecRedo
214        ShortCut = 40968
215      end    
216      item
217        Command = ecLineBreak
218        ShortCut = 13
219      end    
220      item
221        Command = ecSelectAll
222        ShortCut = 16449
223      end    
224      item
225        Command = ecCopy
226        ShortCut = 16451
227      end    
228      item
229        Command = ecBlockIndent
230        ShortCut = 24649
231      end    
232      item
233        Command = ecLineBreak
234        ShortCut = 16461
235      end    
236      item
237        Command = ecInsertLine
238        ShortCut = 16462
239      end    
240      item
241        Command = ecDeleteWord
242        ShortCut = 16468
243      end    
244      item
245        Command = ecBlockUnindent
246        ShortCut = 24661
247      end    
248      item
249        Command = ecPaste
250        ShortCut = 16470
251      end    
252      item
253        Command = ecCut
254        ShortCut = 16472
255      end    
256      item
257        Command = ecDeleteLine
258        ShortCut = 16473
259      end    
260      item
261        Command = ecDeleteEOL
262        ShortCut = 24665
263      end    
264      item
265        Command = ecUndo
266        ShortCut = 16474
267      end    
268      item
269        Command = ecRedo
270        ShortCut = 24666
271      end    
272      item
273        Command = ecGotoMarker0
274        ShortCut = 16432
275      end    
276      item
277        Command = ecGotoMarker1
278        ShortCut = 16433
279      end    
280      item
281        Command = ecGotoMarker2
282        ShortCut = 16434
283      end    
284      item
285        Command = ecGotoMarker3
286        ShortCut = 16435
287      end    
288      item
289        Command = ecGotoMarker4
290        ShortCut = 16436
291      end    
292      item
293        Command = ecGotoMarker5
294        ShortCut = 16437
295      end    
296      item
297        Command = ecGotoMarker6
298        ShortCut = 16438
299      end    
300      item
301        Command = ecGotoMarker7
302        ShortCut = 16439
303      end    
304      item
305        Command = ecGotoMarker8
306        ShortCut = 16440
307      end    
308      item
309        Command = ecGotoMarker9
310        ShortCut = 16441
311      end    
312      item
313        Command = ecSetMarker0
314        ShortCut = 24624
315      end    
316      item
317        Command = ecSetMarker1
318        ShortCut = 24625
319      end    
320      item
321        Command = ecSetMarker2
322        ShortCut = 24626
323      end    
324      item
325        Command = ecSetMarker3
326        ShortCut = 24627
327      end    
328      item
329        Command = ecSetMarker4
330        ShortCut = 24628
331      end    
332      item
333        Command = ecSetMarker5
334        ShortCut = 24629
335      end    
336      item
337        Command = ecSetMarker6
338        ShortCut = 24630
339      end    
340      item
341        Command = ecSetMarker7
342        ShortCut = 24631
343      end    
344      item
345        Command = ecSetMarker8
346        ShortCut = 24632
347      end    
348      item
349        Command = ecSetMarker9
350        ShortCut = 24633
351      end    
352      item
353        Command = ecNormalSelect
354        ShortCut = 24654
355      end    
356      item
357        Command = ecColumnSelect
358        ShortCut = 24643
359      end    
360      item
361        Command = ecLineSelect
362        ShortCut = 24652
363      end    
364      item
365        Command = ecTab
366        ShortCut = 9
367      end    
368      item
369        Command = ecShiftTab
370        ShortCut = 8201
371      end    
372      item
373        Command = ecMatchBracket
374        ShortCut = 24642
375      end>
376    MouseActions = <    
377      item
378        Shift = []
379        ShiftMask = [ssShift, ssAlt]
380        Button = mbLeft
381        ClickCount = ccSingle
382        ClickDir = cdDown
383        Command = 1
384        MoveCaret = True
385        Option = 0
386        Priority = 0
387      end    
388      item
389        Shift = [ssShift]
390        ShiftMask = [ssShift, ssAlt]
391        Button = mbLeft
392        ClickCount = ccSingle
393        ClickDir = cdDown
394        Command = 1
395        MoveCaret = True
396        Option = 1
397        Priority = 0
398      end    
399      item
400        Shift = [ssAlt]
401        ShiftMask = [ssShift, ssAlt]
402        Button = mbLeft
403        ClickCount = ccSingle
404        ClickDir = cdDown
405        Command = 3
406        MoveCaret = True
407        Option = 0
408        Priority = 0
409      end    
410      item
411        Shift = [ssShift, ssAlt]
412        ShiftMask = [ssShift, ssAlt]
413        Button = mbLeft
414        ClickCount = ccSingle
415        ClickDir = cdDown
416        Command = 3
417        MoveCaret = True
418        Option = 1
419        Priority = 0
420      end    
421      item
422        Shift = []
423        ShiftMask = []
424        Button = mbRight
425        ClickCount = ccSingle
426        ClickDir = cdUp
427        Command = 12
428        MoveCaret = False
429        Option = 0
430        Priority = 0
431      end    
432      item
433        Shift = []
434        ShiftMask = []
435        Button = mbLeft
436        ClickCount = ccDouble
437        ClickDir = cdDown
438        Command = 6
439        MoveCaret = True
440        Option = 0
441        Priority = 0
442      end    
443      item
444        Shift = []
445        ShiftMask = []
446        Button = mbLeft
447        ClickCount = ccTriple
448        ClickDir = cdDown
449        Command = 7
450        MoveCaret = True
451        Option = 0
452        Priority = 0
453      end    
454      item
455        Shift = []
456        ShiftMask = []
457        Button = mbLeft
458        ClickCount = ccQuad
459        ClickDir = cdDown
460        Command = 8
461        MoveCaret = True
462        Option = 0
463        Priority = 0
464      end    
465      item
466        Shift = []
467        ShiftMask = []
468        Button = mbMiddle
469        ClickCount = ccSingle
470        ClickDir = cdDown
471        Command = 10
472        MoveCaret = True
473        Option = 0
474        Priority = 0
475      end    
476      item
477        Shift = [ssCtrl]
478        ShiftMask = [ssShift, ssAlt, ssCtrl]
479        Button = mbLeft
480        ClickCount = ccSingle
481        ClickDir = cdUp
482        Command = 11
483        MoveCaret = False
484        Option = 0
485        Priority = 0
486      end>
487    MouseSelActions = <    
488      item
489        Shift = []
490        ShiftMask = []
491        Button = mbLeft
492        ClickCount = ccSingle
493        ClickDir = cdDown
494        Command = 9
495        MoveCaret = False
496        Option = 0
497        Priority = 0
498      end>
499    Lines.Strings = (
500      ''
501    )
502    object TSynGutterPartList
503      object TSynGutterMarks
504        Width = 23
505      end
506      object TSynGutterLineNumber
507        Width = 21
508        MouseActions = <>
509        MarkupInfo.Background = clBtnFace
510        MarkupInfo.Foreground = clNone
511        DigitCount = 2
512        ShowOnlyLineNumbersMultiplesOf = 1
513        ZeroStart = False
514        LeadingZeros = False
515      end
516      object TSynGutterChanges
517        Width = 4
518        ModifiedColor = 59900
519        SavedColor = clGreen
520      end
521      object TSynGutterSeparator
522        Width = 2
523      end
524      object TSynGutterCodeFolding
525        MouseActions = <        
526          item
527            Shift = []
528            ShiftMask = []
529            Button = mbRight
530            ClickCount = ccSingle
531            ClickDir = cdUp
532            Command = 16
533            MoveCaret = False
534            Option = 0
535            Priority = 0
536          end        
537          item
538            Shift = []
539            ShiftMask = [ssShift]
540            Button = mbMiddle
541            ClickCount = ccAny
542            ClickDir = cdDown
543            Command = 14
544            MoveCaret = False
545            Option = 0
546            Priority = 0
547          end        
548          item
549            Shift = [ssShift]
550            ShiftMask = [ssShift]
551            Button = mbMiddle
552            ClickCount = ccAny
553            ClickDir = cdDown
554            Command = 14
555            MoveCaret = False
556            Option = 1
557            Priority = 0
558          end        
559          item
560            Shift = []
561            ShiftMask = []
562            Button = mbLeft
563            ClickCount = ccAny
564            ClickDir = cdDown
565            Command = 0
566            MoveCaret = False
567            Option = 0
568            Priority = 0
569          end>
570        MarkupInfo.Background = clNone
571        MarkupInfo.Foreground = clGray
572        MouseActionsExpanded = <        
573          item
574            Shift = []
575            ShiftMask = []
576            Button = mbLeft
577            ClickCount = ccAny
578            ClickDir = cdDown
579            Command = 14
580            MoveCaret = False
581            Option = 0
582            Priority = 0
583          end>
584        MouseActionsCollapsed = <        
585          item
586            Shift = [ssCtrl]
587            ShiftMask = [ssCtrl]
588            Button = mbLeft
589            ClickCount = ccAny
590            ClickDir = cdDown
591            Command = 15
592            MoveCaret = False
593            Option = 0
594            Priority = 0
595          end        
596          item
597            Shift = []
598            ShiftMask = [ssCtrl]
599            Button = mbLeft
600            ClickCount = ccAny
601            ClickDir = cdDown
602            Command = 15
603            MoveCaret = False
604            Option = 1
605            Priority = 0
606          end>
607      end
608    end
609  end
610  object PButtons: TPanel
611    Left = 0
612    Height = 44
613    Top = 256
614    Width = 400
615    Align = alBottom
616    ClientHeight = 44
617    ClientWidth = 400
618    TabOrder = 1
619    object BClose: TButton
620      Left = 312
621      Height = 25
622      Top = 8
623      Width = 75
624      Anchors = [akTop, akRight]
625      Caption = '&Close'
626      ModalResult = 1
627      TabOrder = 0
628    end
629    object BSave: TButton
630      Left = 8
631      Height = 25
632      Top = 8
633      Width = 75
634      Caption = '&Save'
635      OnClick = BSaveClick
636      TabOrder = 1
637    end
638  end
639  object SynFreePascalSyn1: TSynFreePascalSyn
640    Enabled = False
641    CompilerMode = pcmObjFPC
642    NestedComments = True
643    left = 106
644    top = 27
645  end
646  object SDCode: TSaveDialog
647    DefaultExt = '.pp'
648    Filter = 'Pascal files|*.pp;*.pas;*.inc|All files|*.*'
649    Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing, ofViewDetail]
650    left = 144
651    top = 263
652  end
653end