paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 00:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

carbon: make TListView.ViewStyle=vsList work under carbon.

Browse Source 
git-svn-id: trunk@31514 -
This commit is contained in:
zeljko 2011-07-02 17:55:02 +00:00
parent 608b0c08ab
commit 0844d85f5f
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1744,6 +1744,10 @@ procedure TCarbonListView.SetViewStyle(AStyle: TViewStyle);
begin begin
FStyle:=AStyle; FStyle:=AStyle;
ListViewModes[FStyle].Apply(Self); ListViewModes[FStyle].Apply(Self);
if FStyle = vsList then
begin
ShowAsList(True);
end;
end; end;
procedure TCarbonListView.DoColumnClicked(MouseX, MouseY: Integer); procedure TCarbonListView.DoColumnClicked(MouseX, MouseY: Integer);

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

@ -564,8 +564,8 @@ begin
lvpMultiSelect: TCarbonListView(ALV.Handle).SetSelectionMode(AIsSet, AIsSet); lvpMultiSelect: TCarbonListView(ALV.Handle).SetSelectionMode(AIsSet, AIsSet);
lvpOwnerDraw: TCarbonListView(ALV.Handle).SetOwnerDraw(AIsSet); lvpOwnerDraw: TCarbonListView(ALV.Handle).SetOwnerDraw(AIsSet);
//lvpReadOnly //lvpReadOnly
lvpRowSelect: TCarbonListView(ALV.Handle).SetRowSelect(AIsSet); lvpRowSelect: TCarbonListView(ALV.Handle).SetRowSelect((TListView(ALV).ViewStyle <> vsReport) or AIsSet);
lvpShowColumnHeaders: TCarbonListView(ALV.Handle).ShowColumnHeaders(AIsSet); lvpShowColumnHeaders: TCarbonListView(ALV.Handle).ShowColumnHeaders((TListView(ALV).ViewStyle = vsReport) and AIsSet);
//lvpShowWorkAreas //lvpShowWorkAreas
//lvpWrapText //lvpWrapText
//lvpToolTips //lvpToolTips