frmgeneratedcode.lfm

/components/datadict/frmgeneratedcode.lfm

http://github.com/graemeg/lazarus · Unknown · 653 lines · 653 code · 0 blank · 0 comment · 0 complexity · fe5d9c3cfd071a60d523bcd685430c00 MD5 · raw file

object CodeForm: TCodeForm
  Left = 350
  Height = 300
  Top = 194
  Width = 400
  ActiveControl = MCode
  Caption = 'Generated code'
  ClientHeight = 300
  ClientWidth = 400
  OnCreate = FormCreate
  LCLVersion = '0.9.27'
  object MCode: TSynMemo
    Cursor = crIBeam
    Left = 0
    Height = 256
    Top = 0
    Width = 400
    Align = alClient
    Font.Height = 14
    Font.Name = '-adobe-courier-medium-r-normal-*-*-*-*-*-*-*-iso10646-1'
    Font.Pitch = fpFixed
    Font.Quality = fqNonAntialiased
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    BookMarkOptions.Xoffset = 17
    BookMarkOptions.OnChange = nil
    ExtraLineSpacing = 2
    Gutter.LeftOffset = 4
    Gutter.Width = 65
    Gutter.MouseActions = <    
      item
        Shift = []
        ShiftMask = []
        Button = mbLeft
        ClickCount = ccAny
        ClickDir = cdDown
        Command = 13
        MoveCaret = False
        Option = 0
        Priority = 0
      end    
      item
        Shift = []
        ShiftMask = []
        Button = mbRight
        ClickCount = ccSingle
        ClickDir = cdUp
        Command = 12
        MoveCaret = False
        Option = 0
        Priority = 0
      end>
    Highlighter = SynFreePascalSyn1
    Keystrokes = <    
      item
        Command = ecUp
        ShortCut = 38
      end    
      item
        Command = ecSelUp
        ShortCut = 8230
      end    
      item
        Command = ecScrollUp
        ShortCut = 16422
      end    
      item
        Command = ecDown
        ShortCut = 40
      end    
      item
        Command = ecSelDown
        ShortCut = 8232
      end    
      item
        Command = ecScrollDown
        ShortCut = 16424
      end    
      item
        Command = ecLeft
        ShortCut = 37
      end    
      item
        Command = ecSelLeft
        ShortCut = 8229
      end    
      item
        Command = ecWordLeft
        ShortCut = 16421
      end    
      item
        Command = ecSelWordLeft
        ShortCut = 24613
      end    
      item
        Command = ecRight
        ShortCut = 39
      end    
      item
        Command = ecSelRight
        ShortCut = 8231
      end    
      item
        Command = ecWordRight
        ShortCut = 16423
      end    
      item
        Command = ecSelWordRight
        ShortCut = 24615
      end    
      item
        Command = ecPageDown
        ShortCut = 34
      end    
      item
        Command = ecSelPageDown
        ShortCut = 8226
      end    
      item
        Command = ecPageBottom
        ShortCut = 16418
      end    
      item
        Command = ecSelPageBottom
        ShortCut = 24610
      end    
      item
        Command = ecPageUp
        ShortCut = 33
      end    
      item
        Command = ecSelPageUp
        ShortCut = 8225
      end    
      item
        Command = ecPageTop
        ShortCut = 16417
      end    
      item
        Command = ecSelPageTop
        ShortCut = 24609
      end    
      item
        Command = ecLineStart
        ShortCut = 36
      end    
      item
        Command = ecSelLineStart
        ShortCut = 8228
      end    
      item
        Command = ecEditorTop
        ShortCut = 16420
      end    
      item
        Command = ecSelEditorTop
        ShortCut = 24612
      end    
      item
        Command = ecLineEnd
        ShortCut = 35
      end    
      item
        Command = ecSelLineEnd
        ShortCut = 8227
      end    
      item
        Command = ecEditorBottom
        ShortCut = 16419
      end    
      item
        Command = ecSelEditorBottom
        ShortCut = 24611
      end    
      item
        Command = ecToggleMode
        ShortCut = 45
      end    
      item
        Command = ecCopy
        ShortCut = 16429
      end    
      item
        Command = ecPaste
        ShortCut = 8237
      end    
      item
        Command = ecDeleteChar
        ShortCut = 46
      end    
      item
        Command = ecCut
        ShortCut = 8238
      end    
      item
        Command = ecDeleteLastChar
        ShortCut = 8
      end    
      item
        Command = ecDeleteLastChar
        ShortCut = 8200
      end    
      item
        Command = ecDeleteLastWord
        ShortCut = 16392
      end    
      item
        Command = ecUndo
        ShortCut = 32776
      end    
      item
        Command = ecRedo
        ShortCut = 40968
      end    
      item
        Command = ecLineBreak
        ShortCut = 13
      end    
      item
        Command = ecSelectAll
        ShortCut = 16449
      end    
      item
        Command = ecCopy
        ShortCut = 16451
      end    
      item
        Command = ecBlockIndent
        ShortCut = 24649
      end    
      item
        Command = ecLineBreak
        ShortCut = 16461
      end    
      item
        Command = ecInsertLine
        ShortCut = 16462
      end    
      item
        Command = ecDeleteWord
        ShortCut = 16468
      end    
      item
        Command = ecBlockUnindent
        ShortCut = 24661
      end    
      item
        Command = ecPaste
        ShortCut = 16470
      end    
      item
        Command = ecCut
        ShortCut = 16472
      end    
      item
        Command = ecDeleteLine
        ShortCut = 16473
      end    
      item
        Command = ecDeleteEOL
        ShortCut = 24665
      end    
      item
        Command = ecUndo
        ShortCut = 16474
      end    
      item
        Command = ecRedo
        ShortCut = 24666
      end    
      item
        Command = ecGotoMarker0
        ShortCut = 16432
      end    
      item
        Command = ecGotoMarker1
        ShortCut = 16433
      end    
      item
        Command = ecGotoMarker2
        ShortCut = 16434
      end    
      item
        Command = ecGotoMarker3
        ShortCut = 16435
      end    
      item
        Command = ecGotoMarker4
        ShortCut = 16436
      end    
      item
        Command = ecGotoMarker5
        ShortCut = 16437
      end    
      item
        Command = ecGotoMarker6
        ShortCut = 16438
      end    
      item
        Command = ecGotoMarker7
        ShortCut = 16439
      end    
      item
        Command = ecGotoMarker8
        ShortCut = 16440
      end    
      item
        Command = ecGotoMarker9
        ShortCut = 16441
      end    
      item
        Command = ecSetMarker0
        ShortCut = 24624
      end    
      item
        Command = ecSetMarker1
        ShortCut = 24625
      end    
      item
        Command = ecSetMarker2
        ShortCut = 24626
      end    
      item
        Command = ecSetMarker3
        ShortCut = 24627
      end    
      item
        Command = ecSetMarker4
        ShortCut = 24628
      end    
      item
        Command = ecSetMarker5
        ShortCut = 24629
      end    
      item
        Command = ecSetMarker6
        ShortCut = 24630
      end    
      item
        Command = ecSetMarker7
        ShortCut = 24631
      end    
      item
        Command = ecSetMarker8
        ShortCut = 24632
      end    
      item
        Command = ecSetMarker9
        ShortCut = 24633
      end    
      item
        Command = ecNormalSelect
        ShortCut = 24654
      end    
      item
        Command = ecColumnSelect
        ShortCut = 24643
      end    
      item
        Command = ecLineSelect
        ShortCut = 24652
      end    
      item
        Command = ecTab
        ShortCut = 9
      end    
      item
        Command = ecShiftTab
        ShortCut = 8201
      end    
      item
        Command = ecMatchBracket
        ShortCut = 24642
      end>
    MouseActions = <    
      item
        Shift = []
        ShiftMask = [ssShift, ssAlt]
        Button = mbLeft
        ClickCount = ccSingle
        ClickDir = cdDown
        Command = 1
        MoveCaret = True
        Option = 0
        Priority = 0
      end    
      item
        Shift = [ssShift]
        ShiftMask = [ssShift, ssAlt]
        Button = mbLeft
        ClickCount = ccSingle
        ClickDir = cdDown
        Command = 1
        MoveCaret = True
        Option = 1
        Priority = 0
      end    
      item
        Shift = [ssAlt]
        ShiftMask = [ssShift, ssAlt]
        Button = mbLeft
        ClickCount = ccSingle
        ClickDir = cdDown
        Command = 3
        MoveCaret = True
        Option = 0
        Priority = 0
      end    
      item
        Shift = [ssShift, ssAlt]
        ShiftMask = [ssShift, ssAlt]
        Button = mbLeft
        ClickCount = ccSingle
        ClickDir = cdDown
        Command = 3
        MoveCaret = True
        Option = 1
        Priority = 0
      end    
      item
        Shift = []
        ShiftMask = []
        Button = mbRight
        ClickCount = ccSingle
        ClickDir = cdUp
        Command = 12
        MoveCaret = False
        Option = 0
        Priority = 0
      end    
      item
        Shift = []
        ShiftMask = []
        Button = mbLeft
        ClickCount = ccDouble
        ClickDir = cdDown
        Command = 6
        MoveCaret = True
        Option = 0
        Priority = 0
      end    
      item
        Shift = []
        ShiftMask = []
        Button = mbLeft
        ClickCount = ccTriple
        ClickDir = cdDown
        Command = 7
        MoveCaret = True
        Option = 0
        Priority = 0
      end    
      item
        Shift = []
        ShiftMask = []
        Button = mbLeft
        ClickCount = ccQuad
        ClickDir = cdDown
        Command = 8
        MoveCaret = True
        Option = 0
        Priority = 0
      end    
      item
        Shift = []
        ShiftMask = []
        Button = mbMiddle
        ClickCount = ccSingle
        ClickDir = cdDown
        Command = 10
        MoveCaret = True
        Option = 0
        Priority = 0
      end    
      item
        Shift = [ssCtrl]
        ShiftMask = [ssShift, ssAlt, ssCtrl]
        Button = mbLeft
        ClickCount = ccSingle
        ClickDir = cdUp
        Command = 11
        MoveCaret = False
        Option = 0
        Priority = 0
      end>
    MouseSelActions = <    
      item
        Shift = []
        ShiftMask = []
        Button = mbLeft
        ClickCount = ccSingle
        ClickDir = cdDown
        Command = 9
        MoveCaret = False
        Option = 0
        Priority = 0
      end>
    Lines.Strings = (
      ''
    )
    object TSynGutterPartList
      object TSynGutterMarks
        Width = 23
      end
      object TSynGutterLineNumber
        Width = 21
        MouseActions = <>
        MarkupInfo.Background = clBtnFace
        MarkupInfo.Foreground = clNone
        DigitCount = 2
        ShowOnlyLineNumbersMultiplesOf = 1
        ZeroStart = False
        LeadingZeros = False
      end
      object TSynGutterChanges
        Width = 4
        ModifiedColor = 59900
        SavedColor = clGreen
      end
      object TSynGutterSeparator
        Width = 2
      end
      object TSynGutterCodeFolding
        MouseActions = <        
          item
            Shift = []
            ShiftMask = []
            Button = mbRight
            ClickCount = ccSingle
            ClickDir = cdUp
            Command = 16
            MoveCaret = False
            Option = 0
            Priority = 0
          end        
          item
            Shift = []
            ShiftMask = [ssShift]
            Button = mbMiddle
            ClickCount = ccAny
            ClickDir = cdDown
            Command = 14
            MoveCaret = False
            Option = 0
            Priority = 0
          end        
          item
            Shift = [ssShift]
            ShiftMask = [ssShift]
            Button = mbMiddle
            ClickCount = ccAny
            ClickDir = cdDown
            Command = 14
            MoveCaret = False
            Option = 1
            Priority = 0
          end        
          item
            Shift = []
            ShiftMask = []
            Button = mbLeft
            ClickCount = ccAny
            ClickDir = cdDown
            Command = 0
            MoveCaret = False
            Option = 0
            Priority = 0
          end>
        MarkupInfo.Background = clNone
        MarkupInfo.Foreground = clGray
        MouseActionsExpanded = <        
          item
            Shift = []
            ShiftMask = []
            Button = mbLeft
            ClickCount = ccAny
            ClickDir = cdDown
            Command = 14
            MoveCaret = False
            Option = 0
            Priority = 0
          end>
        MouseActionsCollapsed = <        
          item
            Shift = [ssCtrl]
            ShiftMask = [ssCtrl]
            Button = mbLeft
            ClickCount = ccAny
            ClickDir = cdDown
            Command = 15
            MoveCaret = False
            Option = 0
            Priority = 0
          end        
          item
            Shift = []
            ShiftMask = [ssCtrl]
            Button = mbLeft
            ClickCount = ccAny
            ClickDir = cdDown
            Command = 15
            MoveCaret = False
            Option = 1
            Priority = 0
          end>
      end
    end
  end
  object PButtons: TPanel
    Left = 0
    Height = 44
    Top = 256
    Width = 400
    Align = alBottom
    ClientHeight = 44
    ClientWidth = 400
    TabOrder = 1
    object BClose: TButton
      Left = 312
      Height = 25
      Top = 8
      Width = 75
      Anchors = [akTop, akRight]
      Caption = '&Close'
      ModalResult = 1
      TabOrder = 0
    end
    object BSave: TButton
      Left = 8
      Height = 25
      Top = 8
      Width = 75
      Caption = '&Save'
      OnClick = BSaveClick
      TabOrder = 1
    end
  end
  object SynFreePascalSyn1: TSynFreePascalSyn
    Enabled = False
    CompilerMode = pcmObjFPC
    NestedComments = True
    left = 106
    top = 27
  end
  object SDCode: TSaveDialog
    DefaultExt = '.pp'
    Filter = 'Pascal files|*.pp;*.pas;*.inc|All files|*.*'
    Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing, ofViewDetail]
    left = 144
    top = 263
  end
end