paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 07:39:22 +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 Constraints.MaxWidth = 1000
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 3
end end
object PnlTop2: TPanel object PnlTop2: TPanel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -547,35 +547,14 @@ object EditorColorOptionsFrame: TEditorColorOptionsFrame
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 187 ClientHeight = 187
ClientWidth = 640 ClientWidth = 640
TabOrder = 2 TabOrder = 0
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
inline ColorPreview: TSynEdit inline ColorPreview: TSynEdit
AnchorSideLeft.Control = Splitter1 AnchorSideLeft.Control = Splitter1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = PnlTop2 AnchorSideTop.Control = PnlTop2
AnchorSideRight.Control = PnlTop2 AnchorSideRight.Control = PnlTop2
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ColorElementTree AnchorSideBottom.Control = ColorElementPanel
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 207 Left = 207
Height = 181 Height = 181
@ -590,7 +569,7 @@ object EditorColorOptionsFrame: TEditorColorOptionsFrame
Font.Quality = fqNonAntialiased Font.Quality = fqNonAntialiased
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 2
TabStop = False TabStop = False
OnMouseUp = ColorPreviewMouseUp OnMouseUp = ColorPreviewMouseUp
BookMarkOptions.Xoffset = 30 BookMarkOptions.Xoffset = 30
@ -1116,6 +1095,51 @@ object EditorColorOptionsFrame: TEditorColorOptionsFrame
Top = 0 Top = 0
Width = 5 Width = 5
end 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 end
object ToolBar: TToolBar object ToolBar: TToolBar
Left = 0 Left = 0
@ -1129,7 +1153,7 @@ object EditorColorOptionsFrame: TEditorColorOptionsFrame
ParentShowHint = False ParentShowHint = False
ShowCaptions = True ShowCaptions = True
ShowHint = True ShowHint = True
TabOrder = 3 TabOrder = 2
object UseSyntaxHighlightCheckBox: TToolButton object UseSyntaxHighlightCheckBox: TToolButton
Left = 1 Left = 1
Top = 0 Top = 0

4
ide/frames/editor_color_options.pas
View File

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