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

lcl: carbon: undo 40684, comboboxes dwere all empty in the IDE

Browse Source 
git-svn-id: trunk@40835 -
This commit is contained in:
mattias 2013-04-18 12:35:38 +00:00
parent 6e08b82839
commit 34906c6a9f
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,6 +40,7 @@ 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);
@ -115,6 +116,20 @@ 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