paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 03:59:14 +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

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

@ -191,6 +191,7 @@ type
procedure InsertItem(AIndex: Integer); procedure InsertItem(AIndex: Integer);
procedure UpdateItem(AIndex: Integer); procedure UpdateItem(AIndex: Integer);
procedure UpdateItems; procedure UpdateItems;
procedure Invalidate(Rect: PRect = nil); override;
end; end;
TCarbonListView = class; TCarbonListView = class;
@ -945,6 +946,16 @@ begin
CheckNeedsScrollBars; CheckNeedsScrollBars;
end; 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; procedure TCarbonDataBrowser.ClearItems;
begin begin
FItemsCheck.Clear; FItemsCheck.Clear;