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

TAChart: Remove workaround for issue #17217 from multi-demo

Browse Source 
git-svn-id: trunk@28890 -
This commit is contained in:
ask 2011-01-06 19:14:59 +00:00
parent bfac641b16
commit 8e98e24674
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/demo/multi/Main.lfm
View File

@ -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'

1
components/tachart/demo/multi/Main.pas
View File

@ -66,7 +66,6 @@ begin
end;
chWhiskersBoxAndWhiskerSeries1.ListSource.SetYList(i - 1, ylist);
end;
rgStackedSeries.ChildSizing.Layout := cclLeftToRightThenTopToBottom;
end;
procedure TForm1.rgStackedSeriesClick(Sender: TObject);