mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-07 06:52:44 +02:00
826 lines
22 KiB
Plaintext
826 lines
22 KiB
Plaintext
object CreateCodeForm: TCreateCodeForm
|
|
Left = 528
|
|
Height = 501
|
|
Top = 226
|
|
Width = 614
|
|
Caption = 'Create pascal code'
|
|
ClientHeight = 501
|
|
ClientWidth = 614
|
|
OnCreate = FormCreate
|
|
LCLVersion = '1.9.0.0'
|
|
object PCCode: TPageControl
|
|
AnchorSideRight.Control = LFECode
|
|
Left = 0
|
|
Height = 447
|
|
Top = 0
|
|
Width = 614
|
|
ActivePage = TSOptions
|
|
Align = alClient
|
|
TabIndex = 0
|
|
TabOrder = 0
|
|
OnChange = PCCodeChange
|
|
object TSOptions: TTabSheet
|
|
AnchorSideRight.Control = LFECode
|
|
Caption = 'Options'
|
|
ClientHeight = 412
|
|
ClientWidth = 608
|
|
object SEIndent: TSpinEdit
|
|
AnchorSideLeft.Control = FECode
|
|
AnchorSideTop.Control = FECode
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 152
|
|
Height = 27
|
|
Top = 43
|
|
Width = 80
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 0
|
|
Value = 2
|
|
end
|
|
object FECode: TFileNameEdit
|
|
Left = 152
|
|
Height = 27
|
|
Top = 8
|
|
Width = 455
|
|
DialogKind = dkSave
|
|
DialogOptions = [ofPathMustExist, ofEnableSizing]
|
|
FilterIndex = 0
|
|
HideDirectories = False
|
|
ButtonWidth = 23
|
|
NumGlyphs = 1
|
|
Anchors = [akTop, akLeft, akRight]
|
|
MaxLength = 0
|
|
TabOrder = 1
|
|
end
|
|
object LFECode: TLabel
|
|
AnchorSideTop.Control = FECode
|
|
AnchorSideRight.Control = FECode
|
|
AnchorSideBottom.Control = FECode
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 8
|
|
Height = 27
|
|
Top = 8
|
|
Width = 136
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
BorderSpacing.Right = 8
|
|
Caption = 'File'
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object LSEindent: TLabel
|
|
AnchorSideTop.Control = LFECode
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = LFECode
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = SEIndent
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 17
|
|
Height = 19
|
|
Top = 51
|
|
Width = 127
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
BorderSpacing.Top = 16
|
|
Caption = 'Indent'
|
|
ParentColor = False
|
|
end
|
|
object EUnitName: TEdit
|
|
AnchorSideLeft.Control = FECode
|
|
AnchorSideTop.Control = SEIndent
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 152
|
|
Height = 27
|
|
Top = 78
|
|
Width = 241
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 2
|
|
end
|
|
object LEunitName: TLabel
|
|
AnchorSideTop.Control = EUnitName
|
|
AnchorSideRight.Control = LFECode
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = EUnitName
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 12
|
|
Height = 27
|
|
Top = 78
|
|
Width = 132
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
Caption = 'Unit name'
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object LEunitName1: TLabel
|
|
AnchorSideTop.Control = EFieldPrefix
|
|
AnchorSideRight.Control = LFECode
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = EFieldPrefix
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 8
|
|
Height = 26
|
|
Top = 114
|
|
Width = 136
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Top = 1
|
|
Caption = 'Field Prefix'
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object EFieldPrefix: TEdit
|
|
AnchorSideLeft.Control = FECode
|
|
AnchorSideTop.Control = EUnitName
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 152
|
|
Height = 27
|
|
Top = 113
|
|
Width = 88
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 3
|
|
end
|
|
object EPropertyTypeSuffixEdit: TEdit
|
|
AnchorSideLeft.Control = FECode
|
|
AnchorSideTop.Control = EFieldPrefix
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 152
|
|
Height = 27
|
|
Top = 148
|
|
Width = 87
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 4
|
|
end
|
|
object LEPropertyTypeSuffix: TLabel
|
|
AnchorSideTop.Control = EPropertyTypeSuffixEdit
|
|
AnchorSideRight.Control = LFECode
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = EPropertyTypeSuffixEdit
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 12
|
|
Height = 27
|
|
Top = 148
|
|
Width = 132
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
Caption = 'Property type suffix'
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object EConstructorArgs: TEdit
|
|
AnchorSideLeft.Control = FECode
|
|
AnchorSideTop.Control = EPropertyTypeSuffixEdit
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 152
|
|
Height = 27
|
|
Top = 183
|
|
Width = 454
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 5
|
|
end
|
|
object LEConstructorArgsLabel1: TLabel
|
|
AnchorSideTop.Control = EConstructorArgs
|
|
AnchorSideRight.Control = LFECode
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = EConstructorArgs
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = -23
|
|
Height = 27
|
|
Top = 183
|
|
Width = 167
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
Caption = 'Constructor arguments'
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object EExtraUnitNames: TEdit
|
|
AnchorSideLeft.Control = FECode
|
|
AnchorSideTop.Control = LEConstructorArgsLabel1
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 152
|
|
Height = 27
|
|
Top = 218
|
|
Width = 454
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 6
|
|
TextHint = 'Unit names, separated by commas'
|
|
end
|
|
object LExtraUnitNames: TLabel
|
|
AnchorSideTop.Control = EExtraUnitNames
|
|
AnchorSideRight.Control = LFECode
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = EExtraUnitNames
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 8
|
|
Height = 27
|
|
Top = 218
|
|
Width = 136
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
Caption = 'Extra units in uses'
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object EDefaultParentName: TEdit
|
|
AnchorSideLeft.Control = FECode
|
|
AnchorSideTop.Control = EExtraUnitNames
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 152
|
|
Height = 27
|
|
Top = 253
|
|
Width = 454
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 7
|
|
end
|
|
object LParentName: TLabel
|
|
AnchorSideTop.Control = EDefaultParentName
|
|
AnchorSideRight.Control = LFECode
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = EDefaultParentName
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 8
|
|
Height = 27
|
|
Top = 253
|
|
Width = 136
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
Caption = 'Object Parent class'
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object CGOptions: TCheckGroup
|
|
AnchorSideTop.Control = EDefaultParentName
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 152
|
|
Height = 105
|
|
Top = 288
|
|
Width = 448
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoFill = True
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Other options'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.TopBottomSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 2
|
|
ClientHeight = 87
|
|
ClientWidth = 446
|
|
Columns = 2
|
|
Items.Strings = (
|
|
'Use setter for properties'
|
|
'Generate Load code'
|
|
'Unknown Properties raise error'
|
|
'Use Delphi JSON API'
|
|
'Load Case Insensitive'
|
|
'Generate Save code'
|
|
)
|
|
TabOrder = 8
|
|
Data = {
|
|
06000000020202020202
|
|
}
|
|
end
|
|
end
|
|
object TSCode: TTabSheet
|
|
Caption = 'Preview'
|
|
ClientHeight = 412
|
|
ClientWidth = 608
|
|
inline SECode: TSynEdit
|
|
Left = 0
|
|
Height = 412
|
|
Top = 0
|
|
Width = 608
|
|
Align = alClient
|
|
Font.Height = 13
|
|
Font.Name = 'DejaVu Sans Mono'
|
|
Font.Pitch = fpFixed
|
|
Font.Quality = fqNonAntialiased
|
|
ParentColor = False
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
Gutter.Width = 57
|
|
Gutter.MouseActions = <>
|
|
RightGutter.Width = 0
|
|
RightGutter.MouseActions = <>
|
|
Highlighter = SynFPC
|
|
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 = EcFoldLevel1
|
|
ShortCut = 41009
|
|
end
|
|
item
|
|
Command = EcFoldLevel2
|
|
ShortCut = 41010
|
|
end
|
|
item
|
|
Command = EcFoldLevel3
|
|
ShortCut = 41011
|
|
end
|
|
item
|
|
Command = EcFoldLevel4
|
|
ShortCut = 41012
|
|
end
|
|
item
|
|
Command = EcFoldLevel5
|
|
ShortCut = 41013
|
|
end
|
|
item
|
|
Command = EcFoldLevel6
|
|
ShortCut = 41014
|
|
end
|
|
item
|
|
Command = EcFoldLevel7
|
|
ShortCut = 41015
|
|
end
|
|
item
|
|
Command = EcFoldLevel8
|
|
ShortCut = 41016
|
|
end
|
|
item
|
|
Command = EcFoldLevel9
|
|
ShortCut = 41017
|
|
end
|
|
item
|
|
Command = EcFoldLevel0
|
|
ShortCut = 41008
|
|
end
|
|
item
|
|
Command = EcFoldCurrent
|
|
ShortCut = 41005
|
|
end
|
|
item
|
|
Command = EcUnFoldCurrent
|
|
ShortCut = 41003
|
|
end
|
|
item
|
|
Command = EcToggleMarkupWord
|
|
ShortCut = 32845
|
|
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
|
|
item
|
|
Command = ecColSelUp
|
|
ShortCut = 40998
|
|
end
|
|
item
|
|
Command = ecColSelDown
|
|
ShortCut = 41000
|
|
end
|
|
item
|
|
Command = ecColSelLeft
|
|
ShortCut = 40997
|
|
end
|
|
item
|
|
Command = ecColSelRight
|
|
ShortCut = 40999
|
|
end
|
|
item
|
|
Command = ecColSelPageDown
|
|
ShortCut = 40994
|
|
end
|
|
item
|
|
Command = ecColSelPageBottom
|
|
ShortCut = 57378
|
|
end
|
|
item
|
|
Command = ecColSelPageUp
|
|
ShortCut = 40993
|
|
end
|
|
item
|
|
Command = ecColSelPageTop
|
|
ShortCut = 57377
|
|
end
|
|
item
|
|
Command = ecColSelLineStart
|
|
ShortCut = 40996
|
|
end
|
|
item
|
|
Command = ecColSelLineEnd
|
|
ShortCut = 40995
|
|
end
|
|
item
|
|
Command = ecColSelEditorTop
|
|
ShortCut = 57380
|
|
end
|
|
item
|
|
Command = ecColSelEditorBottom
|
|
ShortCut = 57379
|
|
end>
|
|
MouseActions = <>
|
|
MouseTextActions = <>
|
|
MouseSelActions = <>
|
|
Lines.Strings = (
|
|
'SECode'
|
|
)
|
|
VisibleSpecialChars = [vscSpace, vscTabAtLast]
|
|
ReadOnly = True
|
|
SelectedColor.BackPriority = 50
|
|
SelectedColor.ForePriority = 50
|
|
SelectedColor.FramePriority = 50
|
|
SelectedColor.BoldPriority = 50
|
|
SelectedColor.ItalicPriority = 50
|
|
SelectedColor.UnderlinePriority = 50
|
|
SelectedColor.StrikeOutPriority = 50
|
|
BracketHighlightStyle = sbhsBoth
|
|
BracketMatchColor.Background = clNone
|
|
BracketMatchColor.Foreground = clNone
|
|
BracketMatchColor.Style = [fsBold]
|
|
FoldedCodeColor.Background = clNone
|
|
FoldedCodeColor.Foreground = clGray
|
|
FoldedCodeColor.FrameColor = clGray
|
|
MouseLinkColor.Background = clNone
|
|
MouseLinkColor.Foreground = clBlue
|
|
LineHighlightColor.Background = clNone
|
|
LineHighlightColor.Foreground = clNone
|
|
inline SynLeftGutterPartList1: TSynGutterPartList
|
|
object SynGutterMarks1: TSynGutterMarks
|
|
Width = 24
|
|
MouseActions = <>
|
|
end
|
|
object SynGutterLineNumber1: TSynGutterLineNumber
|
|
Width = 17
|
|
MouseActions = <>
|
|
MarkupInfo.Background = clBtnFace
|
|
MarkupInfo.Foreground = clNone
|
|
DigitCount = 2
|
|
ShowOnlyLineNumbersMultiplesOf = 1
|
|
ZeroStart = False
|
|
LeadingZeros = False
|
|
end
|
|
object SynGutterChanges1: TSynGutterChanges
|
|
Width = 4
|
|
MouseActions = <>
|
|
ModifiedColor = 59900
|
|
SavedColor = clGreen
|
|
end
|
|
object SynGutterSeparator1: TSynGutterSeparator
|
|
Width = 2
|
|
MouseActions = <>
|
|
MarkupInfo.Background = clWhite
|
|
MarkupInfo.Foreground = clGray
|
|
end
|
|
object SynGutterCodeFolding1: TSynGutterCodeFolding
|
|
MouseActions = <>
|
|
MarkupInfo.Background = clNone
|
|
MarkupInfo.Foreground = clGray
|
|
MouseActionsExpanded = <>
|
|
MouseActionsCollapsed = <>
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object BPCode: TButtonPanel
|
|
Left = 6
|
|
Height = 42
|
|
Top = 453
|
|
Width = 602
|
|
OKButton.Name = 'OKButton'
|
|
OKButton.DefaultCaption = True
|
|
OKButton.OnClick = OKButtonClick
|
|
HelpButton.Name = 'HelpButton'
|
|
HelpButton.DefaultCaption = True
|
|
CloseButton.Name = 'CloseButton'
|
|
CloseButton.DefaultCaption = True
|
|
CancelButton.Name = 'CancelButton'
|
|
CancelButton.DefaultCaption = True
|
|
TabOrder = 1
|
|
ShowButtons = [pbOK, pbCancel]
|
|
end
|
|
object SynFPC: TSynFreePascalSyn
|
|
Enabled = False
|
|
CompilerMode = pcmObjFPC
|
|
NestedComments = True
|
|
left = 127
|
|
top = 58
|
|
end
|
|
end
|