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

IDE: codetools defines editor: added button panel, patch #28643 from Alexey Torgashin

Browse Source 
git-svn-id: trunk@49789 -
This commit is contained in:
mattias 2015-09-08 22:05:48 +00:00
parent 01fb926e17
commit b29be5112c
2 changed files with 170 additions and 340 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

464
ide/codetoolsdefines.lfm
View File

@ -3,17 +3,18 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
Height = 500 Height = 500
Top = 228 Top = 228
Width = 544 Width = 544
BorderStyle = bsSizeToolWin BorderIcons = [biSystemMenu, biMaximize]
Caption = 'CodeToolsDefinesEditor' Caption = 'CodeToolsDefinesEditor'
ClientHeight = 480 ClientHeight = 500
ClientWidth = 544 ClientWidth = 544
KeyPreview = True KeyPreview = True
Menu = MainMenu Menu = MainMenu
OnClose = FormClose OnClose = FormClose
OnKeyDown = CodeToolsDefinesEditorKeyDown OnKeyDown = CodeToolsDefinesEditorKeyDown
OnKeyUp = CodeToolsDefinesEditorKeyUp OnKeyUp = CodeToolsDefinesEditorKeyUp
OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.29' LCLVersion = '1.5'
object DefineTreeView: TTreeView object DefineTreeView: TTreeView
Left = 6 Left = 6
Height = 123 Height = 123
@ -21,7 +22,6 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
Width = 532 Width = 532
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
DefaultItemHeight = 17
ReadOnly = True ReadOnly = True
TabOrder = 0 TabOrder = 0
OnSelectionChanged = DefineTreeViewSelectionChanged OnSelectionChanged = DefineTreeViewSelectionChanged
@ -29,36 +29,36 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
object SelectedItemGroupBox: TGroupBox object SelectedItemGroupBox: TGroupBox
Left = 6 Left = 6
Height = 328 Height = 313
Top = 146 Top = 146
Width = 532 Width = 532
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'SelectedItemGroupBox' Caption = 'SelectedItemGroupBox'
ClientHeight = 310 ClientHeight = 294
ClientWidth = 528 ClientWidth = 528
TabOrder = 1 TabOrder = 2
object NameLabel: TLabel object NameLabel: TLabel
Left = 10 Left = 10
Height = 16 Height = 17
Top = 26 Top = 26
Width = 61 Width = 77
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'NameLabel' Caption = 'NameLabel'
ParentColor = False ParentColor = False
end end
object DescriptionLabel: TLabel object DescriptionLabel: TLabel
Left = 10 Left = 10
Height = 16 Height = 17
Top = 53 Top = 53
Width = 89 Width = 115
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'DescriptionLabel' Caption = 'DescriptionLabel'
ParentColor = False ParentColor = False
end end
object TypeLabel: TLabel object TypeLabel: TLabel
Left = 6 Left = 6
Height = 16 Height = 17
Top = 6 Top = 6
Width = 516 Width = 516
Align = alTop Align = alTop
@ -68,32 +68,34 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
object VariableLabel: TLabel object VariableLabel: TLabel
Left = 10 Left = 10
Height = 16 Height = 17
Top = 78 Top = 78
Width = 71 Width = 94
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'VariableLabel' Caption = 'VariableLabel'
ParentColor = False ParentColor = False
end end
object ValueNoteBook: TPageControl object ValueNoteBook: TPageControl
Left = 6 Left = 6
Height = 198 Height = 182
Top = 106 Top = 106
Width = 516 Width = 516
ActivePage = ValueAsTextPage
Align = alBottom Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabIndex = 0
TabOrder = 3
OnChange = ValueNoteBookPageChanged OnChange = ValueNoteBookPageChanged
TabOrder = 0
object ValueAsTextPage: TTabSheet object ValueAsTextPage: TTabSheet
Caption = 'ValueAsTextPage' Caption = 'ValueAsTextPage'
ClientWidth = 508 ClientHeight = 151
ClientHeight = 170 ClientWidth = 512
inline ValueAsTextSynEdit: TSynEdit inline ValueAsTextSynEdit: TSynEdit
Left = 0 Left = 0
Height = 170 Height = 151
Top = 0 Top = 0
Width = 508 Width = 512
Align = alClient Align = alClient
Font.Height = -16 Font.Height = -16
Font.Name = 'courier' Font.Name = 'courier'
@ -104,30 +106,19 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
TabOrder = 0 TabOrder = 0
BookMarkOptions.Xoffset = -18 BookMarkOptions.Xoffset = -18
Gutter.Visible = False Gutter.Visible = False
Gutter.Width = 0 Gutter.Width = 61
Gutter.MouseActions = < Gutter.MouseActions = <
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 13 Command = emcOnMainGutterClick
MoveCaret = False
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbRight Button = mbRight
ClickCount = ccSingle Command = emcContextMenu
ClickDir = cdUp
Command = 12
MoveCaret = False
Option = 0
Priority = 0
end> end>
RightGutter.Width = 0
RightGutter.MouseActions = <>
Keystrokes = < Keystrokes = <
item item
Command = ecUp Command = ecUp
@ -451,149 +442,108 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end> end>
MouseActions = < MouseActions = <
item item
Shift = []
ShiftMask = [ssShift, ssAlt] ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 1 Command = emcStartSelections
MoveCaret = True MoveCaret = True
Option = 0
Priority = 0
end end
item item
Shift = [ssShift] Shift = [ssShift]
ShiftMask = [ssShift, ssAlt] ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 1 Command = emcStartSelections
MoveCaret = True MoveCaret = True
Option = 1 Option = 1
Priority = 0
end end
item item
Shift = [ssAlt] Shift = [ssAlt]
ShiftMask = [ssShift, ssAlt] ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 3 Command = emcStartColumnSelections
MoveCaret = True MoveCaret = True
Option = 0
Priority = 0
end end
item item
Shift = [ssShift, ssAlt] Shift = [ssShift, ssAlt]
ShiftMask = [ssShift, ssAlt] ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 3 Command = emcStartColumnSelections
MoveCaret = True MoveCaret = True
Option = 1 Option = 1
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbRight Button = mbRight
ClickCount = ccSingle Command = emcContextMenu
ClickDir = cdUp
Command = 12
MoveCaret = False
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccDouble ClickCount = ccDouble
ClickDir = cdDown ClickDir = cdDown
Command = 6 Command = emcSelectWord
MoveCaret = True MoveCaret = True
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccTriple ClickCount = ccTriple
ClickDir = cdDown ClickDir = cdDown
Command = 7 Command = emcSelectLine
MoveCaret = True MoveCaret = True
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccQuad ClickCount = ccQuad
ClickDir = cdDown ClickDir = cdDown
Command = 8 Command = emcSelectPara
MoveCaret = True MoveCaret = True
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbMiddle Button = mbMiddle
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 10 Command = emcPasteSelection
MoveCaret = True MoveCaret = True
Option = 0
Priority = 0
end end
item item
Shift = [ssCtrl] Shift = [ssCtrl]
ShiftMask = [ssShift, ssAlt, ssCtrl] ShiftMask = [ssShift, ssAlt, ssCtrl]
Button = mbLeft Command = emcMouseLink
ClickCount = ccSingle
ClickDir = cdUp
Command = 11
MoveCaret = False
Option = 0
Priority = 0
end> end>
MouseTextActions = <>
MouseSelActions = < MouseSelActions = <
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 9 Command = emcStartDragMove
MoveCaret = False
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 9 Command = emcStartDragMove
MoveCaret = False
Option = 0
Priority = 0
end> end>
Lines.Strings = ( Lines.Strings = (
'ValueAsTextSynEdit' 'ValueAsTextSynEdit'
) )
Options = [eoDragDropEditing, eoHalfPageScroll, eoScrollByOneLess, eoScrollPastEol, eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces, eoBracketHighlight, eoHideRightMargin] Options = [eoBracketHighlight, eoHalfPageScroll, eoHideRightMargin, eoScrollByOneLess, eoScrollPastEol, eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces, eoDragDropEditing]
MouseOptions = [emDragDropEditing]
VisibleSpecialChars = [vscSpace, vscTabAtLast]
SelectedColor.BackPriority = 50
SelectedColor.ForePriority = 50
SelectedColor.FramePriority = 50
SelectedColor.BoldPriority = 50
SelectedColor.ItalicPriority = 50
SelectedColor.UnderlinePriority = 50
SelectedColor.StrikeOutPriority = 50
BracketHighlightStyle = sbhsBoth 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 TSynGutterPartList inline TSynGutterPartList
object TSynGutterMarks object TSynGutterMarks
Width = 23 Width = 24
MouseActions = <>
end end
object TSynGutterLineNumber object TSynGutterLineNumber
Width = 25 Width = 21
MouseActions = <> MouseActions = <>
MarkupInfo.Background = clBtnFace MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone MarkupInfo.Foreground = clNone
@ -604,35 +554,28 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
object TSynGutterChanges object TSynGutterChanges
Width = 4 Width = 4
MouseActions = <>
ModifiedColor = 59900 ModifiedColor = 59900
SavedColor = clGreen SavedColor = clGreen
end end
object TSynGutterSeparator object TSynGutterSeparator
Width = 2 Width = 2
MouseActions = <>
MarkupInfo.Background = clWhite
MarkupInfo.Foreground = clGray
end end
object TSynGutterCodeFolding object TSynGutterCodeFolding
MouseActions = < MouseActions = <
item item
Shift = []
ShiftMask = []
Button = mbRight Button = mbRight
ClickCount = ccSingle Command = emcCodeFoldContextMenu
ClickDir = cdUp
Command = 16
MoveCaret = False
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = [ssShift] ShiftMask = [ssShift]
Button = mbMiddle Button = mbMiddle
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 14 Command = emcCodeFoldCollaps
MoveCaret = False
Option = 0
Priority = 0
end end
item item
Shift = [ssShift] Shift = [ssShift]
@ -640,58 +583,36 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
Button = mbMiddle Button = mbMiddle
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 14 Command = emcCodeFoldCollaps
MoveCaret = False
Option = 1 Option = 1
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 0 Command = emcNone
MoveCaret = False
Option = 0
Priority = 0
end> end>
MarkupInfo.Background = clNone MarkupInfo.Background = clNone
MarkupInfo.Foreground = clGray MarkupInfo.Foreground = clGray
MouseActionsExpanded = < MouseActionsExpanded = <
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 14 Command = emcCodeFoldCollaps
MoveCaret = False
Option = 0
Priority = 0
end> end>
MouseActionsCollapsed = < MouseActionsCollapsed = <
item item
Shift = [ssCtrl] Shift = [ssCtrl]
ShiftMask = [ssCtrl] ShiftMask = [ssCtrl]
Button = mbLeft
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 15 Command = emcCodeFoldExpand
MoveCaret = False
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = [ssCtrl] ShiftMask = [ssCtrl]
Button = mbLeft
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 15 Command = emcCodeFoldExpand
MoveCaret = False
Option = 1 Option = 1
Priority = 0
end> end>
end end
end end
@ -699,8 +620,8 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
object ValueAsPathsPage: TTabSheet object ValueAsPathsPage: TTabSheet
Caption = 'ValueAsPathsPage' Caption = 'ValueAsPathsPage'
ClientWidth = 508 ClientHeight = 151
ClientHeight = 168 ClientWidth = 512
inline ValueAsFilePathsSynEdit: TSynEdit inline ValueAsFilePathsSynEdit: TSynEdit
AnchorSideRight.Control = DeleteFilePathBitBtn AnchorSideRight.Control = DeleteFilePathBitBtn
Left = 0 Left = 0
@ -719,30 +640,19 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
TabOrder = 0 TabOrder = 0
BookMarkOptions.Xoffset = -18 BookMarkOptions.Xoffset = -18
Gutter.Visible = False Gutter.Visible = False
Gutter.Width = 0 Gutter.Width = 61
Gutter.MouseActions = < Gutter.MouseActions = <
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 13 Command = emcOnMainGutterClick
MoveCaret = False
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbRight Button = mbRight
ClickCount = ccSingle Command = emcContextMenu
ClickDir = cdUp
Command = 12
MoveCaret = False
Option = 0
Priority = 0
end> end>
RightGutter.Width = 0
RightGutter.MouseActions = <>
Keystrokes = < Keystrokes = <
item item
Command = ecUp Command = ecUp
@ -1066,149 +976,108 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end> end>
MouseActions = < MouseActions = <
item item
Shift = []
ShiftMask = [ssShift, ssAlt] ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 1 Command = emcStartSelections
MoveCaret = True MoveCaret = True
Option = 0
Priority = 0
end end
item item
Shift = [ssShift] Shift = [ssShift]
ShiftMask = [ssShift, ssAlt] ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 1 Command = emcStartSelections
MoveCaret = True MoveCaret = True
Option = 1 Option = 1
Priority = 0
end end
item item
Shift = [ssAlt] Shift = [ssAlt]
ShiftMask = [ssShift, ssAlt] ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 3 Command = emcStartColumnSelections
MoveCaret = True MoveCaret = True
Option = 0
Priority = 0
end end
item item
Shift = [ssShift, ssAlt] Shift = [ssShift, ssAlt]
ShiftMask = [ssShift, ssAlt] ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 3 Command = emcStartColumnSelections
MoveCaret = True MoveCaret = True
Option = 1 Option = 1
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbRight Button = mbRight
ClickCount = ccSingle Command = emcContextMenu
ClickDir = cdUp
Command = 12
MoveCaret = False
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccDouble ClickCount = ccDouble
ClickDir = cdDown ClickDir = cdDown
Command = 6 Command = emcSelectWord
MoveCaret = True MoveCaret = True
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccTriple ClickCount = ccTriple
ClickDir = cdDown ClickDir = cdDown
Command = 7 Command = emcSelectLine
MoveCaret = True MoveCaret = True
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccQuad ClickCount = ccQuad
ClickDir = cdDown ClickDir = cdDown
Command = 8 Command = emcSelectPara
MoveCaret = True MoveCaret = True
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbMiddle Button = mbMiddle
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 10 Command = emcPasteSelection
MoveCaret = True MoveCaret = True
Option = 0
Priority = 0
end end
item item
Shift = [ssCtrl] Shift = [ssCtrl]
ShiftMask = [ssShift, ssAlt, ssCtrl] ShiftMask = [ssShift, ssAlt, ssCtrl]
Button = mbLeft Command = emcMouseLink
ClickCount = ccSingle
ClickDir = cdUp
Command = 11
MoveCaret = False
Option = 0
Priority = 0
end> end>
MouseTextActions = <>
MouseSelActions = < MouseSelActions = <
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 9 Command = emcStartDragMove
MoveCaret = False
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 9 Command = emcStartDragMove
MoveCaret = False
Option = 0
Priority = 0
end> end>
Lines.Strings = ( Lines.Strings = (
'ValueAsTextSynEdit' 'ValueAsTextSynEdit'
) )
Options = [eoDragDropEditing, eoHalfPageScroll, eoScrollByOneLess, eoScrollPastEol, eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces, eoBracketHighlight, eoHideRightMargin] Options = [eoBracketHighlight, eoHalfPageScroll, eoHideRightMargin, eoScrollByOneLess, eoScrollPastEol, eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces, eoDragDropEditing]
MouseOptions = [emDragDropEditing]
VisibleSpecialChars = [vscSpace, vscTabAtLast]
SelectedColor.BackPriority = 50
SelectedColor.ForePriority = 50
SelectedColor.FramePriority = 50
SelectedColor.BoldPriority = 50
SelectedColor.ItalicPriority = 50
SelectedColor.UnderlinePriority = 50
SelectedColor.StrikeOutPriority = 50
BracketHighlightStyle = sbhsBoth 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 TSynGutterPartList inline TSynGutterPartList
object TSynGutterMarks object TSynGutterMarks
Width = 23 Width = 24
MouseActions = <>
end end
object TSynGutterLineNumber object TSynGutterLineNumber
Width = 25 Width = 21
MouseActions = <> MouseActions = <>
MarkupInfo.Background = clBtnFace MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone MarkupInfo.Foreground = clNone
@ -1219,35 +1088,28 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
object TSynGutterChanges object TSynGutterChanges
Width = 4 Width = 4
MouseActions = <>
ModifiedColor = 59900 ModifiedColor = 59900
SavedColor = clGreen SavedColor = clGreen
end end
object TSynGutterSeparator object TSynGutterSeparator
Width = 2 Width = 2
MouseActions = <>
MarkupInfo.Background = clWhite
MarkupInfo.Foreground = clGray
end end
object TSynGutterCodeFolding object TSynGutterCodeFolding
MouseActions = < MouseActions = <
item item
Shift = []
ShiftMask = []
Button = mbRight Button = mbRight
ClickCount = ccSingle Command = emcCodeFoldContextMenu
ClickDir = cdUp
Command = 16
MoveCaret = False
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = [ssShift] ShiftMask = [ssShift]
Button = mbMiddle Button = mbMiddle
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 14 Command = emcCodeFoldCollaps
MoveCaret = False
Option = 0
Priority = 0
end end
item item
Shift = [ssShift] Shift = [ssShift]
@ -1255,58 +1117,36 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
Button = mbMiddle Button = mbMiddle
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 14 Command = emcCodeFoldCollaps
MoveCaret = False
Option = 1 Option = 1
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 0 Command = emcNone
MoveCaret = False
Option = 0
Priority = 0
end> end>
MarkupInfo.Background = clNone MarkupInfo.Background = clNone
MarkupInfo.Foreground = clGray MarkupInfo.Foreground = clGray
MouseActionsExpanded = < MouseActionsExpanded = <
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 14 Command = emcCodeFoldCollaps
MoveCaret = False
Option = 0
Priority = 0
end> end>
MouseActionsCollapsed = < MouseActionsCollapsed = <
item item
Shift = [ssCtrl] Shift = [ssCtrl]
ShiftMask = [ssCtrl] ShiftMask = [ssCtrl]
Button = mbLeft
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 15 Command = emcCodeFoldExpand
MoveCaret = False
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = [ssCtrl] ShiftMask = [ssCtrl]
Button = mbLeft
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 15 Command = emcCodeFoldExpand
MoveCaret = False
Option = 1 Option = 1
Priority = 0
end> end>
end end
end end
@ -1318,7 +1158,6 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
Width = 75 Width = 75
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Caption = 'MoveFilePathUpBitBtn' Caption = 'MoveFilePathUpBitBtn'
NumGlyphs = 0
OnClick = MoveFilePathUpBitBtnClick OnClick = MoveFilePathUpBitBtnClick
TabOrder = 1 TabOrder = 1
end end
@ -1329,7 +1168,6 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
Width = 75 Width = 75
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Caption = 'MoveFilePathDownBitBtn' Caption = 'MoveFilePathDownBitBtn'
NumGlyphs = 0
OnClick = MoveNodeDownMenuItemClick OnClick = MoveNodeDownMenuItemClick
TabOrder = 2 TabOrder = 2
end end
@ -1340,7 +1178,6 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
Width = 75 Width = 75
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Caption = 'DeleteFilePathBitBtn' Caption = 'DeleteFilePathBitBtn'
NumGlyphs = 0
OnClick = DeleteFilePathBitBtnClick OnClick = DeleteFilePathBitBtnClick
TabOrder = 3 TabOrder = 3
end end
@ -1351,7 +1188,6 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
Width = 75 Width = 75
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Caption = 'InsertFilePathBitBtn' Caption = 'InsertFilePathBitBtn'
NumGlyphs = 0
OnClick = InsertFilePathBitBtnClick OnClick = InsertFilePathBitBtnClick
TabOrder = 4 TabOrder = 4
end end
@ -1359,31 +1195,31 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
object NameEdit: TEdit object NameEdit: TEdit
Left = 128 Left = 128
Height = 23 Height = 27
Top = 23 Top = 23
Width = 394 Width = 394
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 1 TabOrder = 0
Text = 'NameEdit' Text = 'NameEdit'
end end
object DescriptionEdit: TEdit object DescriptionEdit: TEdit
Left = 128 Left = 128
Height = 23 Height = 27
Top = 50 Top = 50
Width = 394 Width = 394
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 2 TabOrder = 1
Text = 'DescriptionEdit' Text = 'DescriptionEdit'
end end
object VariableEdit: TEdit object VariableEdit: TEdit
Left = 128 Left = 128
Height = 23 Height = 27
Top = 76 Top = 76
Width = 394 Width = 394
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 3 TabOrder = 2
Text = 'VariableEdit' Text = 'VariableEdit'
end end
end end
@ -1396,23 +1232,27 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
Align = alTop Align = alTop
ResizeAnchor = akTop ResizeAnchor = akTop
end end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 29
Top = 465
Width = 532
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 = 3
ShowButtons = [pbOK, pbCancel]
ShowBevel = False
end
object MainMenu: TMainMenu object MainMenu: TMainMenu
left = 46 left = 46
top = 72 top = 72
object ExitMenuItem: TMenuItem
Caption = 'ExitMenuItem'
object SaveAndExitMenuItem: TMenuItem
Caption = 'SaveAndExitMenuItem'
OnClick = SaveAndExitMenuItemClick
end
object MenuItem2: TMenuItem
Caption = '-'
end
object DontSaveAndExitMenuItem: TMenuItem
Caption = 'DontSaveAndExitMenuItem'
OnClick = DontSaveAndExitMenuItemClick
end
end
object EditMenuItem: TMenuItem object EditMenuItem: TMenuItem
Caption = 'EditMenuItem' Caption = 'EditMenuItem'
object MoveNodeUpMenuItem: TMenuItem object MoveNodeUpMenuItem: TMenuItem

