paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 15:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/TCheckComboBox: Workaround for issues #39424 and #39427

Browse Source
This commit is contained in:
wp_xyz 2021-10-16 17:45:40 +02:00
parent ad741a8d7a
commit d6a9516c11
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/include/comboex.inc
View File

@ -359,7 +359,8 @@ begin { do not call inherited ! }
aDropped:=DroppedDown;
aEnabled:=IsEnabled;
aMainItem:= (ARect.Left>0);
{$IF DEFINED(LCLWin32) or DEFINED(LCLWin64)}
// {$IF DEFINED(LCLWin32) or DEFINED(LCLWin64)}
{$IF DEFINED(MSWindows) or DEFINED(Darwin)}
aFocusedEditableMainItemNoDD := (Focused and aMainItem and not aDropped);
{$ELSE}
aFocusedEditableMainItemNoDD := False;
@ -608,7 +609,8 @@ 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)}
{$IF DEFINED(MSWindows) or DEFINED(Darwin))}
aFocusedEditableMainItemNoDD := (Focused and (ARect.Left>0) and not aDropped);
{$ELSE}
aFocusedEditableMainItemNoDD := False;
@ -686,13 +688,15 @@ begin { do not call inherited ! }
end;
procedure TCustomCheckCombo.DropDown;
{$IF DEFINED(LCLWin32) or DEFINED(LCLWin64)}
//{$IF DEFINED(LCLWin32) or DEFINED(LCLWin64)}
{$IF DEFINED(MSWindows) or DEFINED(Darwin)}
{$ELSE}
var aCursorPos: TPoint;
aRect: TRect;
{$ENDIF}
begin
{$IF DEFINED(LCLWin32) or DEFINED(LCLWin64)}
// {$IF DEFINED(LCLWin32) or DEFINED(LCLWin64)}
{$IF DEFINED(MSWindows) or DEFINED(Darwin)}
FRejectDropDown:=False;
{$ELSE}
aCursorPos:=ScreenToControl(Mouse.CursorPos);
@ -800,7 +804,8 @@ end;
procedure TCustomCheckCombo.Select;
begin
inherited Select;
{$IF DEFINED(LCLWin32) or DEFINED(LCLWin64)}
// {$IF DEFINED(LCLWin32) or DEFINED(LCLWin64)}
{$IF DEFINED(MSWindows)} // no DEFINED(Darwin) here!
if DroppedDown then FRejectToggleOnSelect:=True;
{$ENDIF}
if not FRejectToggleOnSelect then