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

IDE: code context hints drawn with bold instead of gray, needed for themes where gray does not work

Browse Source 
git-svn-id: trunk@20102 -
This commit is contained in:
mattias 2009-05-21 10:08:32 +00:00
parent e422e1da8e
commit b74111c319
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/codecontextform.pas
View File

@ -582,6 +582,7 @@ var
HorizontalSpace: Integer;
VerticalSpace: Integer;
BackgroundColor, TextGrayColor, TextColor, PenColor: TColor;
TextGrayStyle, TextStyle: TFontStyles;
procedure DrawHint(const Line: string; var AHintRect: TRect);
var
@ -623,6 +624,7 @@ var
begin
// switch to normal font
Canvas.Font.Color:=TextGrayColor;
Canvas.Font.Style:=TextGrayStyle;
//DebugLn('DrawHint gray');
continue;
end;
@ -631,6 +633,7 @@ var
begin
// switch to normal font
Canvas.Font.Color:=TextColor;
Canvas.Font.Style:=TextStyle;
//DebugLn('DrawHint normal');
continue;
end;
@ -697,8 +700,10 @@ begin
if Draw then begin
// make colors theme dependent
BackgroundColor:=clInfoBk;
TextGrayColor:=clGrayText;
TextGrayColor:=clInfoText;
TextGrayStyle:=[];
TextColor:=clInfoText;
TextStyle:=[fsBold];
PenColor:=clBlack;
end;
HorizontalSpace:=2;
@ -707,6 +712,7 @@ begin
if Draw then begin
Canvas.Brush.Color:=BackgroundColor;
Canvas.Font.Color:=TextGrayColor;
Canvas.Font.Style:=TextGrayStyle;
Canvas.Pen.Color:=PenColor;
end;
NewMaxWidth:=0;