paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 20:37:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: editor-color-opt, convenience to click dropdown anywhere

Browse Source 
git-svn-id: trunk@28743 -
This commit is contained in:
martin 2010-12-17 19:02:20 +00:00
parent bf754531b7
commit e2b4dca3d5
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/frames/editor_color_options.lfm
View File

@ -1274,12 +1274,14 @@ inherited EditorColorOptionsFrame: TEditorColorOptionsFrame
Left = 28
Top = 0
DropdownMenu = LanguageMenu
OnClick = LanguageButtonClick
Style = tbsDropDown
end
object ColorSchemeButton: TToolButton
Left = 63
Top = 0
DropdownMenu = ColorSchemeMenu
OnClick = ColorSchemeButtonClick
Style = tbsDropDown
end
object FileExtensionsComboBox: TComboBox

12
ide/frames/editor_color_options.pas
View File

@ -98,6 +98,7 @@ type
procedure ColorElementTreeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure ColorPreviewMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ColorSchemeButtonClick(Sender: TObject);
procedure ForegroundColorBoxChange(Sender: TObject);
procedure ForegroundColorBoxGetColors(Sender: TCustomColorBox; Items: TStrings);
procedure FrameEdgesBoxDrawItem(Control: TWinControl; Index: Integer; ARect: TRect;
@ -106,6 +107,7 @@ type
State: TOwnerDrawState);
procedure GeneralCheckBoxOnChange(Sender: TObject);
procedure ComboBoxOnExit(Sender: TObject);
procedure LanguageButtonClick(Sender: TObject);
procedure pnlElementAttributesResize(Sender: TObject);
procedure SetAllAttributesToDefaultButtonClick(Sender: TObject);
procedure SetAttributeToDefaultButtonClick(Sender: TObject);
@ -463,6 +465,11 @@ begin
end;
end;
procedure TEditorColorOptionsFrame.ColorSchemeButtonClick(Sender: TObject);
begin
ColorSchemeButton.CheckMenuDropdown;
end;
procedure TEditorColorOptionsFrame.ForegroundColorBoxChange(Sender: TObject);
var
AttrToEdit: TColorSchemeAttribute;
@ -700,6 +707,11 @@ begin
end
end;
procedure TEditorColorOptionsFrame.LanguageButtonClick(Sender: TObject);
begin
LanguageButton.CheckMenuDropdown;
end;
procedure TEditorColorOptionsFrame.pnlElementAttributesResize(Sender: TObject);
var
MinAnchor: TControl;