paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-02 12:09:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

ToDoList, IdeIntf: Allow opening editor color settings from ToDoList window.

Browse Source
This commit is contained in:
Juha 2025-07-01 15:09:00 +03:00
parent 30ec95941f
commit 3807ad9867
3 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/ideopteditorintf.pas
View File

@ -175,6 +175,8 @@ function IDEEditorGroups: TIDEOptionsGroupList;
var
IDEEditorOptions: TIDEEditorOptions;
// Certain packages may want to reach Editor Color Options.
EditorColorOptionsEditorClass: TAbstractIDEOptionsEditorClass;
const
// Font style used by filter

2
components/todolist/todolist.pas
View File

@ -541,7 +541,7 @@ procedure TIDETodoWindow.acColorsExecute(Sender: TObject);
begin
{ #todo 1 -oJuha : Move to the actual ToDo items in the color settings list. }
//LazarusIDE.DoOpenIDEOptions(TEditorColorOptionsFrame, 'Go to end of color options list', [TIDEEditorOptions], []);
LazarusIDE.DoOpenIDEOptions(nil, 'Go to end of color options list', [TIDEEditorOptions], []);
LazarusIDE.DoOpenIDEOptions(EditorColorOptionsEditorClass, 'ToDo colors are at the end of color list', [TIDEEditorOptions], []);
end;
procedure TIDETodoWindow.acHelpExecute(Sender: TObject);

2
ide/frames/editor_color_options.pas
View File

@ -1862,4 +1862,6 @@ end;
initialization
RegisterIDEOptionsEditor(GroupEditor, TEditorColorOptionsFrame, EdtOptionsColors, EdtOptionsDisplay);
EditorColorOptionsEditorClass := TEditorColorOptionsFrame;
end.