paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 15:41:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

carbon: draw mixed and checked state of buttons (radio and checkbox)

Browse Source 
git-svn-id: trunk@12516 -
This commit is contained in:
paul 2007-10-18 23:41:32 +00:00
parent d643d77da7
commit 7c58c3e26b
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/carbon/carbonthemes.pas
View File

@ -112,7 +112,13 @@ begin
ButtonDrawInfo.version := 0;
ButtonDrawInfo.State := GetDrawState(Details);
ButtonDrawInfo.kind := ButtonMap[Details.Part];
ButtonDrawInfo.value := kThemeButtonOff;
if IsMixed(Details) then
ButtonDrawInfo.value := kThemeButtonMixed
else
if IsChecked(Details) then
ButtonDrawInfo.value := kThemeButtonOn
else
ButtonDrawInfo.value := kThemeButtonOff;
ButtonDrawInfo.adornment := kThemeAdornmentNone;
LabelRect := RectToCGRect(R);