From 8e98e24674212b0e7dd7443a39cebd82e4e78e1d Mon Sep 17 00:00:00 2001 From: ask Date: Thu, 6 Jan 2011 19:14:59 +0000 Subject: [PATCH] TAChart: Remove workaround for issue #17217 from multi-demo git-svn-id: trunk@28890 - --- components/tachart/demo/multi/Main.lfm | 6 ++++-- components/tachart/demo/multi/Main.pas | 1 - 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/components/tachart/demo/multi/Main.lfm b/components/tachart/demo/multi/Main.lfm index 2da752fd74..c0faecc720 100644 --- a/components/tachart/demo/multi/Main.lfm +++ b/components/tachart/demo/multi/Main.lfm @@ -8,7 +8,7 @@ object Form1: TForm1 ClientWidth = 529 OnCreate = FormCreate Position = poScreenCenter - LCLVersion = '0.9.29' + LCLVersion = '0.9.31' object PageControl1: TPageControl Left = 0 Height = 459 @@ -131,14 +131,16 @@ object Form1: TForm1 Caption = ' Type ' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 + ChildSizing.HorizontalSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds - ChildSizing.Layout = cclTopToBottomThenLeftToRight + ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 3 ClientHeight = 24 ClientWidth = 177 + Columns = 3 ItemIndex = 0 Items.Strings = ( 'Area' diff --git a/components/tachart/demo/multi/Main.pas b/components/tachart/demo/multi/Main.pas index af9e6f5f64..1f30d9f723 100644 --- a/components/tachart/demo/multi/Main.pas +++ b/components/tachart/demo/multi/Main.pas @@ -66,7 +66,6 @@ begin end; chWhiskersBoxAndWhiskerSeries1.ListSource.SetYList(i - 1, ylist); end; - rgStackedSeries.ChildSizing.Layout := cclLeftToRightThenTopToBottom; end; procedure TForm1.rgStackedSeriesClick(Sender: TObject);