paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 12:09:21 +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 ClientWidth = 529
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.29' LCLVersion = '0.9.31'
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 459 Height = 459
@ -131,14 +131,16 @@ object Form1: TForm1
Caption = ' Type ' Caption = ' Type '
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6 ChildSizing.TopBottomSpacing = 6
ChildSizing.HorizontalSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclTopToBottomThenLeftToRight ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3 ChildSizing.ControlsPerLine = 3
ClientHeight = 24 ClientHeight = 24
ClientWidth = 177 ClientWidth = 177
Columns = 3
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'Area' 'Area'

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

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