46
ide/codetoolsdefines.pas
View File

@ -45,7 +45,7 @@ interface
uses uses
Classes, SysUtils, Math, LCLIntf, Forms, Controls, Buttons, StdCtrls, Classes, SysUtils, Math, LCLIntf, Forms, Controls, Buttons, StdCtrls,
ComCtrls, LCLType, ExtCtrls, Menus, LCLProc, Graphics, Dialogs, ComCtrls, LCLType, ExtCtrls, Menus, LCLProc, Graphics, Dialogs, ButtonPanel,
SynEdit, SynEdit,
CodeToolManager, DefineTemplates, CodeToolManager, DefineTemplates,
IDEWindowIntf, IDEImagesIntf, IDEDialogs, IDEWindowIntf, IDEImagesIntf, IDEDialogs,
@ -58,6 +58,7 @@ type
{ TCodeToolsDefinesEditor } { TCodeToolsDefinesEditor }
TCodeToolsDefinesEditor = class(TForm) TCodeToolsDefinesEditor = class(TForm)
ButtonPanel1: TButtonPanel;
MenuItem1: TMenuItem; MenuItem1: TMenuItem;
MenuItem10: TMenuItem; MenuItem10: TMenuItem;
MenuItem11: TMenuItem; MenuItem11: TMenuItem;
@ -66,7 +67,6 @@ type
MenuItem17: TMenuItem; MenuItem17: TMenuItem;
MenuItem18: TMenuItem; MenuItem18: TMenuItem;
MenuItem19: TMenuItem; MenuItem19: TMenuItem;
MenuItem2: TMenuItem;
MenuItem23: TMenuItem; MenuItem23: TMenuItem;
MenuItem27: TMenuItem; MenuItem27: TMenuItem;
MenuItem29: TMenuItem; MenuItem29: TMenuItem;
@ -76,11 +76,7 @@ type
ValueAsPathsPage: TTabSheet; ValueAsPathsPage: TTabSheet;
MainSplitter: TSplitter; MainSplitter: TSplitter;
MainMenu: TMainMenu; MainMenu: TMainMenu;
// exit menu
ExitMenuItem: TMenuItem;
SaveAndExitMenuItem: TMenuItem;
DontSaveAndExitMenuItem: TMenuItem;
// edit nodes // edit nodes
EditMenuItem: TMenuItem; EditMenuItem: TMenuItem;
@ -184,10 +180,8 @@ type
Shift: TShiftState); Shift: TShiftState);
procedure DefineTreeViewSelectionChanged(Sender: TObject); procedure DefineTreeViewSelectionChanged(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormShow(Sender: TObject);
// exit menu procedure OKButtonClick(Sender: TObject);
procedure SaveAndExitMenuItemClick(Sender: TObject);
procedure DontSaveAndExitMenuItemClick(Sender: TObject);
// value notebook // value notebook
procedure ValueNoteBookPageChanged(Sender: TObject); procedure ValueNoteBookPageChanged(Sender: TObject);
@ -276,18 +270,6 @@ end;
{ TCodeToolsDefinesEditor } { TCodeToolsDefinesEditor }
procedure TCodeToolsDefinesEditor.SaveAndExitMenuItemClick(Sender: TObject);
begin
SaveSelectedValues;
FLastSelectedNode:=nil;
ModalResult:=mrOk;
end;
procedure TCodeToolsDefinesEditor.DontSaveAndExitMenuItemClick(Sender: TObject);
begin
ModalResult:=mrCancel;
end;
procedure TCodeToolsDefinesEditor.CodeToolsDefinesEditorKeyDown( procedure TCodeToolsDefinesEditor.CodeToolsDefinesEditorKeyDown(
Sender: TObject; var Key: Word; Shift: TShiftState); Sender: TObject; var Key: Word; Shift: TShiftState);
begin begin
@ -315,6 +297,19 @@ begin
IDEDialogLayoutList.SaveLayout(Self); IDEDialogLayoutList.SaveLayout(Self);
end; end;
procedure TCodeToolsDefinesEditor.FormShow(Sender: TObject);
begin
ButtonPanel1.OKButton.Caption:= lisOk;
ButtonPanel1.CancelButton.Caption:= lisCancel;
end;
procedure TCodeToolsDefinesEditor.OKButtonClick(Sender: TObject);
begin
SaveSelectedValues;
FLastSelectedNode:=nil;
ModalResult:=mrOk;
end;
procedure TCodeToolsDefinesEditor.ValueNoteBookPageChanged(Sender: TObject); procedure TCodeToolsDefinesEditor.ValueNoteBookPageChanged(Sender: TObject);
begin begin
if ValueNoteBook.PageIndex=0 then if ValueNoteBook.PageIndex=0 then
@ -934,11 +929,6 @@ procedure TCodeToolsDefinesEditor.CreateComponents;
var var
DefAction: TDefineAction; DefAction: TDefineAction;
begin begin
// exit menu
ExitMenuItem.Caption := lisExit;
SaveAndExitMenuItem.Caption:=lisCodeToolsDefsSaveAndExit;
DontSaveAndExitMenuItem.Caption:=lisCodeToolsDefsExitWithoutSave;
// edit nodes // edit nodes
EditMenuItem.Caption := lisEdit; EditMenuItem.Caption := lisEdit;
MoveNodeUpMenuItem.Caption:=lisCodeToolsDefsMoveNodeUp; MoveNodeUpMenuItem.Caption:=lisCodeToolsDefsMoveNodeUp;