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

IDE: word completion box: fixed inverting font color on dark background

Browse Source 
git-svn-id: trunk@57548 -
This commit is contained in:
mattias 2018-03-22 10:16:39 +00:00
parent bc26b5cd5f
commit 18798b306b
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/sourceeditprocs.pas
View File

@ -291,8 +291,12 @@ begin
AllowFontColor := True;
end;
BackgroundColor:=ColorToRGB(ACanvas.Brush.Color);
BGRed:=(BackgroundColor shr 16) and $ff;
BGGreen:=(BackgroundColor shr 8) and $ff;
BGBlue:=BackgroundColor and $ff;
ForegroundColor := ColorToRGB(ForegroundColor);
ACanvas.Font.Color := ForegroundColor;
SetFontColor(ForegroundColor);
Result.X := 0;
Result.Y := ACanvas.TextHeight('W');
@ -306,10 +310,6 @@ begin
end;
IdentItem.BeautifyIdentifier(CodeToolBoss.IdentifierList);
ItemNode:=IdentItem.Node;
BackgroundColor:=ColorToRGB(ACanvas.Brush.Color);
BGRed:=(BackgroundColor shr 16) and $ff;
BGGreen:=(BackgroundColor shr 8) and $ff;
BGBlue:=BackgroundColor and $ff;
ImageIndex:=-1;
ImageIndexCC := -1;
UseImages := CodeToolsOpts.IdentComplShowIcons;
@ -679,9 +679,10 @@ begin
begin
WriteToken(TokenStart,i);
// set color
ACanvas.Font.Color := (Ord(AKey[i + 3]) shl 8
+ Ord(AKey[i + 2])) shl 8
+ Ord(AKey[i + 1]);
ForegroundColor:=(Ord(AKey[i + 3]) shl 8
+ Ord(AKey[i + 2])) shl 8
+ Ord(AKey[i + 1]);
SetFontColor(ForegroundColor);
inc(i, 4);
end;
#3: