From 0844d85f5ff3928695ec4fe45f2ab18e22f07c5e Mon Sep 17 00:00:00 2001 From: zeljko Date: Sat, 2 Jul 2011 17:55:02 +0000 Subject: [PATCH] carbon: make TListView.ViewStyle=vsList work under carbon. git-svn-id: trunk@31514 - --- lcl/interfaces/carbon/carbonlistviews.pp | 4 ++++ lcl/interfaces/carbon/carbonwscomctrls.pp | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lcl/interfaces/carbon/carbonlistviews.pp b/lcl/interfaces/carbon/carbonlistviews.pp index c4c27693eb..195dfb2b5e 100644 --- a/lcl/interfaces/carbon/carbonlistviews.pp +++ b/lcl/interfaces/carbon/carbonlistviews.pp @@ -1744,6 +1744,10 @@ procedure TCarbonListView.SetViewStyle(AStyle: TViewStyle); begin FStyle:=AStyle; ListViewModes[FStyle].Apply(Self); + if FStyle = vsList then + begin + ShowAsList(True); + end; end; procedure TCarbonListView.DoColumnClicked(MouseX, MouseY: Integer); diff --git a/lcl/interfaces/carbon/carbonwscomctrls.pp b/lcl/interfaces/carbon/carbonwscomctrls.pp index 4d9fff2873..3790bc6641 100644 --- a/lcl/interfaces/carbon/carbonwscomctrls.pp +++ b/lcl/interfaces/carbon/carbonwscomctrls.pp @@ -564,8 +564,8 @@ begin lvpMultiSelect: TCarbonListView(ALV.Handle).SetSelectionMode(AIsSet, AIsSet); lvpOwnerDraw: TCarbonListView(ALV.Handle).SetOwnerDraw(AIsSet); //lvpReadOnly - lvpRowSelect: TCarbonListView(ALV.Handle).SetRowSelect(AIsSet); - lvpShowColumnHeaders: TCarbonListView(ALV.Handle).ShowColumnHeaders(AIsSet); + lvpRowSelect: TCarbonListView(ALV.Handle).SetRowSelect((TListView(ALV).ViewStyle <> vsReport) or AIsSet); + lvpShowColumnHeaders: TCarbonListView(ALV.Handle).ShowColumnHeaders((TListView(ALV).ViewStyle = vsReport) and AIsSet); //lvpShowWorkAreas //lvpWrapText //lvpToolTips