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

LCL-CustomDrawn: Improves DrawFocusRect to keep the canvas state

Browse Source 
git-svn-id: trunk@36611 -
This commit is contained in:
sekelsenmat 2012-04-06 14:17:32 +00:00
parent b2d4e3fd19
commit e01c9d3a71
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/customdrawn/customdrawnwinapi.inc
View File

@ -1057,8 +1057,11 @@ begin
if not IsValidDC(DC) then exit;
// Drawer.DrawFocusRect alters the Pen and Brush, so we save the state here
LazDC.SaveState();
GetDefaultDrawer().DrawFocusRect(LazDC, Point(Rect.Left, Rect.Top),
Size(Rect.Right - Rect.Left, Rect.Bottom - Rect.Top));
LazDC.RestoreState(-1);
end;
function TCDWidgetSet.DrawFrameControl(DC: HDC; const Rect: TRect; uType,