paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-24 20:11:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TCustomCheckCombo: simplified

Browse Source 
git-svn-id: trunk@56559 -
This commit is contained in:
mattias 2017-11-30 14:59:27 +00:00
parent e0c22bcb0c
commit 1cf9140e46
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/comboex.inc
View File

@ -599,7 +599,7 @@ begin { do not call inherited ! }
end;
aEnabled:=IsEnabled;
if not (csDesigning in ComponentState) then
aEnabled:= (aEnabled and TCheckComboItemState(Items.Objects[Index]).Enabled);
aEnabled:= (aEnabled and ItemState.Enabled);
{$IF DEFINED(LCLWin32) or DEFINED(LCLWin64)}
aFocusedEditableMainItemNoDD := (Focused and (ARect.Left>0) and not aDropped);
{$ELSE}
@ -620,7 +620,7 @@ begin { do not call inherited ! }
Canvas.FillRect(ARect);
end;
if not (csDesigning in ComponentState)
then aState:=TCheckComboItemState(Items.Objects[Index]).State
then aState:=ItemState.State
else aState:=cbUnchecked;
aDetail:=ThemeServices.GetElementDetails(caCheckThemes
[aEnabled, aState, not aDropped and FCheckHighlight]);