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

CustomDrawn: Add missing result value of function TCDWidgetSet.DrawFocusRect. Patch by lagprogramming.

Browse Source
This commit is contained in:
wp_xyz 2023-07-08 13:18:03 +02:00
parent f55ce5c939
commit da8a33d43f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1086,6 +1086,8 @@ begin
GetDefaultDrawer().DrawFocusRect(LazDC, Types.Point(Rect.Left, Rect.Top), GetDefaultDrawer().DrawFocusRect(LazDC, Types.Point(Rect.Left, Rect.Top),
Types.Size(Rect.Right - Rect.Left, Rect.Bottom - Rect.Top)); Types.Size(Rect.Right - Rect.Left, Rect.Bottom - Rect.Top));
LazDC.RestoreState(-1); LazDC.RestoreState(-1);
Result := True;
end; end;
function TCDWidgetSet.DrawFrameControl(DC: HDC; const Rect: TRect; uType, function TCDWidgetSet.DrawFrameControl(DC: HDC; const Rect: TRect; uType,