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

theme engine: handle title bar button in IsDisabled, IsHot and IsPushed

Browse Source 
git-svn-id: trunk@13652 -
This commit is contained in:
paul 2008-01-06 10:08:52 +00:00
parent 3d441b5758
commit d36fa6b624
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/themes.pas
View File

@ -2001,7 +2001,9 @@ begin
Result := False;
if (Details.Element in [teButton, teToolBar]) or
((Details.Element = teRebar) and (Details.Part >= RP_BAND)) then
((Details.Element = teRebar) and (Details.Part >= RP_BAND)) or
((Details.Element = teWindow) and (Details.Part >= WP_SYSBUTTON) and
(Details.Part <= WP_MDIHELPBUTTON)) then
Result := (Details.State mod 4) = 0; // usual disabled = 4 / 8 / 12
end;
@ -2009,7 +2011,9 @@ function TThemeServices.IsPushed(Details: TThemedElementDetails): Boolean;
begin
Result := False;
if (Details.Element in [teButton, teToolBar, teHeader]) or
((Details.Element = teRebar) and (Details.Part >= RP_BAND)) then
((Details.Element = teRebar) and (Details.Part >= RP_BAND)) or
((Details.Element = teWindow) and (Details.Part >= WP_SYSBUTTON) and
(Details.Part <= WP_MDIHELPBUTTON)) then
Result := Details.State in [3, 7, 11];
end;
@ -2017,7 +2021,9 @@ function TThemeServices.IsHot(Details: TThemedElementDetails): Boolean;
begin
Result := False;
if (Details.Element in [teButton, teToolBar, teHeader]) or
((Details.Element = teRebar) and (Details.Part >= RP_BAND)) then
((Details.Element = teRebar) and (Details.Part >= RP_BAND)) or
((Details.Element = teWindow) and (Details.Part >= WP_SYSBUTTON) and
(Details.Part <= WP_MDIHELPBUTTON)) then
Result := Details.State in [2, 6, 10];
end;