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

IDE: codecontextform: let theme draw background of context hint. fixes issue #17940

Browse Source 
git-svn-id: trunk@28764 -
This commit is contained in:
zeljko 2010-12-18 16:47:06 +00:00
parent 3fe0875dfb
commit fb873f1327
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/codecontextform.pas
View File

@ -86,6 +86,7 @@ var
function ShowCodeContext(Code: TCodeBuffer): boolean;
implementation
uses Themes;
type
TWinControlAccess = class(TWinControl);
@ -734,6 +735,7 @@ var
NewMaxHeight: Integer;
NewMaxWidth: Integer;
CurHintRect: TRect;
Details: TThemedElementDetails;
begin
//DebugLn('TCodeContextFrm.DrawHints DrawWidth=',dbgs(MaxWidth),' DrawHeight=',dbgs(MaxHeight),' Draw=',dbgs(Draw));
if Draw then begin
@ -753,6 +755,8 @@ begin
Canvas.Font.Color:=TextGrayColor;
Canvas.Font.Style:=TextGrayStyle;
Canvas.Pen.Color:=PenColor;
Details := ThemeServices.GetElementDetails(tttStandardLink);
ThemeServices.DrawElement(Canvas.Handle, Details, Canvas.ClipRect);
end else begin
Canvas.Font.Style:=[fsBold];
end;