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

win32: fix window scrollbar drawing under xp - sometimes they look unthemed (#0011872)

Browse Source 
git-svn-id: trunk@17363 -
This commit is contained in:
paul 2008-11-13 02:12:18 +00:00
parent 2965833d06
commit 7cf7828c20
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3109,6 +3109,12 @@ function TWin32WidgetSet.ShowScrollBar(Handle: HWND; WBar: Integer; BShow: Boole
begin begin
Assert(False, 'Trace:[TWin32WidgetSet.ShowScrollBar]'); Assert(False, 'Trace:[TWin32WidgetSet.ShowScrollBar]');
Result := Boolean(Windows.ShowScrollBar(Handle, WBar, BShow)); Result := Boolean(Windows.ShowScrollBar(Handle, WBar, BShow));
if BShow and Result and ThemeServices.ThemesEnabled then
begin
// sometimes on xp scrollbars does not invalidate themself and look as they are unthemed
// force window frame (scrollbars are not in the client area) to redraw
Windows.RedrawWindow(Handle, nil, 0, RDW_INVALIDATE or RDW_FRAME or RDW_NOCHILDREN);
end;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------