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

Cocoa: Fix ItemIndex issue of TComboBox with csDropDownList at init

Browse Source
This commit is contained in:
rich2014 2024-02-17 21:21:50 +08:00
parent 6aab479152
commit 7d22dc8d27
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/cocoa/cocoatextedits.pas
View File

@ -489,6 +489,10 @@ begin
end else end else
FOwner.insertItemWithTitle_atIndex(astr, Index); FOwner.insertItemWithTitle_atIndex(astr, Index);
// ItemIndex may be changed in addItemWithTitle() / insertItemWithTitle_atIndex()
// keep compatibility with LCL by resetting ItemIndex
FOwner.selectItemAtIndex(FOwner.lastSelectedItemIndex);
mn := FOwner.itemAtIndex(Index); mn := FOwner.itemAtIndex(Index);
if not Assigned(mn) then Exit; if not Assigned(mn) then Exit;
@ -1589,7 +1593,7 @@ begin
if Assigned(selectedItem) then if Assigned(selectedItem) then
Result:=selectedItem.title Result:=selectedItem.title
else else
Result:=inherited stringValue; Result:=NSString.string_;
end; end;
procedure TCocoaReadOnlyComboBox.drawRect(dirtyRect: NSRect); procedure TCocoaReadOnlyComboBox.drawRect(dirtyRect: NSRect);