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

IDE/Options: Added filter to the frame of editor colors

Browse Source
This commit is contained in:
n7800 2025-04-16 03:31:31 +05:00
parent b213e8a294
commit 6f07b9c6e1
2 changed files with 53 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
ide/frames/editor_color_options.lfm
View File

@ -530,7 +530,7 @@ object EditorColorOptionsFrame: TEditorColorOptionsFrame
Constraints.MaxWidth = 1000
ParentShowHint = False
ShowHint = True
TabOrder = 0
TabOrder = 3
end
object PnlTop2: TPanel
AnchorSideLeft.Control = Owner
@ -547,35 +547,14 @@ object EditorColorOptionsFrame: TEditorColorOptionsFrame
BevelOuter = bvNone
ClientHeight = 187
ClientWidth = 640
TabOrder = 2
object ColorElementTree: TTreeView
Left = 0
Height = 181
Top = 6
Width = 200
Align = alLeft
AutoExpand = True
BorderSpacing.Top = 6
BorderSpacing.Right = 1
Constraints.MinWidth = 150
HideSelection = False
ReadOnly = True
ScrollBars = ssAutoBoth
ShowRoot = False
TabOrder = 0
Options = [tvoAutoExpand, tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoToolTips, tvoNoDoubleClickExpand, tvoThemedDraw]
OnAdvancedCustomDrawItem = ColorElementTreeAdvancedCustomDrawItem
OnChange = ColorElementTreeChange
OnClick = ColorElementTreeClick
OnKeyDown = ColorElementTreeKeyDown
end
TabOrder = 0
inline ColorPreview: TSynEdit
AnchorSideLeft.Control = Splitter1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = PnlTop2
AnchorSideRight.Control = PnlTop2
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ColorElementTree
AnchorSideBottom.Control = ColorElementPanel
AnchorSideBottom.Side = asrBottom
Left = 207
Height = 181
@ -590,7 +569,7 @@ object EditorColorOptionsFrame: TEditorColorOptionsFrame
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 1
TabOrder = 2
TabStop = False
OnMouseUp = ColorPreviewMouseUp
BookMarkOptions.Xoffset = 30
@ -1116,6 +1095,51 @@ object EditorColorOptionsFrame: TEditorColorOptionsFrame
Top = 0
Width = 5
end
object ColorElementPanel: TPanel
Left = 0
Height = 187
Top = 0
Width = 200
Align = alLeft
BorderSpacing.Right = 1
BevelOuter = bvNone
ClientHeight = 187
ClientWidth = 200
TabOrder = 0
object ColorElementTreeFilter: TTreeFilterEdit
Left = 0
Height = 23
Top = 6
Width = 200
ButtonWidth = 23
Align = alTop
BorderSpacing.Top = 6
NumGlyphs = 1
MaxLength = 0
TabOrder = 0
FilteredTreeview = ColorElementTree
end
object ColorElementTree: TTreeView
Left = 0
Height = 152
Top = 35
Width = 200
Align = alClient
AutoExpand = True
BorderSpacing.Top = 6
Constraints.MinWidth = 150
HideSelection = False
ReadOnly = True
ScrollBars = ssAutoBoth
ShowRoot = False
TabOrder = 1
Options = [tvoAutoExpand, tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoToolTips, tvoNoDoubleClickExpand, tvoThemedDraw]
OnAdvancedCustomDrawItem = ColorElementTreeAdvancedCustomDrawItem
OnChange = ColorElementTreeChange
OnClick = ColorElementTreeClick
OnKeyDown = ColorElementTreeKeyDown
end
end
end
object ToolBar: TToolBar
Left = 0
@ -1129,7 +1153,7 @@ object EditorColorOptionsFrame: TEditorColorOptionsFrame
ParentShowHint = False
ShowCaptions = True
ShowHint = True
TabOrder = 3
TabOrder = 2
object UseSyntaxHighlightCheckBox: TToolButton
Left = 1
Top = 0

4
ide/frames/editor_color_options.pas
View File

@ -31,7 +31,7 @@ uses
// LCL
LCLType, LCLIntf, StdCtrls, ExtCtrls, Graphics, ComCtrls, Dialogs, Menus,
// LazControls
DividerBevel,
DividerBevel, TreeFilterEdit,
// SynEdit
SynEdit, SynEditMiscClasses, SynGutterCodeFolding, SynGutterLineNumber,
SynEditTypes, SynGutterChanges, SynEditMouseCmds, SynEditHighlighter, SynEditStrConst,
@ -88,6 +88,8 @@ type
LanguageMenu: TPopupMenu;
ColorSchemeMenu: TPopupMenu;
Splitter1: TSplitter;
ColorElementPanel: TPanel;
ColorElementTreeFilter: TTreeFilterEdit;
ColorElementTree: TTreeView;
SynColorAttrEditor1: TSynColorAttrEditor;
ToolBar: TToolBar;