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

listview: fix reshresh for the carbon. the issue reported by Frederick at #18546 (46344)

Browse Source 
git-svn-id: trunk@30833 -
This commit is contained in:
dmitry 2011-05-21 04:38:48 +00:00
parent a32a3ef4ca
commit 45c4c2fc7c
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/carbon/carbonlistviews.pp
View File

@ -191,6 +191,7 @@ type
procedure InsertItem(AIndex: Integer);
procedure UpdateItem(AIndex: Integer);
procedure UpdateItems;
procedure Invalidate(Rect: PRect = nil); override;
end;
TCarbonListView = class;
@ -945,6 +946,16 @@ begin
CheckNeedsScrollBars;
end;
procedure TCarbonDataBrowser.Invalidate(Rect: PRect);
begin
UpdateItems;
OSError(UpdateDataBrowserItems(Widget, kDataBrowserNoItem, 1, nil,
kDataBrowserItemNoProperty, kDataBrowserNoItem),
Self, 'UpdateItem', 'UpdateDataBrowserItems');
inherited Invalidate(Rect);
end;
procedure TCarbonDataBrowser.ClearItems;
begin
FItemsCheck.Clear;
@ -1793,7 +1804,7 @@ end;
procedure TCarbonListView.SetItemsCount(ACount: Integer);
begin
if not FOwnerData then Exit;
RemoveDataBrowserItems(Widget, kDataBrowserNoItem, 0, nil, kDataBrowserItemNoProperty);
OSError(
AddDataBrowserItems( Widget, kDataBrowserNoItem, ACount, nil, kDataBrowserItemNoProperty),