paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 07:40:11 +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; HorizontalSpace: Integer;
VerticalSpace: Integer; VerticalSpace: Integer;
BackgroundColor, TextGrayColor, TextColor, PenColor: TColor; BackgroundColor, TextGrayColor, TextColor, PenColor: TColor;
TextGrayStyle, TextStyle: TFontStyles;
procedure DrawHint(const Line: string; var AHintRect: TRect); procedure DrawHint(const Line: string; var AHintRect: TRect);
var var
@ -623,6 +624,7 @@ var
begin begin
// switch to normal font // switch to normal font
Canvas.Font.Color:=TextGrayColor; Canvas.Font.Color:=TextGrayColor;
Canvas.Font.Style:=TextGrayStyle;
//DebugLn('DrawHint gray'); //DebugLn('DrawHint gray');
continue; continue;
end; end;
@ -631,6 +633,7 @@ var
begin begin
// switch to normal font // switch to normal font
Canvas.Font.Color:=TextColor; Canvas.Font.Color:=TextColor;
Canvas.Font.Style:=TextStyle;
//DebugLn('DrawHint normal'); //DebugLn('DrawHint normal');
continue; continue;
end; end;
@ -697,8 +700,10 @@ begin
if Draw then begin if Draw then begin
// make colors theme dependent // make colors theme dependent
BackgroundColor:=clInfoBk; BackgroundColor:=clInfoBk;
TextGrayColor:=clGrayText; TextGrayColor:=clInfoText;
TextGrayStyle:=[];
TextColor:=clInfoText; TextColor:=clInfoText;
TextStyle:=[fsBold];
PenColor:=clBlack; PenColor:=clBlack;
end; end;
HorizontalSpace:=2; HorizontalSpace:=2;
@ -707,6 +712,7 @@ begin
if Draw then begin if Draw then begin
Canvas.Brush.Color:=BackgroundColor; Canvas.Brush.Color:=BackgroundColor;
Canvas.Font.Color:=TextGrayColor; Canvas.Font.Color:=TextGrayColor;
Canvas.Font.Style:=TextGrayStyle;
Canvas.Pen.Color:=PenColor; Canvas.Pen.Color:=PenColor;
end; end;
NewMaxWidth:=0; NewMaxWidth:=0;