paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 21:41:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, Carbon, fix duplicate entries in comboboxes

Browse Source 
git-svn-id: trunk@40684 -
This commit is contained in:
jesus 2013-04-01 20:25:52 +00:00
parent 77e0434dd9
commit a3c424c1e1
1 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,7 +40,6 @@ type
FOwner: TCarbonComboBox; // Carbon combo box control owning strings FOwner: TCarbonComboBox; // Carbon combo box control owning strings
protected protected
procedure Put(Index: Integer; const S: string); override; procedure Put(Index: Integer; const S: string); override;
procedure InsertItem(Index: Integer; const S: string); override;
procedure InsertItem(Index: Integer; const S: string; O: TObject); override; procedure InsertItem(Index: Integer; const S: string; O: TObject); override;
public public
constructor Create(AOwner: TCarbonComboBox); constructor Create(AOwner: TCarbonComboBox);
@ -116,20 +115,6 @@ begin
FOwner.Insert(Index, S); FOwner.Insert(Index, S);
end; end;
{------------------------------------------------------------------------------
Method: TCarbonComboBoxStrings.InsertItem
Params: Index - Line index
S - Text to insert
Inserts the text on line with the specified index
------------------------------------------------------------------------------}
procedure TCarbonComboBoxStrings.InsertItem(Index: Integer; const S: string);
begin
inherited InsertItem(Index, S);
FOwner.Insert(Index, S);
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TCarbonComboBoxStrings.InsertItem Method: TCarbonComboBoxStrings.InsertItem
Params: Index - Line index Params: Index - Line index