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

carbon: fixed setting initial ListView Multiselect value. Fixed MakeVisible for listview item. bug #17082

Browse Source 
git-svn-id: trunk@27095 -
This commit is contained in:
dmitry 2010-08-14 09:11:37 +00:00
parent 99e42b0a93
commit 76e6393192
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1377,7 +1377,7 @@ end;
procedure TCarbonDataBrowser.ShowItem(AIndex: Integer; Partial: Boolean);
begin
// TODO: partial show
OSError(RevealDataBrowserItem(Widget, AIndex, CheckPropertyID,
OSError(RevealDataBrowserItem(Widget, AIndex, kDataBrowserNoItem,
kDataBrowserRevealWithoutSelecting), Self, 'ShowItem', 'RevealDataBrowserItem');
end;

7
lcl/interfaces/carbon/carbonwscomctrls.pp
View File

@ -266,8 +266,13 @@ end;
------------------------------------------------------------------------------}
class function TCarbonWSCustomListView.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle;
var
clv : TCarbonListView;
begin
Result := TLCLIntfHandle(TCarbonListView.Create(AWinControl, AParams));
clv:=TCarbonListView.Create(AWinControl, AParams);
Result := TLCLIntfHandle(clv);
if Assigned(clv) then
clv.SetSelectionMode(True, TListView(AWinControl).MultiSelect);
end;
class procedure TCarbonWSCustomListView.ColumnDelete