paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-29 08:20:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

carbon: fix for #15624

Browse Source 
git-svn-id: trunk@23715 -
This commit is contained in:
dmitry 2010-02-16 10:49:51 +00:00
parent 5256443704
commit 26e2e3e242
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -68,6 +68,7 @@ type
procedure Clear; override;
procedure Delete(Index: Integer); override;
procedure Sort; override;
procedure Exchange(Index1, Index2: Integer); override;
public
property Owner: TCarbonListBox read FOwner;
end;
@ -299,6 +300,16 @@ begin
FOwner.UpdateItems;
end;
procedure TCarbonListBoxStrings.Exchange(Index1, Index2: Integer);
begin
inherited Exchange(Index1, Index2);
if Assigned(FOwner) then
begin
FOwner.UpdateItem(Index1);
FOwner.UpdateItem(Index2);
end;
end;
{ TCarbonMemoStrings }
{------------------------------------------------------------------------------