paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 15:36:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

added help button, fixed achoring InsertMacroButton

Browse Source 
git-svn-id: trunk@16961 -
This commit is contained in:
darius 2008-10-11 21:33:32 +00:00
parent 46283869bd
commit d91d1ae561
3 changed files with 695 additions and 130 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

472
ide/codetemplatesdlg.lfm
View File

@ -3,36 +3,108 @@ object CodeTemplateDialog: TCodeTemplateDialog
Height = 542 Height = 542
Top = 122 Top = 122
Width = 497 Width = 497
HelpContext = 0
ActiveControl = FilenameEdit ActiveControl = FilenameEdit
Align = alNone
AllowDropFiles = False
AutoScroll = True
AutoSize = False
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsSizeable
Caption = 'CodeTemplateDialog' Caption = 'CodeTemplateDialog'
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 542 ClientHeight = 542
ClientWidth = 497 ClientWidth = 497
DockSite = False
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Font.Height = 0
Font.Style = []
FormStyle = fsNormal
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
ParentBiDiMode = True
ParentFont = False ParentFont = False
LCLVersion = '0.9.25' Position = poDesigned
ShowInTaskBar = stDefault
UseDockManager = False
LCLVersion = '0.9.27'
WindowState = wsNormal
object FilenameGroupBox: TGroupBox object FilenameGroupBox: TGroupBox
Left = 6 Left = 6
Height = 51 Height = 51
Top = 6 Top = 6
Width = 485 Width = 485
HelpContext = 0
Align = alTop Align = alTop
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'FilenameGroupBox' Caption = 'FilenameGroupBox'
ClientHeight = 33 ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 32
ClientWidth = 481 ClientWidth = 481
Ctl3D = False
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ParentColor = True
ParentCtl3D = True
ParentFont = True
ParentShowHint = True
TabOrder = 0 TabOrder = 0
TabStop = False
Visible = True
object FilenameEdit: TEdit object FilenameEdit: TEdit
AnchorSideRight.Control = FilenameButton AnchorSideRight.Control = FilenameButton
Left = 9 Left = 9
Height = 23 Height = 23
Top = 4 Top = 4
Width = 435 Width = 435
HelpContext = 0
Align = alNone
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = False
AutoSelect = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 5 BorderSpacing.Right = 5
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
CharCase = ecNormal
DragCursor = crDrag
DragMode = dmManual
EchoMode = emNormal
Enabled = True
MaxLength = -1
ParentBidiMode = True
ParentFont = True
ParentShowHint = True
PasswordChar = #0
ReadOnly = False
TabStop = True
TabOrder = 0 TabOrder = 0
Text = 'FilenameEdit' Text = 'FilenameEdit'
Visible = True
end end
object FilenameButton: TButton object FilenameButton: TButton
AnchorSideRight.Control = FilenameGroupBox AnchorSideRight.Control = FilenameGroupBox
@ -43,11 +115,31 @@ object CodeTemplateDialog: TCodeTemplateDialog
Height = 23 Height = 23
Top = 4 Top = 4
Width = 26 Width = 26
HelpContext = 0
Align = alNone
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = False
Caption = '...' Caption = '...'
Default = False
DragCursor = crDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ModalResult = 0
OnClick = FilenameButtonClick OnClick = FilenameButtonClick
ParentFont = True
ParentShowHint = True
TabOrder = 1 TabOrder = 1
TabStop = True
Visible = True
end end
end end
object TemplatesGroupBox: TGroupBox object TemplatesGroupBox: TGroupBox
@ -56,12 +148,38 @@ object CodeTemplateDialog: TCodeTemplateDialog
Height = 167 Height = 167
Top = 63 Top = 63
Width = 485 Width = 485
HelpContext = 0
Align = alTop Align = alTop
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'TemplatesGroupBox' Caption = 'TemplatesGroupBox'
ClientHeight = 149 ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 148
ClientWidth = 481 ClientWidth = 481
Ctl3D = False
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ParentColor = True
ParentCtl3D = True
ParentFont = True
ParentShowHint = True
TabOrder = 1 TabOrder = 1
TabStop = False
Visible = True
object TemplateListBox: TListBox object TemplateListBox: TListBox
AnchorSideLeft.Control = TemplatesGroupBox AnchorSideLeft.Control = TemplatesGroupBox
AnchorSideTop.Control = TemplatesGroupBox AnchorSideTop.Control = TemplatesGroupBox
@ -69,16 +187,40 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideBottom.Control = TemplatesGroupBox AnchorSideBottom.Control = TemplatesGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 137 Height = 136
Top = 6 Top = 6
Width = 315 Width = 315
HelpContext = 0
Align = alNone
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BorderStyle = bsSingle
ClickOnSelChange = True
Columns = 0
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
ExtendedSelect = True
Enabled = True
IntegralHeight = False
ItemHeight = 0
MultiSelect = False
OnSelectionChange = TemplateListBoxSelectionChange OnSelectionChange = TemplateListBoxSelectionChange
ParentBidiMode = True
ParentShowHint = True
ParentFont = True
Sorted = False
Style = lbStandard
TabOrder = 0 TabOrder = 0
TabStop = True
TopIndex = -1
Visible = True
end end
object AddButton: TButton object AddButton: TButton
AnchorSideTop.Control = TemplateListBox AnchorSideTop.Control = TemplateListBox
@ -88,11 +230,31 @@ object CodeTemplateDialog: TCodeTemplateDialog
Height = 30 Height = 30
Top = 6 Top = 6
Width = 148 Width = 148
HelpContext = 0
Align = alNone
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = False
Caption = 'AddButton' Caption = 'AddButton'
Default = False
DragCursor = crDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ModalResult = 0
OnClick = AddButtonClick OnClick = AddButtonClick
ParentFont = True
ParentShowHint = True
TabOrder = 1 TabOrder = 1
TabStop = True
Visible = True
end end
object DeleteButton: TButton object DeleteButton: TButton
AnchorSideLeft.Control = AddButton AnchorSideLeft.Control = AddButton
@ -104,11 +266,31 @@ object CodeTemplateDialog: TCodeTemplateDialog
Height = 30 Height = 30
Top = 42 Top = 42
Width = 148 Width = 148
HelpContext = 0
Align = alNone
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = False
Caption = 'DeleteButton' Caption = 'DeleteButton'
Default = False
DragCursor = crDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ModalResult = 0
OnClick = DeleteButtonClick OnClick = DeleteButtonClick
ParentFont = True
ParentShowHint = True
TabOrder = 3 TabOrder = 3
TabStop = True
Visible = True
end end
object EditButton: TButton object EditButton: TButton
AnchorSideLeft.Control = AddButton AnchorSideLeft.Control = AddButton
@ -120,11 +302,31 @@ object CodeTemplateDialog: TCodeTemplateDialog
Height = 30 Height = 30
Top = 78 Top = 78
Width = 148 Width = 148
HelpContext = 0
Align = alNone
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = False
Caption = 'EditButton' Caption = 'EditButton'
Default = False
DragCursor = crDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ModalResult = 0
OnClick = EditButtonClick OnClick = EditButtonClick
ParentFont = True
ParentShowHint = True
TabOrder = 2 TabOrder = 2
TabStop = True
Visible = True
end end
end end
object EditTemplateGroupBox: TGroupBox object EditTemplateGroupBox: TGroupBox
@ -134,23 +336,73 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = BtnPanel AnchorSideBottom.Control = BtnPanel
Left = 6 Left = 6
Height = 265 Height = 250
Top = 236 Top = 236
Width = 485 Width = 485
HelpContext = 0
Align = alNone
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'EditTemplateGroupBox' Caption = 'EditTemplateGroupBox'
ClientHeight = 247 ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 231
ClientWidth = 481 ClientWidth = 481
Ctl3D = False
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ParentColor = True
ParentCtl3D = True
ParentFont = True
ParentShowHint = True
TabOrder = 2 TabOrder = 2
TabStop = False
Visible = True
object UseMacrosCheckBox: TCheckBox object UseMacrosCheckBox: TCheckBox
Left = 6 Left = 6
Height = 19 Height = 22
Top = 6 Top = 6
Width = 125 Width = 158
HelpContext = 0
Align = alNone
AllowGrayed = False
AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 7 BorderSpacing.Bottom = 7
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'UseMacrosCheckBox' Caption = 'UseMacrosCheckBox'
Checked = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
ParentColor = True
ParentFont = True
ParentShowHint = True
ParentBidiMode = True
State = cbUnchecked
TabOrder = 0 TabOrder = 0
TabStop = True
UseOnChange = False
Visible = True
end end
object InsertMacroButton: TButton object InsertMacroButton: TButton
AnchorSideLeft.Control = UseMacrosCheckBox AnchorSideLeft.Control = UseMacrosCheckBox
@ -158,18 +410,37 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideTop.Control = UseMacrosCheckBox AnchorSideTop.Control = UseMacrosCheckBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 131 Left = 190
Height = 23 Height = 29
Top = 4 Top = 3
Width = 116 Width = 130
HelpContext = 0
Align = alNone
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Left = 20
BorderSpacing.Right = 6 BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = False
Caption = 'InsertMacroButton' Caption = 'InsertMacroButton'
Default = False
DragCursor = crDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ModalResult = 0
OnClick = InsertMacroButtonClick OnClick = InsertMacroButtonClick
ParentFont = True
ParentShowHint = True
TabOrder = 2 TabOrder = 2
TabStop = True
Visible = True
end end
object TemplateSynEdit: TSynEdit object TemplateSynEdit: TSynEdit
Tag = 0
AnchorSideTop.Control = AutoOnOptionsCheckGroup AnchorSideTop.Control = AutoOnOptionsCheckGroup
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = EditTemplateGroupBox AnchorSideRight.Control = EditTemplateGroupBox
@ -177,18 +448,42 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideBottom.Control = EditTemplateGroupBox AnchorSideBottom.Control = EditTemplateGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 172 Height = 151
Top = 69 Top = 74
Width = 469 Width = 469
HelpContext = 0
Align = alNone
BlockIndent = 2
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
Color = clWhite
CFDividerDrawLevel = 0
Ctl3D = False
Enabled = True
Font.Height = -14 Font.Height = -14
Font.Name = 'courier' Font.Name = 'courier'
Font.Pitch = fpFixed Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
Font.Style = []
ParentColor = False ParentColor = False
ParentCtl3D = True
ParentFont = False ParentFont = False
ParentShowHint = True
TabOrder = 1 TabOrder = 1
Visible = True
BookMarkOptions.OnChange = nil BookMarkOptions.OnChange = nil
BorderStyle = bsSingle
ExtraCharSpacing = 0
ExtraLineSpacing = 0
HideSelection = False
InsertCaret = ctVerticalLine
InsertMode = True
Keystrokes = < Keystrokes = <
item item
Command = 3 Command = 3
@ -513,6 +808,18 @@ object CodeTemplateDialog: TCodeTemplateDialog
Lines.Strings = ( Lines.Strings = (
'TemplateSynEdit' 'TemplateSynEdit'
) )
MaxLeftChar = 1024
MaxUndo = 1024
Options = [eoAutoIndent, eoDragDropEditing, eoGroupUndo, eoScrollPastEol, eoShowScrollHint, eoSmartTabDelete, eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces, eoBracketHighlight]
Options2 = []
OverwriteCaret = ctBlock
ReadOnly = False
RightEdge = 80
RightEdgeColor = clSilver
ScrollBars = ssBoth
SelectionMode = smNormal
TabWidth = 8
WantTabs = False
end end
object AutoOnOptionsCheckGroup: TCheckGroup object AutoOnOptionsCheckGroup: TCheckGroup
AnchorSideLeft.Control = EditTemplateGroupBox AnchorSideLeft.Control = EditTemplateGroupBox
@ -522,75 +829,188 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 30 Height = 30
Top = 33 Top = 38
Width = 469 Width = 469
HelpContext = 0
Align = alNone
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoFill = True AutoFill = True
AutoSize = True AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'AutoOnOptionsCheckGroup' Caption = 'AutoOnOptionsCheckGroup'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6 ChildSizing.TopBottomSpacing = 6
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ColumnLayout = clHorizontalThenVertical
Columns = 2 Columns = 2
Constraints.MinHeight = 30 Constraints.MinHeight = 30
Ctl3D = False
Enabled = True
ParentFont = True
ParentColor = True
ParentCtl3D = True
ParentShowHint = True
TabOrder = 3 TabOrder = 3
Visible = True
end end
end end
object BtnPanel: TPanel object BtnPanel: TPanel
Height = 35 Left = 0
Top = 507 Height = 50
Top = 492
Width = 497 Width = 497
HelpContext = 0
Align = alBottom Align = alBottom
Alignment = taCenter
AutoSize = True AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 35 BevelWidth = 1
ClientWidth = 497 BorderWidth = 0
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 46
ClientWidth = 493
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
FullRepaint = True
ParentColor = True
ParentFont = True
ParentShowHint = True
TabOrder = 3 TabOrder = 3
TabStop = False
Visible = True
object OkButton: TBitBtn object OkButton: TBitBtn
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 335 Left = 326
Height = 23 Height = 34
Top = 6 Top = 6
Width = 75 Width = 75
HelpContext = 0
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = False
Caption = '&OK' Caption = '&OK'
Constraints.MinWidth = 75 Constraints.MinWidth = 75
Default = True Default = True
Enabled = True
Kind = bkOK Kind = bkOK
Layout = blGlyphLeft
Margin = -1
ModalResult = 1 ModalResult = 1
NumGlyphs = 0 NumGlyphs = 0
OnClick = OkButtonClick OnClick = OkButtonClick
ParentFont = True
ParentShowHint = True
Spacing = 3
TabOrder = 0 TabOrder = 0
TabStop = True
Visible = True
end end
object CancelButton: TBitBtn object CancelButton: TBitBtn
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 416 Left = 407
Height = 23 Height = 34
Top = 6 Top = 6
Width = 75 Width = 80
HelpContext = 0
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
Constraints.MinWidth = 75 Constraints.MinWidth = 75
Default = False
Enabled = True
Kind = bkCancel Kind = bkCancel
Layout = blGlyphLeft
Margin = -1
ModalResult = 2 ModalResult = 2
NumGlyphs = 0 NumGlyphs = 0
ParentFont = True
ParentShowHint = True
Spacing = 3
TabOrder = 1 TabOrder = 1
TabStop = True
Visible = True
end
object HelpButton: TBitBtn
Left = 6
Height = 34
Top = 6
Width = 66
HelpContext = 0
Align = alLeft
AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = False
Caption = '&Help'
Default = False
Enabled = True
Kind = bkHelp
Layout = blGlyphLeft
Margin = -1
ModalResult = 0
NumGlyphs = 0
OnClick = HelpButtonClick
ParentFont = True
ParentShowHint = True
Spacing = 3
TabOrder = 2
TabStop = True
Visible = True
end end
end end
object ASynPasSyn: TSynFreePascalSyn object ASynPasSyn: TSynFreePascalSyn
Enabled = False Enabled = False
CompilerMode = pcmObjFPC
NestedComments = True NestedComments = True
left = 304 left = 304
top = 344 top = 344

