paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 18:17:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: carbon: fixed duplicate strings in TListBox with fpc 2.7.1

Browse Source 
git-svn-id: trunk@44729 -
This commit is contained in:
mattias 2014-04-14 17:02:06 +00:00
parent 22b80b3cf5
commit 2380c4e2bb
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

@ -61,7 +61,10 @@ type
FWinControl: TWinControl;
protected
procedure Put(Index: Integer; const S: string); override;
{$IFNDEF HAS_INHERITED_INSERTITEM}
// 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: TCarbonListBox; AWinControl: TWinControl);
@ -232,6 +235,7 @@ begin
FOwner.UpdateItem(Index);
end;
{$IFNDEF HAS_INHERITED_INSERTITEM}
{------------------------------------------------------------------------------
Method: TCarbonListBoxStrings.InsertItem
Params: Index - Line index
@ -245,6 +249,7 @@ begin
FOwner.InsertItem(Index);
end;
{$ENDIF}
{------------------------------------------------------------------------------
Method: TCarbonListBoxStrings.InsertItem