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

win32: fix focus rect drawing on TBitBtn on Vista/w7

Browse Source 
git-svn-id: trunk@20668 -
This commit is contained in:
paul 2009-06-19 07:17:55 +00:00
parent 08d373cf9c
commit 57446cdb93
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/win32/win32callback.inc
View File

@ -1055,14 +1055,14 @@ var
ShowFocus: Boolean;
begin
case DrawInfo^.dwDrawStage of
CDDS_PREPAINT:
CDDS_PREPAINT, CDDS_POSTPAINT:
begin
lmNotify.Result := CDRF_DODEFAULT;
lmNotify.Result := CDRF_DODEFAULT or CDRF_NOTIFYPOSTPAINT;
WinProcess := False;
if ABitBtn.Focused then
begin
if WindowsVersion >= wv2000 then
ShowFocus := (SendMessage(ABitBtn.Handle, WM_QUERYUISTATE, 0, 0) and UISF_HIDEFOCUS) = 0
ShowFocus := (Windows.SendMessage(ABitBtn.Handle, WM_QUERYUISTATE, 0, 0) and UISF_HIDEFOCUS) = 0
else
ShowFocus := True;
if ShowFocus then
@ -1070,7 +1070,7 @@ var
ARect := DrawInfo^.rc;
InflateRect(ARect, -3, -3);
if not IsRectEmpty(ARect) then
DrawFocusRect(DrawInfo^.hdc, ARect);
Windows.DrawFocusRect(DrawInfo^.hdc, ARect);
end;
end;
end;