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

IDE: identifier completion window: fix system colors

Browse Source 
git-svn-id: trunk@57554 -
This commit is contained in:
ondrej 2018-03-22 16:24:04 +00:00
parent 796629c37a
commit 584fd52fcd
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/sourceeditor.pp
View File

@ -2405,11 +2405,11 @@ begin
end;
Font.Style:=[];
end;
Colors.BackgroundColor := FActiveEditBackgroundColor;
Colors.BackgroundSelectedColor := FActiveEditBackgroundSelectedColor;
Colors.TextColor := FActiveEditTextColor;
Colors.TextSelectedColor := FActiveEditTextSelectedColor;
Colors.TextHighLightColor := FActiveEditTextHighLightColor;
Colors.BackgroundColor := ColorToRGB(FActiveEditBackgroundColor);
Colors.BackgroundSelectedColor := ColorToRGB(FActiveEditBackgroundSelectedColor);
Colors.TextColor := ColorToRGB(FActiveEditTextColor);
Colors.TextSelectedColor := ColorToRGB(FActiveEditTextSelectedColor);
Colors.TextHighLightColor := ColorToRGB(FActiveEditTextHighLightColor);
MaxX:=TheForm.ClientWidth;
t:=CurrentCompletionType;
if Manager.ActiveCompletionPlugin<>nil then