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

win32: also handle correct when themes are not enabled

Browse Source 
git-svn-id: trunk@17092 -
This commit is contained in:
paul 2008-10-22 05:21:41 +00:00
parent 1628077528
commit 48793b3843
2 changed files with 75 additions and 75 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -343,9 +343,11 @@ begin
end;
CN_NOTIFY:
if Sender is TCustomTrackBar then
with TLMessage(Message) do
Result := SendMessage(Handle, Msg, WParam, LParam);
if (Sender is TCustomTrackBar) then
Result := SendMessage(Handle, Msg, WParam, LParam)
else
Result := CallDefaultWindowProc(Handle, Msg, WParam, LParam);
else
if TLMessage(Message).Msg >= WM_USER then
with TLMessage(Message) do

10
lcl/interfaces/win32/win32wscomctrls.pp
View File

@ -612,13 +612,12 @@ var
Rgn: HRGN;
Details: TThemedElementDetails;
NMHdr: PNMHDR;
begin
if ThemeServices.ThemesEnabled then
begin
// Paul: next is a slightly modified code of TThemeManager.TrackBarWindowProc
// of Mike Lischke Theme manager library (Mike granted us permition to use his code)
case Msg of
CN_NOTIFY:
if ThemeServices.ThemesEnabled then
begin
NMHdr := PNMHDR(LParam);
if NMHdr^.code = NM_CUSTOMDRAW then
@ -693,14 +692,13 @@ begin
end;
end;
end;
end;
else
Result := WindowProc(Window, Msg, WParam, LParam);
end;
end
else
Result := CallDefaultWindowProc(Window, Msg, WParam, LParam);
else
Result := WindowProc(Window, Msg, WParam, LParam);
end;
end;
{ TWin32WSTrackBar }