paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 15:19:35 +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

8
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);
with TLMessage(Message) do
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

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

@ -613,93 +613,91 @@ var
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:
// 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
begin
NMHdr := PNMHDR(LParam);
if NMHdr^.code = NM_CUSTOMDRAW then
begin
WindowInfo := GetWindowInfo(PNMHdr(LParam)^.hwndFrom);
Control := WindowInfo^.WinControl;
case PNMCustomDraw(LParam)^.dwDrawStage of
CDDS_PREPAINT:
begin
Result := CDRF_NOTIFYITEMDRAW;
end;
CDDS_ITEMPREPAINT:
begin
case PNMCustomDraw(LParam)^.dwItemSpec of
TBCD_TICS: // Before re-painting ticks redo whole background.
WindowInfo := GetWindowInfo(PNMHdr(LParam)^.hwndFrom);
Control := WindowInfo^.WinControl;
case PNMCustomDraw(LParam)^.dwDrawStage of
CDDS_PREPAINT:
begin
Result := CDRF_NOTIFYITEMDRAW;
end;
CDDS_ITEMPREPAINT:
begin
case PNMCustomDraw(LParam)^.dwItemSpec of
TBCD_TICS: // Before re-painting ticks redo whole background.
begin
R := Control.ClientRect;
// Leave room for the focus rectangle if there is one.
if Control.Focused and
((Control.Perform(WM_QUERYUISTATE, 0, 0) and UISF_HIDEFOCUS) = 0) then
begin
SystemParametersInfo(SPI_GETFOCUSBORDERWIDTH, 0, @FocusBorderWidth, 0);
SystemParametersInfo(SPI_GETFOCUSBORDERHEIGHT, 0, @FocusBorderHeight, 0);
InflateRect(R, -FocusBorderWidth, -FocusBorderHeight);
end;
ThemeServices.DrawParentBackground(Window, PNMCustomDraw(LParam)^.hDC, nil, False, @R);
end;
TBCD_CHANNEL:
begin
// Retrieve the bounding box for the thumb.
SendMessage(Window, TBM_GETTHUMBRECT, 0, Integer(@R));
// Extend this rectangle to the top/bottom or left/right border, respectively.
Offset := 0;
if TCustomTrackBar(Control).Orientation = trHorizontal then
begin
R := Control.ClientRect;
// Leave room for the focus rectangle if there is one.
if Control.Focused and
((Control.Perform(WM_QUERYUISTATE, 0, 0) and UISF_HIDEFOCUS) = 0) then
if Control.Focused then
begin
SystemParametersInfo(SPI_GETFOCUSBORDERWIDTH, 0, @FocusBorderWidth, 0);
SystemParametersInfo(SPI_GETFOCUSBORDERHEIGHT, 0, @FocusBorderHeight, 0);
InflateRect(R, -FocusBorderWidth, -FocusBorderHeight);
Inc(Offset, FocusBorderWidth);
end;
ThemeServices.DrawParentBackground(Window, PNMCustomDraw(LParam)^.hDC, nil, False, @R);
end;
TBCD_CHANNEL:
with Control.ClientRect do
begin
R.Left := Left + Offset;
R.Right := Right - Offset;
end;
end
else
begin
// Retrieve the bounding box for the thumb.
SendMessage(Window, TBM_GETTHUMBRECT, 0, Integer(@R));
// Extend this rectangle to the top/bottom or left/right border, respectively.
Offset := 0;
if TCustomTrackBar(Control).Orientation = trHorizontal then
// Leave room for the focus rectangle if there is one.
if Control.Focused then
begin
// Leave room for the focus rectangle if there is one.
if Control.Focused then
begin
SystemParametersInfo(SPI_GETFOCUSBORDERWIDTH, 0, @FocusBorderWidth, 0);
Inc(Offset, FocusBorderWidth);
end;
with Control.ClientRect do
begin
R.Left := Left + Offset;
R.Right := Right - Offset;
end;
end
else
begin
// Leave room for the focus rectangle if there is one.
if Control.Focused then
begin
SystemParametersInfo(SPI_GETFOCUSBORDERHEIGHT, 0, @FocusBorderHeight, 0);
Inc(Offset, FocusBorderWidth);
end;
with Control.ClientRect do
begin
R.Top := Top + Offset;
R.Bottom := Bottom - Offset;
end;
SystemParametersInfo(SPI_GETFOCUSBORDERHEIGHT, 0, @FocusBorderHeight, 0);
Inc(Offset, FocusBorderWidth);
end;
with Control.ClientRect do
begin
R.Top := Top + Offset;
R.Bottom := Bottom - Offset;
end;
with R do
Rgn := CreateRectRgn(Left, Top, Right, Bottom);
SelectClipRgn(PNMCustomDraw(LParam)^.hDC, Rgn);
Details := ThemeServices.GetElementDetails(ttbThumbTics);
ThemeServices.DrawParentBackground(Window, PNMCustomDraw(LParam)^.hDC, @Details, False);
DeleteObject(Rgn);
SelectClipRgn(PNMCustomDraw(LParam)^.hDC, 0);
end;
end;
Result := CDRF_DODEFAULT;
with R do
Rgn := CreateRectRgn(Left, Top, Right, Bottom);
SelectClipRgn(PNMCustomDraw(LParam)^.hDC, Rgn);
Details := ThemeServices.GetElementDetails(ttbThumbTics);
ThemeServices.DrawParentBackground(Window, PNMCustomDraw(LParam)^.hDC, @Details, False);
DeleteObject(Rgn);
SelectClipRgn(PNMCustomDraw(LParam)^.hDC, 0);
end;
end;
Result := CDRF_DODEFAULT;
end;
end;
end;
end
else
Result := WindowProc(Window, Msg, WParam, LParam);
end;
end
else
Result := WindowProc(Window, Msg, WParam, LParam);
Result := CallDefaultWindowProc(Window, Msg, WParam, LParam);
else
Result := WindowProc(Window, Msg, WParam, LParam);
end;
end;
{ TWin32WSTrackBar }