paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 09:40:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazControls: Fix "no checkboxes/no items" issue #39427.

Browse Source
This commit is contained in:
wp_xyz 2021-10-15 22:56:05 +02:00
parent 277ce7472c
commit e7b27f404f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazcontrols/checkcombo.pas
View File

@ -304,7 +304,7 @@ begin { do not call inherited ! }
aEnabled:=IsEnabled;
if not (csDesigning in ComponentState) then
aEnabled:= (aEnabled and ItemState.Enabled);
{$IF DEFINED(LCLWin32) or DEFINED(LCLWin64)}
{$IF DEFINED(LCLWin32) or DEFINED(LCLWin64) or DEFINED(Darwin)}
aFocusedEditableMainItemNoDD := (Focused and (ARect.Left>0) and not aDropped);
{$ELSE}
aFocusedEditableMainItemNoDD := False;
@ -382,13 +382,13 @@ begin { do not call inherited ! }
end;
procedure TCustomCheckCombo.DropDown;
{$IF DEFINED(LCLWin32) or DEFINED(LCLWin64)}
{$IF DEFINED(LCLWin32) or DEFINED(LCLWin64) or DEFINED(Darwin)}
{$ELSE}
var aCursorPos: TPoint;
aRect: TRect;
{$ENDIF}
begin
{$IF DEFINED(LCLWin32) or DEFINED(LCLWin64)}
{$IF DEFINED(LCLWin32) or DEFINED(LCLWin64) or DEFINED(Darwin)}
FRejectDropDown:=False;
{$ELSE}
aCursorPos:=ScreenToControl(Mouse.CursorPos);