paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

csBrushValid is not required for DrawFocusRect, fixed warning msg in TWin32WidgetSet.DrawFocusRect, tnks Vincent

Browse Source 
git-svn-id: trunk@9295 -
This commit is contained in:
jesus 2006-05-16 22:51:35 +00:00
parent 47948ab39e
commit 8bb640c7fd
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/canvas.inc
View File

@ -38,7 +38,7 @@ end;
procedure TCanvas.DrawFocusRect(const ARect: TRect);
begin
Changing;
RequiredState([csHandleValid, csBrushValid]);
RequiredState([csHandleValid]);
LCLIntf.DrawFocusRect(FHandle, ARect);
Changed;
end;

2
lcl/interfaces/win32/win32winapi.inc
View File

@ -1084,7 +1084,7 @@ function TWin32WidgetSet.DrawFocusRect(DC: HDC; const Rect: TRect): boolean;
var
lRect: Windows.RECT;
begin
{$message warn TWin32WidgetSet.FrameRect TODO: optimize ARect copying?}
{$message warn TWin32WidgetSet.DrawFocusRect TODO: optimize Rect copying}
lRect:=Rect;
Result:= Windows.DrawFocusRect(DC, lRect);
end;