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

lcl: carbon: fixed duplicates in combobox in fpc 2.7.1

Browse Source 
git-svn-id: trunk@40841 -
This commit is contained in:
mattias 2013-04-18 17:42:46 +00:00
parent b4b333baae
commit 5afa7d5da1
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/carbon/carbonstrings.pp
View File

@ -40,7 +40,10 @@ type
FOwner: TCarbonComboBox; // Carbon combo box control owning strings
protected
procedure Put(Index: Integer; const S: string); override;
{$IF FPC_FULLVERSION<20701}
// before fpc 2.7.1 InsertItem(Index,S) did not call InsertItem(Index,S,nil)
procedure InsertItem(Index: Integer; const S: string); override;
{$ENDIF}
procedure InsertItem(Index: Integer; const S: string; O: TObject); override;
public
constructor Create(AOwner: TCarbonComboBox);
@ -116,6 +119,7 @@ begin
FOwner.Insert(Index, S);
end;
{$IF FPC_FULLVERSION<20701}
{------------------------------------------------------------------------------
Method: TCarbonComboBoxStrings.InsertItem
Params: Index - Line index
@ -129,6 +133,7 @@ begin
FOwner.Insert(Index, S);
end;
{$ENDIF}
{------------------------------------------------------------------------------
Method: TCarbonComboBoxStrings.InsertItem