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

cocoa: implementing readonly for combobox

Browse Source 
git-svn-id: branches/comboboxreadonly@63246 -
This commit is contained in:
dmitry 2020-05-29 02:04:04 +00:00
parent 6c358d11ef
commit 9ce582e416
1 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lcl/interfaces/cocoa/cocoawsstdctrls.pas
View File

@ -86,8 +86,9 @@ type
class procedure SetSelStart(const ACustomComboBox: TCustomComboBox; NewStart: integer); override; class procedure SetSelStart(const ACustomComboBox: TCustomComboBox; NewStart: integer); override;
class procedure SetSelLength(const ACustomComboBox: TCustomComboBox; NewLength: integer); override;} class procedure SetSelLength(const ACustomComboBox: TCustomComboBox; NewLength: integer); override;}
class procedure SetItemIndex(const ACustomComboBox: TCustomComboBox; NewIndex: integer); override; class procedure SetItemIndex(const ACustomComboBox: TCustomComboBox; NewIndex: integer); override;
{class procedure SetMaxLength(const ACustomComboBox: TCustomComboBox; NewLength: integer); override; {class procedure SetMaxLength(const ACustomComboBox: TCustomComboBox; NewLength: integer); override;}
class procedure SetStyle(const ACustomComboBox: TCustomComboBox; NewStyle: TComboBoxStyle); override;} class procedure SetStyle(const ACustomComboBox: TCustomComboBox; NewStyle: TComboBoxStyle); override;
class procedure SetReadOnly(const ACustomComboBox: TCustomComboBox; NewReadOnly: boolean); override;
class procedure SetDropDownCount(const ACustomComboBox: TCustomComboBox; NewCount: Integer); override; class procedure SetDropDownCount(const ACustomComboBox: TCustomComboBox; NewCount: Integer); override;
class function GetItems(const ACustomComboBox: TCustomComboBox): TStrings; override; class function GetItems(const ACustomComboBox: TCustomComboBox): TStrings; override;
@ -1854,6 +1855,27 @@ begin
TCocoaComboBox(ACustomComboBox.Handle).selectItemAtIndex(NewIndex); TCocoaComboBox(ACustomComboBox.Handle).selectItemAtIndex(NewIndex);
end; end;
class procedure TCocoaWSCustomComboBox.SetStyle(
const ACustomComboBox: TCustomComboBox; NewStyle: TComboBoxStyle);
begin
if (not Assigned(ACustomComboBox)) or (not ACustomComboBox.HandleAllocated) then
Exit;
RecreateWnd(ACustomComboBox);
end;
class procedure TCocoaWSCustomComboBox.SetReadOnly(
const ACustomComboBox: TCustomComboBox; NewReadOnly: boolean);
var
box : NSComboBox;
begin
if (not Assigned(ACustomComboBox)) or (not ACustomComboBox.HandleAllocated) then
Exit;
if not (NSObject(ACustomComboBox.Handle).isKindOfClass(NSComboBox)) then Exit;
box := NSComboBox(ACustomComboBox.Handle);
box.setEditable(not NewReadOnly);
box.setSelectable_(1);
end;
class procedure TCocoaWSCustomComboBox.SetDropDownCount(const ACustomComboBox: class procedure TCocoaWSCustomComboBox.SetDropDownCount(const ACustomComboBox:
TCustomComboBox;NewCount:Integer); TCustomComboBox;NewCount:Integer);
begin begin