342
ide/codetemplatesdlg.lrs
View File

@ -2,82 +2,176 @@
LazarusResources.Add('TCodeTemplateDialog','FORMDATA',[ LazarusResources.Add('TCodeTemplateDialog','FORMDATA',[
'TPF0'#19'TCodeTemplateDialog'#18'CodeTemplateDialog'#4'Left'#3#29#1#6'Height' 'TPF0'#19'TCodeTemplateDialog'#18'CodeTemplateDialog'#4'Left'#3#29#1#6'Height'
+#3#30#2#3'Top'#2'z'#5'Width'#3#241#1#13'ActiveControl'#7#12'FilenameEdit'#11 +#3#30#2#3'Top'#2'z'#5'Width'#3#241#1#11'HelpContext'#2#0#13'ActiveControl'#7
+'BorderIcons'#11#12'biSystemMenu'#0#7'Caption'#6#18'CodeTemplateDialog'#12'C' +#12'FilenameEdit'#5'Align'#7#6'alNone'#14'AllowDropFiles'#8#10'AutoScroll'#9
+'lientHeight'#3#30#2#11'ClientWidth'#3#241#1#7'OnClose'#7#9'FormClose'#8'OnC' +#8'AutoSize'#8#11'BorderIcons'#11#12'biSystemMenu'#0#11'BorderStyle'#7#10'bs'
+'reate'#7#10'FormCreate'#10'ParentFont'#8#10'LCLVersion'#6#6'0.9.25'#0#9'TGr' +'Sizeable'#7'Caption'#6#18'CodeTemplateDialog'#28'ChildSizing.LeftRightSpaci'
+'oupBox'#16'FilenameGroupBox'#4'Left'#2#6#6'Height'#2'3'#3'Top'#2#6#5'Width' +'ng'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'ChildSizing.HorizontalSpaci'
+#3#229#1#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#16'Fi' +'ng'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'
+'lenameGroupBox'#12'ClientHeight'#2'!'#11'ClientWidth'#3#225#1#8'TabOrder'#2 +#2#0#12'ClientHeight'#3#30#2#11'ClientWidth'#3#241#1#8'DockSite'#8#8'DragKin'
+#0#0#5'TEdit'#12'FilenameEdit'#23'AnchorSideRight.Control'#7#14'FilenameButt' +'d'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'Font.Height'#2#0#10
+'on'#4'Left'#2#9#6'Height'#2#23#3'Top'#2#4#5'Width'#3#179#1#7'Anchors'#11#5 +'Font.Style'#11#0#9'FormStyle'#7#8'fsNormal'#7'OnClose'#7#9'FormClose'#8'OnC'
+'akTop'#6'akLeft'#7'akRight'#0#19'BorderSpacing.Right'#2#5#8'TabOrder'#2#0#4 +'reate'#7#10'FormCreate'#14'ParentBiDiMode'#9#10'ParentFont'#8#8'Position'#7
+'Text'#6#12'FilenameEdit'#0#0#7'TButton'#14'FilenameButton'#23'AnchorSideRig' +#10'poDesigned'#13'ShowInTaskBar'#7#9'stDefault'#14'UseDockManager'#8#10'LCL'
+'ht.Control'#7#16'FilenameGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom' +'Version'#6#6'0.9.27'#11'WindowState'#7#8'wsNormal'#0#9'TGroupBox'#16'Filena'
+#24'AnchorSideBottom.Control'#7#12'FilenameEdit'#21'AnchorSideBottom.Side'#7 +'meGroupBox'#4'Left'#2#6#6'Height'#2'3'#3'Top'#2#6#5'Width'#3#229#1#11'HelpC'
+#9'asrBottom'#4'Left'#3#193#1#6'Height'#2#23#3'Top'#2#4#5'Width'#2#26#7'Anch' +'ontext'#2#0#5'Align'#7#5'alTop'#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17
+'ors'#11#7'akRight'#8'akBottom'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6#3 +'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'
+'...'#7'OnClick'#7#19'FilenameButtonClick'#8'TabOrder'#2#1#0#0#0#9'TGroupBox' +#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'cc'
+#17'TemplatesGroupBox'#24'AnchorSideBottom.Control'#7#12'CancelButton'#4'Lef' +'aFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#16'Fil'
+'t'#2#6#6'Height'#3#167#0#3'Top'#2'?'#5'Width'#3#229#1#5'Align'#7#5'alTop'#20 +'enameGroupBox'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBotto'
+'BorderSpacing.Around'#2#6#7'Caption'#6#17'TemplatesGroupBox'#12'ClientHeigh' +'mSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.Vertical'
+'t'#3#149#0#11'ClientWidth'#3#225#1#8'TabOrder'#2#1#0#8'TListBox'#15'Templat' +'Spacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeight'#2' '#11'C'
+'eListBox'#22'AnchorSideLeft.Control'#7#17'TemplatesGroupBox'#21'AnchorSideT' +'lientWidth'#3#225#1#5'Ctl3D'#8#8'DockSite'#8#10'DragCursor'#7#6'crDrag'#8'D'
+'op.Control'#7#17'TemplatesGroupBox'#23'AnchorSideRight.Control'#7#9'AddButt' +'ragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMo'
+'on'#24'AnchorSideBottom.Control'#7#17'TemplatesGroupBox'#21'AnchorSideBotto' +'de'#9#11'ParentColor'#9#11'ParentCtl3D'#9#10'ParentFont'#9#14'ParentShowHin'
+'m.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#137#0#3'Top'#2#6#5'Width'#3 +'t'#9#8'TabOrder'#2#0#7'TabStop'#8#7'Visible'#9#0#5'TEdit'#12'FilenameEdit'
+';'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#18'BorderSpa' +#23'AnchorSideRight.Control'#7#14'FilenameButton'#4'Left'#2#9#6'Height'#2#23
+'cing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#20'Bor' +#3'Top'#2#4#5'Width'#3#179#1#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anch'
+'derSpacing.Bottom'#2#6#17'OnSelectionChange'#7#30'TemplateListBoxSelectionC' +'ors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#8#10'AutoSelect'#8#18'B'
+'hange'#8'TabOrder'#2#0#0#0#7'TButton'#9'AddButton'#21'AnchorSideTop.Control' +'orderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#5
+#7#15'TemplateListBox'#23'AnchorSideRight.Control'#7#17'TemplatesGroupBox'#20 +#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.Ce'
+'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3'G'#1#6'Height'#2#30#3'Top'#2 +'llAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'cca'
+#6#5'Width'#3#148#0#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Rig' +'Fill'#8'CharCase'#7#8'ecNormal'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8
+'ht'#2#6#7'Caption'#6#9'AddButton'#7'OnClick'#7#14'AddButtonClick'#8'TabOrde' +'dmManual'#8'EchoMode'#7#8'emNormal'#7'Enabled'#9#9'MaxLength'#2#255#14'Pare'
+'r'#2#1#0#0#7'TButton'#12'DeleteButton'#22'AnchorSideLeft.Control'#7#9'AddBu' +'ntBidiMode'#9#10'ParentFont'#9#14'ParentShowHint'#9#12'PasswordChar'#6#1#0#8
+'tton'#21'AnchorSideTop.Control'#7#9'AddButton'#18'AnchorSideTop.Side'#7#9'a' +'ReadOnly'#8#7'TabStop'#9#8'TabOrder'#2#0#4'Text'#6#12'FilenameEdit'#7'Visib'
+'srBottom'#23'AnchorSideRight.Control'#7#9'AddButton'#20'AnchorSideRight.Sid' +'le'#9#0#0#7'TButton'#14'FilenameButton'#23'AnchorSideRight.Control'#7#16'Fi'
+'e'#7#9'asrBottom'#4'Left'#3'G'#1#6'Height'#2#30#3'Top'#2'*'#5'Width'#3#148#0 +'lenameGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom'
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#7'C' +'.Control'#7#12'FilenameEdit'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Lef'
+'aption'#6#12'DeleteButton'#7'OnClick'#7#17'DeleteButtonClick'#8'TabOrder'#2 +'t'#3#193#1#6'Height'#2#23#3'Top'#2#4#5'Width'#2#26#11'HelpContext'#2#0#5'Al'
+#3#0#0#7'TButton'#10'EditButton'#22'AnchorSideLeft.Control'#7#9'AddButton'#21 +'ign'#7#6'alNone'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#8#18'Bo'
+'AnchorSideTop.Control'#7#12'DeleteButton'#18'AnchorSideTop.Side'#7#9'asrBot' +'rderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#6
+'tom'#23'AnchorSideRight.Control'#7#12'DeleteButton'#20'AnchorSideRight.Side' +#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.Ce'
+#7#9'asrBottom'#4'Left'#3'G'#1#6'Height'#2#30#3'Top'#2'N'#5'Width'#3#148#0#7 +'llAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'cca'
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#7'Cap' +'Fill'#6'Cancel'#8#7'Caption'#6#3'...'#7'Default'#8#10'DragCursor'#7#6'crDra'
+'tion'#6#10'EditButton'#7'OnClick'#7#15'EditButtonClick'#8'TabOrder'#2#2#0#0 +'g'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11'ModalResu'
+#0#9'TGroupBox'#20'EditTemplateGroupBox'#21'AnchorSideTop.Control'#7#17'Temp' +'lt'#2#0#7'OnClick'#7#19'FilenameButtonClick'#10'ParentFont'#9#14'ParentShow'
+'latesGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Con' +'Hint'#9#8'TabOrder'#2#1#7'TabStop'#9#7'Visible'#9#0#0#0#9'TGroupBox'#17'Tem'
+'trol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBotto' +'platesGroupBox'#24'AnchorSideBottom.Control'#7#12'CancelButton'#4'Left'#2#6
+'m.Control'#7#8'BtnPanel'#4'Left'#2#6#6'Height'#3#9#1#3'Top'#3#236#0#5'Width' +#6'Height'#3#167#0#3'Top'#2'?'#5'Width'#3#229#1#11'HelpContext'#2#0#5'Align'
+#3#229#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'Border' +#7#5'alTop'#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2
+'Spacing.Around'#2#6#7'Caption'#6#20'EditTemplateGroupBox'#12'ClientHeight'#3 +#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing'
+#247#0#11'ClientWidth'#3#225#1#8'TabOrder'#2#2#0#9'TCheckBox'#17'UseMacrosCh' +'.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpac'
+'eckBox'#4'Left'#2#6#6'Height'#2#19#3'Top'#2#6#5'Width'#2'}'#20'BorderSpacin' +'ing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#17'TemplatesGroupBox'#28'C'
+'g.Bottom'#2#7#7'Caption'#6#17'UseMacrosCheckBox'#8'TabOrder'#2#0#0#0#7'TBut' +'hildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'Ch'
+'ton'#17'InsertMacroButton'#22'AnchorSideLeft.Control'#7#17'UseMacrosCheckBo' +'ildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'Chi'
+'x'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#17'Us' +'ldSizing.ControlsPerLine'#2#0#12'ClientHeight'#3#148#0#11'ClientWidth'#3#225
+'eMacrosCheckBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#20'AnchorSideRight.S' +#1#5'Ctl3D'#8#8'DockSite'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDra'
+'ide'#7#9'asrBottom'#4'Left'#3#131#0#6'Height'#2#23#3'Top'#2#4#5'Width'#2't' +'g'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11'ParentCol'
+#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#7'Capti' +'or'#9#11'ParentCtl3D'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2
+'on'#6#17'InsertMacroButton'#7'OnClick'#7#22'InsertMacroButtonClick'#8'TabOr' +#1#7'TabStop'#8#7'Visible'#9#0#8'TListBox'#15'TemplateListBox'#22'AnchorSide'
+'der'#2#2#0#0#8'TSynEdit'#15'TemplateSynEdit'#21'AnchorSideTop.Control'#7#23 +'Left.Control'#7#17'TemplatesGroupBox'#21'AnchorSideTop.Control'#7#17'Templa'
+'AutoOnOptionsCheckGroup'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSid' +'tesGroupBox'#23'AnchorSideRight.Control'#7#9'AddButton'#24'AnchorSideBottom'
+'eRight.Control'#7#20'EditTemplateGroupBox'#20'AnchorSideRight.Side'#7#9'asr' +'.Control'#7#17'TemplatesGroupBox'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4
+'Bottom'#24'AnchorSideBottom.Control'#7#20'EditTemplateGroupBox'#21'AnchorSi' +'Left'#2#6#6'Height'#3#136#0#3'Top'#2#6#5'Width'#3';'#1#11'HelpContext'#2#0#5
,'deBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#172#0#3'Top'#2'E'#5'W' ,'Align'#7#6'alNone'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0
+'idth'#3#213#1#20'BorderSpacing.Around'#2#6#7'Anchors'#11#5'akTop'#6'akLeft' +#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'
+#7'akRight'#8'akBottom'#0#11'Font.Height'#2#242#9'Font.Name'#6#7'courier'#10 +#2#6#20'BorderSpacing.Bottom'#2#6#20'BorderSpacing.Around'#2#0'!BorderSpacin'
+'Font.Pitch'#7#7'fpFixed'#11'ParentColor'#8#10'ParentFont'#8#8'TabOrder'#2#1 +'g.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7
+#24'BookMarkOptions.OnChange'#13#10'Keystrokes'#14#1#7'Command'#2#3#8'ShortC' +'ccaFill'#11'BorderStyle'#7#8'bsSingle'#16'ClickOnSelChange'#9#7'Columns'#2#0
+'ut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7'Command'#3#211#0#8'Sho' +#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'
+'rtCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7'Command'#2'h'#8'Shor' +#14'ExtendedSelect'#9#7'Enabled'#9#14'IntegralHeight'#8#10'ItemHeight'#2#0#11
+'tCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1#7'Command'#2#1#8'S' +'MultiSelect'#8#17'OnSelectionChange'#7#30'TemplateListBoxSelectionChange'#14
+'hortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7'Command'#2#5#8'Sh' +'ParentBidiMode'#9#14'ParentShowHint'#9#10'ParentFont'#9#6'Sorted'#8#5'Style'
+'ortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'Command'#2#2#8'Sh' +#7#10'lbStandard'#8'TabOrder'#2#0#7'TabStop'#9#8'TopIndex'#2#255#7'Visible'#9
+'ortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1#7'Command'#2#6#8'S' +#0#0#7'TButton'#9'AddButton'#21'AnchorSideTop.Control'#7#15'TemplateListBox'
+'hortCut'#3'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7'Command'#2#10#8 +#23'AnchorSideRight.Control'#7#17'TemplatesGroupBox'#20'AnchorSideRight.Side'
+'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3'" '#0#1#7'Command'#2#14#8 +#7#9'asrBottom'#4'Left'#3'G'#1#6'Height'#2#30#3'Top'#2#6#5'Width'#3#148#0#11
+'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#5'akTop'#7'akRight'#0#8
+'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderS'
+'pacing.Right'#2#6#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0
+'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlign'
+'Vertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#9'AddButton'#7'Default'#8#10
+'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBid'
+'iMode'#9#11'ModalResult'#2#0#7'OnClick'#7#14'AddButtonClick'#10'ParentFont'
+#9#14'ParentShowHint'#9#8'TabOrder'#2#1#7'TabStop'#9#7'Visible'#9#0#0#7'TBut'
+'ton'#12'DeleteButton'#22'AnchorSideLeft.Control'#7#9'AddButton'#21'AnchorSi'
+'deTop.Control'#7#9'AddButton'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'Anch'
+'orSideRight.Control'#7#9'AddButton'#20'AnchorSideRight.Side'#7#9'asrBottom'
+#4'Left'#3'G'#1#6'Height'#2#30#3'Top'#2'*'#5'Width'#3#148#0#11'HelpContext'#2
+#0#5'Align'#7#6'alNone'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'Auto'
+'Size'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#6#19'BorderSpaci'
+'ng.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!Bo'
+'rderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVer'
+'tical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#12'DeleteButton'#7'Default'#8
+#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'Parent'
+'BidiMode'#9#11'ModalResult'#2#0#7'OnClick'#7#17'DeleteButtonClick'#10'Paren'
+'tFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#3#7'TabStop'#9#7'Visible'#9#0#0
+#7'TButton'#10'EditButton'#22'AnchorSideLeft.Control'#7#9'AddButton'#21'Anch'
+'orSideTop.Control'#7#12'DeleteButton'#18'AnchorSideTop.Side'#7#9'asrBottom'
+#23'AnchorSideRight.Control'#7#12'DeleteButton'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#3'G'#1#6'Height'#2#30#3'Top'#2'N'#5'Width'#3#148#0#11'He'
+'lpContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRi'
+'ght'#0#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#6#19
+'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Arou'
+'nd'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.C'
+'ellAlignVertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#10'EditButton'#7'De'
+'fault'#8#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9
+#14'ParentBidiMode'#9#11'ModalResult'#2#0#7'OnClick'#7#15'EditButtonClick'#10
+'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#2#7'TabStop'#9#7'Visible'#9
+#0#0#0#9'TGroupBox'#20'EditTemplateGroupBox'#21'AnchorSideTop.Control'#7#17
+'TemplatesGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight'
+'.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideB'
+'ottom.Control'#7#8'BtnPanel'#4'Left'#2#6#6'Height'#3#250#0#3'Top'#3#236#0#5
+'Width'#3#229#1#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#5'akT'
+'op'#6'akLeft'#7'akRight'#8'akBottom'#0#8'AutoSize'#8#18'BorderSpacing.Left'
+#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.'
+'Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'
+#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6
+#20'EditTemplateGroupBox'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizin'
+'g.TopBottomSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizin'
+'g.VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeight'
+#3#231#0#11'ClientWidth'#3#225#1#5'Ctl3D'#8#8'DockSite'#8#10'DragCursor'#7#6
+'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'P'
+'arentBidiMode'#9#11'ParentColor'#9#11'ParentCtl3D'#9#10'ParentFont'#9#14'Pa'
+'rentShowHint'#9#8'TabOrder'#2#2#7'TabStop'#8#7'Visible'#9#0#9'TCheckBox'#17
+'UseMacrosCheckBox'#4'Left'#2#6#6'Height'#2#22#3'Top'#2#6#5'Width'#3#158#0#11
+'HelpContext'#2#0#5'Align'#7#6'alNone'#11'AllowGrayed'#8#8'AutoSize'#9#18'Bo'
+'rderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0
,#20'BorderSpacing.Bottom'#2#7#20'BorderSpacing.Around'#2#0'!BorderSpacing.Ce'
+'llAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'cca'
+'Fill'#7'Caption'#6#17'UseMacrosCheckBox'#7'Checked'#8#10'DragCursor'#7#6'cr'
+'Drag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'Par'
+'entColor'#9#10'ParentFont'#9#14'ParentShowHint'#9#14'ParentBidiMode'#9#5'St'
+'ate'#7#11'cbUnchecked'#8'TabOrder'#2#0#7'TabStop'#9#11'UseOnChange'#8#7'Vis'
+'ible'#9#0#0#7'TButton'#17'InsertMacroButton'#22'AnchorSideLeft.Control'#7#17
+'UseMacrosCheckBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.'
+'Control'#7#17'UseMacrosCheckBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#20'A'
+'nchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#190#0#6'Height'#2#29#3'Top'#2
+#3#5'Width'#3#130#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'AutoSize'#9#18
+'BorderSpacing.Left'#2#20#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2
+#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.'
+'CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'c'
+'caFill'#6'Cancel'#8#7'Caption'#6#17'InsertMacroButton'#7'Default'#8#10'Drag'
+'Cursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMod'
+'e'#9#11'ModalResult'#2#0#7'OnClick'#7#22'InsertMacroButtonClick'#10'ParentF'
+'ont'#9#14'ParentShowHint'#9#8'TabOrder'#2#2#7'TabStop'#9#7'Visible'#9#0#0#8
+'TSynEdit'#15'TemplateSynEdit'#3'Tag'#2#0#21'AnchorSideTop.Control'#7#23'Aut'
+'oOnOptionsCheckGroup'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRi'
+'ght.Control'#7#20'EditTemplateGroupBox'#20'AnchorSideRight.Side'#7#9'asrBot'
+'tom'#24'AnchorSideBottom.Control'#7#20'EditTemplateGroupBox'#21'AnchorSideB'
+'ottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#151#0#3'Top'#2'J'#5'Widt'
+'h'#3#213#1#11'HelpContext'#2#0#5'Align'#7#6'alNone'#11'BlockIndent'#2#2#18
+'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2
+#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.'
+'CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'c'
+'caFill'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#5'Color'#7
+#7'clWhite'#18'CFDividerDrawLevel'#2#0#5'Ctl3D'#8#7'Enabled'#9#11'Font.Heigh'
+'t'#2#242#9'Font.Name'#6#7'courier'#10'Font.Pitch'#7#7'fpFixed'#12'Font.Qual'
+'ity'#7#16'fqNonAntialiased'#10'Font.Style'#11#0#11'ParentColor'#8#11'Parent'
+'Ctl3D'#9#10'ParentFont'#8#14'ParentShowHint'#9#8'TabOrder'#2#1#7'Visible'#9
+#24'BookMarkOptions.OnChange'#13#11'BorderStyle'#7#8'bsSingle'#16'ExtraCharS'
+'pacing'#2#0#16'ExtraLineSpacing'#2#0#13'HideSelection'#8#11'InsertCaret'#7
+#14'ctVerticalLine'#10'InsertMode'#9#10'Keystrokes'#14#1#7'Command'#2#3#8'Sh'
+'ortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7'Command'#3#211#0#8
+'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7'Command'#2'h'#8'S'
+'hortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1#7'Command'#2#1#8
+'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7'Command'#2#5#8'S'
+'hortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'Command'#2#2#8'S'
+'hortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1#7'Command'#2#6#8
+'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7'Command'#2#10
+#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3'" '#0#1#7'Command'#2#14#8
+'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7'Command'#2#9#8 +'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7'Command'#2#9#8
+'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'ShortCut'#3'! '#0#1#7'Command'#2#13#8 +'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'ShortCut'#3'! '#0#1#7'Command'#2#13#8
+'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7'Command'#2#7#8 +'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7'Command'#2#7#8
@ -99,7 +193,7 @@ LazarusResources.Add('TCodeTemplateDialog','FORMDATA',[
+'ut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command'#3'Y'#2#8 +'ut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command'#3'Y'#2#8
+'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Command'#3'-' +'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Command'#3'-'
+#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7'Command'#3 +#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7'Command'#3
+'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0#1#7'Comman' ,'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0#1#7'Comman'
+'d'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'C' +'d'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'C'
+'ommand'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'#3'7@'#0#1 +'ommand'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'#3'7@'#0#1
+#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1#7'Command'#3'6'#1#8'ShortCut'#3'9@' +#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1#7'Command'#3'6'#1#8'ShortCut'#3'9@'
@ -112,31 +206,73 @@ LazarusResources.Add('TCodeTemplateDialog','FORMDATA',[
+'nd'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233#0#8'ShortCut'#3'L`'#0#1#7 +'nd'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233#0#8'ShortCut'#3'L`'#0#1#7
+'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1 +'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1
+#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#13'Lines.Strings'#1#6#15'TemplateS' +#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#13'Lines.Strings'#1#6#15'TemplateS'
+'ynEdit'#0#0#0#11'TCheckGroup'#23'AutoOnOptionsCheckGroup'#22'AnchorSideLeft' +'ynEdit'#0#11'MaxLeftChar'#3#0#4#7'MaxUndo'#3#0#4#7'Options'#11#12'eoAutoInd'
+'.Control'#7#20'EditTemplateGroupBox'#21'AnchorSideTop.Control'#7#17'InsertM' +'ent'#17'eoDragDropEditing'#11'eoGroupUndo'#15'eoScrollPastEol'#16'eoShowScr'
+'acroButton'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Contro' +'ollHint'#16'eoSmartTabDelete'#11'eoSmartTabs'#14'eoTabsToSpaces'#20'eoTrimT'
+'l'#7#20'EditTemplateGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Lef' +'railingSpaces'#18'eoBracketHighlight'#0#8'Options2'#11#0#14'OverwriteCaret'
+'t'#2#6#6'Height'#2#30#3'Top'#2'!'#5'Width'#3#213#1#7'Anchors'#11#5'akTop'#6 +#7#7'ctBlock'#8'ReadOnly'#8#9'RightEdge'#2'P'#14'RightEdgeColor'#7#8'clSilve'
+'akLeft'#7'akRight'#0#8'AutoFill'#9#8'AutoSize'#9#20'BorderSpacing.Around'#2 +'r'#10'ScrollBars'#7#6'ssBoth'#13'SelectionMode'#7#8'smNormal'#8'TabWidth'#2
+#6#7'Caption'#6#23'AutoOnOptionsCheckGroup'#28'ChildSizing.LeftRightSpacing' +#8#8'WantTabs'#8#0#0#11'TCheckGroup'#23'AutoOnOptionsCheckGroup'#22'AnchorSi'
+#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7 +'deLeft.Control'#7#20'EditTemplateGroupBox'#21'AnchorSideTop.Control'#7#17'I'
+#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomoge' +'nsertMacroButton'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.'
+'nousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'C' +'Control'#7#20'EditTemplateGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'
+'hildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29 +#4'Left'#2#6#6'Height'#2#30#3'Top'#2'&'#5'Width'#3#213#1#11'HelpContext'#2#0
+'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#2#7'Column' +#5'Align'#7#6'alNone'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoFi'
+'s'#2#2#21'Constraints.MinHeight'#2#30#8'TabOrder'#2#3#0#0#0#6'TPanel'#8'Btn' +'ll'#9#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19
+'Panel'#6'Height'#2'#'#3'Top'#3#251#1#5'Width'#3#241#1#5'Align'#7#8'alBottom' +'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Arou'
+#8'AutoSize'#9#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'#'#11'ClientWid' +'nd'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.C'
+'th'#3#241#1#8'TabOrder'#2#3#0#7'TBitBtn'#8'OkButton'#21'AnchorSideBottom.Si' +'ellAlignVertical'#7#7'ccaFill'#7'Caption'#6#23'AutoOnOptionsCheckGroup'#28
+'de'#7#9'asrBottom'#4'Left'#3'O'#1#6'Height'#2#23#3'Top'#2#6#5'Width'#2'K'#5 +'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'C'
,'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6 +'hildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#29'Ch'
+#3'&OK'#20'Constraints.MinWidth'#2'K'#7'Default'#9#4'Kind'#7#4'bkOK'#11'Moda' +'ildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.'
+'lResult'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#13'OkButtonClick'#8'TabOrder'#2#0 +'EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizo'
+#0#0#7'TBitBtn'#12'CancelButton'#20'AnchorSideRight.Side'#7#9'asrBottom'#21 +'ntal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChil'
+'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#160#1#6'Height'#2#23#3'Top' +'ds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizi'
+#2#6#5'Width'#2'K'#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSpacing.Arou' +'ng.ControlsPerLine'#2#2#12'ColumnLayout'#7#24'clHorizontalThenVertical'#7'C'
+'nd'#2#6#6'Cancel'#9#7'Caption'#6#6'Cancel'#20'Constraints.MinWidth'#2'K'#4 +'olumns'#2#2#21'Constraints.MinHeight'#2#30#5'Ctl3D'#8#7'Enabled'#9#10'Paren'
+'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0 +'tFont'#9#11'ParentColor'#9#11'ParentCtl3D'#9#14'ParentShowHint'#9#8'TabOrde'
+#0#17'TSynFreePascalSyn'#10'ASynPasSyn'#7'Enabled'#8#14'NestedComments'#9#4 +'r'#2#3#7'Visible'#9#0#0#0#6'TPanel'#8'BtnPanel'#4'Left'#2#0#6'Height'#2'2'#3
+'Top'#3#236#1#5'Width'#3#241#1#11'HelpContext'#2#0#5'Align'#7#8'alBottom'#9
+'Alignment'#7#8'taCenter'#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'Border'
+'Spacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20
+'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'
+#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#10'BevelInner'#7#6'bvNone'
+#10'BevelOuter'#7#6'bvNone'#10'BevelWidth'#2#1#11'BorderWidth'#2#0#11'Border'
+'Style'#7#6'bsNone'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopB'
+'ottomSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.Vert'
+'icalSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeight'#2'.'
+#11'ClientWidth'#3#237#1#8'DockSite'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'
+#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'FullRepaint'#9#11'Par'
+'entColor'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#3#7'TabStop'
+#8#7'Visible'#9#0#7'TBitBtn'#8'OkButton'#21'AnchorSideBottom.Side'#7#9'asrBo'
+'ttom'#4'Left'#3'F'#1#6'Height'#2'"'#3'Top'#2#6#5'Width'#2'K'#11'HelpContext'
+#2#0#5'Align'#7#7'alRight'#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'Borde'
+'rSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0
+#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFil'
+'l'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6
+#3'&OK'#20'Constraints.MinWidth'#2'K'#7'Default'#9#7'Enabled'#9#4'Kind'#7#4
+'bkOK'#6'Layout'#7#11'blGlyphLeft'#6'Margin'#2#255#11'ModalResult'#2#1#9'Num'
+'Glyphs'#2#0#7'OnClick'#7#13'OkButtonClick'#10'ParentFont'#9#14'ParentShowHi'
+'nt'#9#7'Spacing'#2#3#8'TabOrder'#2#0#7'TabStop'#9#7'Visible'#9#0#0#7'TBitBt'
+'n'#12'CancelButton'#20'AnchorSideRight.Side'#7#9'asrBottom'#21'AnchorSideBo'
+'ttom.Side'#7#9'asrBottom'#4'Left'#3#151#1#6'Height'#2'"'#3'Top'#2#6#5'Width'
+#2'P'#11'HelpContext'#2#0#5'Align'#7#7'alRight'#8'AutoSize'#9#18'BorderSpaci'
,'ng.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'Borde'
+'rSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignH'
+'orizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#6
+'Cancel'#9#7'Caption'#6#6'Cancel'#20'Constraints.MinWidth'#2'K'#7'Default'#8
+#7'Enabled'#9#4'Kind'#7#8'bkCancel'#6'Layout'#7#11'blGlyphLeft'#6'Margin'#2
+#255#11'ModalResult'#2#2#9'NumGlyphs'#2#0#10'ParentFont'#9#14'ParentShowHint'
+#9#7'Spacing'#2#3#8'TabOrder'#2#1#7'TabStop'#9#7'Visible'#9#0#0#7'TBitBtn'#10
+'HelpButton'#4'Left'#2#6#6'Height'#2'"'#3'Top'#2#6#5'Width'#2'B'#11'HelpCont'
+'ext'#2#0#5'Align'#7#6'alLeft'#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'B'
+'orderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2
+#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaF'
+'ill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'
+#6#5'&Help'#7'Default'#8#7'Enabled'#9#4'Kind'#7#6'bkHelp'#6'Layout'#7#11'blG'
+'lyphLeft'#6'Margin'#2#255#11'ModalResult'#2#0#9'NumGlyphs'#2#0#7'OnClick'#7
+#15'HelpButtonClick'#10'ParentFont'#9#14'ParentShowHint'#9#7'Spacing'#2#3#8
+'TabOrder'#2#2#7'TabStop'#9#7'Visible'#9#0#0#0#17'TSynFreePascalSyn'#10'ASyn'
+'PasSyn'#7'Enabled'#8#12'CompilerMode'#7#9'pcmObjFPC'#14'NestedComments'#9#4
+'left'#3'0'#1#3'top'#3'X'#1#0#0#0 +'left'#3'0'#1#3'top'#3'X'#1#0#0#0
]); ]);

11
ide/codetemplatesdlg.pas
View File

@ -41,7 +41,8 @@ uses
// IDEIntf // IDEIntf
IDECommands, TextTools, SrcEditorIntf, MenuIntf, IDEWindowIntf, LazIDEIntf, IDECommands, TextTools, SrcEditorIntf, MenuIntf, IDEWindowIntf, LazIDEIntf,
// IDE // IDE
IDEProcs, InputHistory, LazarusIDEStrConsts, EditorOptions, CodeMacroSelect; IDEProcs, InputHistory, LazarusIDEStrConsts, EditorOptions, CodeMacroSelect,
IDEContextHelpEdit;
type type
TAutoCompleteOption = ( TAutoCompleteOption = (
@ -67,6 +68,7 @@ type
AddButton: TButton; AddButton: TButton;
ASynPasSyn: TSynFreePascalSyn; ASynPasSyn: TSynFreePascalSyn;
AutoOnOptionsCheckGroup: TCheckGroup; AutoOnOptionsCheckGroup: TCheckGroup;
HelpButton: TBitBtn;
EditTemplateGroupBox: TGroupBox; EditTemplateGroupBox: TGroupBox;
OkButton: TBitBtn; OkButton: TBitBtn;
CancelButton: TBitBtn; CancelButton: TBitBtn;
@ -88,6 +90,7 @@ type
procedure FilenameButtonClick(Sender: TObject); procedure FilenameButtonClick(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
procedure InsertMacroButtonClick(Sender: TObject); procedure InsertMacroButtonClick(Sender: TObject);
procedure OkButtonClick(Sender: TObject); procedure OkButtonClick(Sender: TObject);
procedure OnCopyMenuItem(Sender: TObject); procedure OnCopyMenuItem(Sender: TObject);
@ -695,6 +698,7 @@ begin
OkButton.Caption:=lisLazBuildOk; OkButton.Caption:=lisLazBuildOk;
OkButton.LoadGlyphFromLazarusResource('btn_ok'); OkButton.LoadGlyphFromLazarusResource('btn_ok');
CancelButton.LoadGlyphFromLazarusResource('btn_cancel'); CancelButton.LoadGlyphFromLazarusResource('btn_cancel');
HelpButton.LoadGlyphFromLazarusResource('btn_help');
FilenameGroupBox.Caption:=lisToDoLFile; FilenameGroupBox.Caption:=lisToDoLFile;
UseMacrosCheckBox.Caption:=lisEnableMacros; UseMacrosCheckBox.Caption:=lisEnableMacros;
InsertMacroButton.Caption:=lisCTInsertMacro; InsertMacroButton.Caption:=lisCTInsertMacro;
@ -741,6 +745,11 @@ begin
BuildPopupMenu; BuildPopupMenu;
end; end;
procedure TCodeTemplateDialog.HelpButtonClick(Sender: TObject);
begin
ShowContextHelpForIDE(Self);
end;
procedure TCodeTemplateDialog.InsertMacroButtonClick(Sender: TObject); procedure TCodeTemplateDialog.InsertMacroButtonClick(Sender: TObject);
begin begin
DoInsertMacro; DoInsertMacro;