paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-01 06:23:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

- small bug in TThemeServices.IsChecked

Browse Source 
git-svn-id: trunk@11597 -
This commit is contained in:
paul 2007-07-23 05:28:17 +00:00
parent 5492dc6a0d
commit 80c4aac4ea
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/themes.pas
View File

@ -1906,7 +1906,10 @@ function TThemeServices.IsChecked(Details: TThemedElementDetails): Boolean;
begin
Result := False;
if (Details.Element in [teButton]) then
Result := (Details.State > 4) and (Details.State < 9);
Result := (Details.State > 4) and (Details.State < 9)
else
if (Details.Element in [teToolBar]) then
Result := (Details.State > 4);
end;
function TThemeServices.IsMixed(Details: TThemedElementDetails): Boolean;