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

Fix Colorscheme issue / issue #16628

Browse Source 
git-svn-id: trunk@25865 -
This commit is contained in:
martin 2010-06-03 15:26:52 +00:00
parent 991452e4a2
commit e2f0a958ac
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/sourceeditprocs.pas
View File

@ -117,6 +117,7 @@ var
BGBlue: Integer;
TokenStart: Integer;
BackgroundColor: TColor;
ForegroundColor: TColor;
procedure SetFontColor(NewColor: TColor);
@ -197,15 +198,15 @@ var
System.Move(sToken^,s[1],nTokenLen);
attr := Highlighter.GetTokenAttribute;
CurForeground:=Attr.Foreground;
if CurForeground=clNone then CurForeground:=clBlack;
ACanvas.Font.Color:=CurForeground;
if CurForeground=clNone then CurForeground:=ForegroundColor;
SetFontColor(CurForeground);
ACanvas.TextOut(x,y,s);
inc(x,ACanvas.TextWidth(s));
end;
Highlighter.Next;
end;
end else begin
SetFontColor(clBlack);
SetFontColor(ForegroundColor);
ACanvas.TextOut(x+1,y,s);
end;
end;
@ -219,6 +220,7 @@ var
ItemNode: TCodeTreeNode;
SubNode: TCodeTreeNode;
begin
ForegroundColor := ACanvas.Font.Color;
Result.X := 0;
Result.Y := ACanvas.TextHeight('W');
if CurrentCompletionType=ctIdentCompletion then begin
@ -319,7 +321,7 @@ begin
if x>MaxX then exit;
// paint the identifier
SetFontColor(clBlack);
SetFontColor(ForegroundColor);
ACanvas.Font.Style:=ACanvas.Font.Style+[fsBold];
s:=IdentItem.Identifier;
if MeasureOnly then