paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 19:10:25 +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); procedure TCarbonDataBrowser.ShowItem(AIndex: Integer; Partial: Boolean);
begin begin
// TODO: partial show // TODO: partial show
OSError(RevealDataBrowserItem(Widget, AIndex, CheckPropertyID, OSError(RevealDataBrowserItem(Widget, AIndex, kDataBrowserNoItem,
kDataBrowserRevealWithoutSelecting), Self, 'ShowItem', 'RevealDataBrowserItem'); kDataBrowserRevealWithoutSelecting), Self, 'ShowItem', 'RevealDataBrowserItem');
end; end;

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

@ -266,8 +266,13 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
class function TCarbonWSCustomListView.CreateHandle(const AWinControl: TWinControl; class function TCarbonWSCustomListView.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle; const AParams: TCreateParams): TLCLIntfHandle;
var
clv : TCarbonListView;
begin 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; end;
class procedure TCarbonWSCustomListView.ColumnDelete class procedure TCarbonWSCustomListView.ColumnDelete