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

IDE: EditorOptions - Colors, fix filling in the filename extensions when opening window.

Browse Source
This commit is contained in:
Martin 2024-01-10 14:40:43 +01:00
parent af296156eb
commit 1c663f6bf2
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/frames/editor_color_options.pas
View File

@ -1301,6 +1301,11 @@ begin
SynColorAttrEditor1.CurrentColorScheme := FCurrentColorScheme;
FillPriorEditor;
end;
if FCurrentHighlighter <> nil then
SetComboBoxText(FileExtensionsComboBox,
GetCurFileExtensions(FCurrentHighlighter.LanguageName),cstFilename)
else
SetComboBoxText(FileExtensionsComboBox, '', cstFilename);
ApplyCurrentScheme;
FillColorElementListBox;
end;
@ -1410,8 +1415,6 @@ begin
GetColorSchemeForLang(EditorOpts.HighlighterList
[CurLanguageID].SynInstance.LanguageName));
SetColorSchemeItem(GetColorSchemeForLang(FCurrentHighlighter.LanguageName));
SetComboBoxText(FileExtensionsComboBox,
GetCurFileExtensions(FCurrentHighlighter.LanguageName),cstFilename);
end;
end;
LanguageButton.Caption := Language;