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

LCL: painting background of hint window

Browse Source 
git-svn-id: trunk@10728 -
This commit is contained in:
mattias 2007-03-09 00:42:23 +00:00
parent f7020ac77c
commit 41955d1b8a
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/application.inc
View File

@ -685,6 +685,7 @@ begin
end;} end;}
FHintWindow.Color := HintInfo.HintColor; FHintWindow.Color := HintInfo.HintColor;
//DebugLn(['TApplication.ShowHintWindow FHintWindow.Color=',dbgs(FHintWindow.Color),' HintInfo.HintColor=',dbgs(HintInfo.HintColor)]);
//debugln('TApplication.ShowHintWindow B HintWinRect=',dbgs(HintWinRect),' HintStr="',DbgStr(HintInfo.HintStr),'"'); //debugln('TApplication.ShowHintWindow B HintWinRect=',dbgs(HintWinRect),' HintStr="',DbgStr(HintInfo.HintStr),'"');
FHintWindow.ActivateHint(HintWinRect,HintInfo.HintStr); FHintWindow.ActivateHint(HintWinRect,HintInfo.HintStr);

2
lcl/include/hintwindow.inc
View File

@ -81,7 +81,9 @@ var
begin begin
ARect := ClientRect; ARect := ClientRect;
Canvas.Brush.Color := Color; Canvas.Brush.Color := Color;
//DebugLn(['THintWindow.Paint Canvas.Brush.Color=',dbgs(Canvas.Brush.Color)]);
Canvas.Pen.Width := 1; Canvas.Pen.Width := 1;
Canvas.FillRect(ARect);
DrawEdge(Canvas.Handle, ARect, BDR_RAISEDOUTER, BF_RECT); DrawEdge(Canvas.Handle, ARect, BDR_RAISEDOUTER, BF_RECT);
InflateRect(ARect,-2*HintBorderWidth,-2*HintBorderWidth); InflateRect(ARect,-2*HintBorderWidth,-2*HintBorderWidth);
DrawText(Canvas.GetUpdatedHandle([csFontValid]), DrawText(Canvas.GetUpdatedHandle([csFontValid]),