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

LCL-Carbon: Fix compilation after ComboBox.ReadOnly was removed. Issue #37068, patch from C Western.

Browse Source 
git-svn-id: trunk@63164 -
This commit is contained in:
juha 2020-05-15 21:38:12 +00:00
parent 02b99ee3d1
commit 67cf446d13
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/carbon/carbonedits.pp
View File

@ -678,7 +678,7 @@ var
CFString: CFStringRef;
TmpSpec: EventTypeSpec;
begin
FReadOnly := (LCLObject as TCustomComboBox).ReadOnly;
FReadOnly := (LCLObject as TCustomComboBox).Style in [csDropDownList, csOwnerDrawFixed, csOwnerDrawVariable];
FLastDroppedDown := False;
if FReadOnly then

2
lcl/interfaces/carbon/carbonwsstdctrls.pp
View File

@ -442,7 +442,7 @@ var
begin
if not CheckHandle(ACustomComboBox, Self, 'SetStyle') then Exit;
TCarbonComboBox(ACustomComboBox.Handle).SetReadOnly(ACustomComboBox.ReadOnly);
TCarbonComboBox(ACustomComboBox.Handle).SetReadOnly(ACustomComboBox.Style in [csDropDownList, csOwnerDrawFixed, csOwnerDrawVariable]);
sz:=TCarbonComboBox(ACustomComboBox.Handle).GetPreferredSize;
ACustomComboBox.Constraints.SetInterfaceConstraints(0,0,0,sz.Y);
end;