TAChart: Add rotated axes demo. Improved layout of the other axis demos.

git-svn-id: trunk@63678 -

components/tachart/demo/axis/axisdemo.lpi

@@ -25,6 +25,9 @@
       <Version Value="2"/>
     </PublishOptions>
     <RunParams>
+      <local>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+      </local>
       <FormatVersion Value="2"/>
       <Modes Count="1">
         <Mode0 Name="default">
@@ -74,9 +77,6 @@
       <SmartLinkUnit Value="True"/>
     </CodeGeneration>
     <Linking>
-      <Debugging>
-        <UseExternalDbgSyms Value="True"/>
-      </Debugging>
       <LinkSmart Value="True"/>
       <Options>
         <Win32>

components/tachart/demo/axis/main.lfm

@@ -1,19 +1,19 @@
 object Form1: TForm1
   Left = 343
-  Height = 430
+  Height = 413
   Top = 184
-  Width = 533
+  Width = 566
   Caption = 'TAChart axis demo'
-  ClientHeight = 430
-  ClientWidth = 533
+  ClientHeight = 413
+  ClientWidth = 566
   OnCreate = FormCreate
   Position = poScreenCenter
   LCLVersion = '2.1.0.0'
   object PageControl1: TPageControl
     Left = 0
-    Height = 430
+    Height = 413
     Top = 0
-    Width = 533
+    Width = 566
     ActivePage = tsCustomMarks
     Align = alClient
     TabIndex = 0
@@ -21,13 +21,13 @@ object Form1: TForm1
     Options = [nboKeyboardTabSwitch]
     object tsCustomMarks: TTabSheet
       Caption = 'Customized marks'
-      ClientHeight = 402
-      ClientWidth = 525
+      ClientHeight = 385
+      ClientWidth = 558
       object ChartCustomMarks: TChart
         Left = 0
-        Height = 402
+        Height = 385
         Top = 0
-        Width = 525
+        Width = 558
         AxisList = <        
           item
             TickLength = 0
@@ -92,13 +92,13 @@ object Form1: TForm1
     end
     object tsAxisGroup: TTabSheet
       Caption = 'Axis groups'
-      ClientHeight = 402
-      ClientWidth = 525
+      ClientHeight = 385
+      ClientWidth = 558
       object ChartAxisGroup: TChart
         Left = 0
-        Height = 402
+        Height = 385
         Top = 0
-        Width = 525
+        Width = 558
         AxisList = <        
           item
             Grid.Visible = False
@@ -127,13 +127,13 @@ object Form1: TForm1
     end
     object tsSubmarks: TTabSheet
       Caption = 'Submarks'
-      ClientHeight = 402
-      ClientWidth = 525
+      ClientHeight = 385
+      ClientWidth = 558
       object ChartSubmarks: TChart
         Left = 0
-        Height = 402
+        Height = 385
         Top = 0
-        Width = 525
+        Width = 558
         AxisList = <        
           item
             TickLength = 6
@@ -195,13 +195,13 @@ object Form1: TForm1
     end
     object tsDateTime: TTabSheet
       Caption = 'Date and time'
-      ClientHeight = 402
-      ClientWidth = 525
+      ClientHeight = 385
+      ClientWidth = 558
       object ChartDateTime: TChart
         Left = 0
-        Height = 368
+        Height = 350
         Top = 0
-        Width = 525
+        Width = 558
         AxisList = <        
           item
             Marks.LabelBrush.Style = bsClear
@@ -235,20 +235,28 @@ object Form1: TForm1
         end
       end
       object Panel1: TPanel
+        AnchorSideTop.Side = asrCenter
         Left = 0
-        Height = 34
-        Top = 368
-        Width = 525
+        Height = 35
+        Top = 350
+        Width = 558
         Align = alBottom
+        AutoSize = True
         BevelOuter = bvNone
-        ClientHeight = 34
-        ClientWidth = 525
+        ClientHeight = 35
+        ClientWidth = 558
         TabOrder = 1
         object CbSuppressPrevUnit: TCheckBox
-          Left = 11
+          AnchorSideLeft.Control = Panel1
+          AnchorSideTop.Control = Panel1
+          AnchorSideTop.Side = asrCenter
+          Left = 8
           Height = 19
           Top = 8
           Width = 139
+          BorderSpacing.Left = 8
+          BorderSpacing.Top = 8
+          BorderSpacing.Bottom = 8
           Caption = 'Suppress previous unit'
           Checked = True
           OnChange = CbSuppressPrevUnitChange
@@ -256,19 +264,29 @@ object Form1: TForm1
           TabOrder = 0
         end
         object CbAlternateFormat: TCheckBox
-          Left = 195
+          AnchorSideLeft.Control = CbSuppressPrevUnit
+          AnchorSideLeft.Side = asrBottom
+          AnchorSideTop.Control = Panel1
+          AnchorSideTop.Side = asrCenter
+          Left = 163
           Height = 19
           Top = 8
           Width = 145
+          BorderSpacing.Left = 16
           Caption = 'Alternate format strings'
           OnChange = CbAlternateFormatChange
           TabOrder = 1
         end
         object Label1: TLabel
-          Left = 393
+          AnchorSideLeft.Control = CbAlternateFormat
+          AnchorSideLeft.Side = asrBottom
+          AnchorSideTop.Control = Panel1
+          AnchorSideTop.Side = asrCenter
+          Left = 332
           Height = 15
           Top = 10
           Width = 34
+          BorderSpacing.Left = 24
           Caption = 'Label1'
           ParentColor = False
         end
@@ -384,18 +402,19 @@ object Form1: TForm1
     end
     object tsPosition: TTabSheet
       Caption = 'Position'
-      ClientHeight = 402
-      ClientWidth = 525
+      ClientHeight = 385
+      ClientWidth = 558
       object ChartPosition: TChart
         Left = 0
-        Height = 402
+        Height = 385
         Top = 0
-        Width = 384
+        Width = 389
         AxisList = <        
           item
             Grid.Visible = False
             Intervals.Tolerance = 1
             AxisPen.Visible = True
+            Marks.LabelBrush.Style = bsClear
             Minors = <>
             Position = 50
             Title.LabelBrush.Style = bsClear
@@ -405,6 +424,7 @@ object Form1: TForm1
             Intervals.Tolerance = 1
             Alignment = calBottom
             AxisPen.Visible = True
+            Marks.LabelBrush.Style = bsClear
             Minors = <>
             Position = 50
             Title.LabelBrush.Style = bsClear
@@ -452,24 +472,26 @@ object Form1: TForm1
         end
       end
       object pnlPosition: TPanel
-        Left = 384
-        Height = 402
+        Left = 389
+        Height = 385
         Top = 0
-        Width = 141
+        Width = 169
         Align = alRight
-        ClientHeight = 402
-        ClientWidth = 141
+        BevelOuter = bvNone
+        ClientHeight = 385
+        ClientWidth = 169
         TabOrder = 1
         object gbPositionX: TGroupBox
-          Left = 1
+          Left = 0
           Height = 124
-          Top = 1
-          Width = 139
+          Top = 0
+          Width = 163
           Align = alTop
           AutoSize = True
+          BorderSpacing.Right = 6
           Caption = ' X axis '
           ClientHeight = 104
-          ClientWidth = 135
+          ClientWidth = 159
           TabOrder = 0
           object seXPosition: TSpinEdit
             AnchorSideLeft.Control = lblPositionX
@@ -480,7 +502,7 @@ object Form1: TForm1
             Left = 62
             Height = 23
             Top = 0
-            Width = 65
+            Width = 89
             Anchors = [akTop, akLeft, akRight]
             BorderSpacing.Left = 8
             BorderSpacing.Right = 8
@@ -561,7 +583,7 @@ object Form1: TForm1
             Left = 62
             Height = 23
             Top = 27
-            Width = 65
+            Width = 89
             Anchors = [akTop, akLeft, akRight]
             BorderSpacing.Top = 4
             ItemHeight = 15
@@ -579,16 +601,17 @@ object Form1: TForm1
           end
         end
         object gbPositionY: TGroupBox
-          Left = 1
+          Left = 0
           Height = 124
-          Top = 133
-          Width = 139
+          Top = 132
+          Width = 163
           Align = alTop
           AutoSize = True
           BorderSpacing.Top = 8
+          BorderSpacing.Right = 6
           Caption = ' Y axis '
           ClientHeight = 104
-          ClientWidth = 135
+          ClientWidth = 159
           TabOrder = 1
           object lblPositionY: TLabel
             AnchorSideLeft.Control = gbPositionY
@@ -624,7 +647,7 @@ object Form1: TForm1
             Left = 62
             Height = 23
             Top = 0
-            Width = 65
+            Width = 89
             Anchors = [akTop, akLeft, akRight]
             BorderSpacing.Left = 8
             BorderSpacing.Right = 8
@@ -669,7 +692,7 @@ object Form1: TForm1
             Left = 62
             Height = 23
             Top = 27
-            Width = 65
+            Width = 89
             Anchors = [akTop, akLeft, akRight]
             BorderSpacing.Top = 4
             ItemHeight = 15
@@ -698,6 +721,71 @@ object Form1: TForm1
         end
       end
     end
+    object TabSheet1: TTabSheet
+      Caption = 'Rotated'
+      ClientHeight = 385
+      ClientWidth = 558
+      object ChartRotated: TChart
+        Left = 0
+        Height = 349
+        Top = 0
+        Width = 558
+        AxisList = <        
+          item
+            Marks.LabelBrush.Style = bsClear
+            Minors = <>
+            Title.LabelFont.Orientation = 900
+            Title.LabelBrush.Style = bsClear
+          end        
+          item
+            Alignment = calBottom
+            Marks.Format = '%2:s'
+            Marks.LabelBrush.Style = bsClear
+            Marks.Source = lcsRotatedSeries
+            Marks.Style = smsLabel
+            Minors = <>
+            Title.LabelBrush.Style = bsClear
+          end>
+        Foot.Brush.Color = clBtnFace
+        Foot.Font.Color = clBlue
+        Title.Brush.Color = clBtnFace
+        Title.Font.Color = clBlue
+        Title.Text.Strings = (
+          'TAChart'
+        )
+        Align = alClient
+        object ChartRotatedBarSeries: TBarSeries
+          BarBrush.Color = clRed
+          Source = lcsRotatedSeries
+          Styles = ChartStyles1
+        end
+      end
+      object Panel2: TPanel
+        Left = 0
+        Height = 36
+        Top = 349
+        Width = 558
+        Align = alBottom
+        AutoSize = True
+        BevelOuter = bvNone
+        ClientHeight = 36
+        ClientWidth = 558
+        TabOrder = 1
+        object cbRotated: TCheckBox
+          AnchorSideLeft.Control = Panel2
+          AnchorSideTop.Control = Panel2
+          AnchorSideTop.Side = asrCenter
+          Left = 8
+          Height = 19
+          Top = 9
+          Width = 61
+          BorderSpacing.Around = 8
+          Caption = 'Rotated'
+          OnChange = cbRotatedChange
+          TabOrder = 0
+        end
+      end
+    end
   end
   object lcsMarks: TListChartSource
     DataPoints.Strings = (
@@ -708,17 +796,15 @@ object Form1: TForm1
       '5|37000|?|May'
       '6|22000|?|June'
     )
-    left = 216
-    top = 164
+    Left = 216
+    Top = 164
   end
   object rcsDates: TRandomChartSource
     RandSeed = 1079653020
-    XMax = 0
-    XMin = 0
     YMax = 50
     YMin = 5
-    left = 216
-    top = 216
+    Left = 216
+    Top = 216
   end
   object DateTimeIntervalChartSource1: TDateTimeIntervalChartSource
     Params.Count = 10
@@ -726,12 +812,12 @@ object Form1: TForm1
     Params.MinLength = 20
     Params.Options = [aipUseCount, aipUseMaxLength, aipUseMinLength, aipUseNiceSteps]
     OnDateTimeStepChange = DateTimeIntervalChartSource1DateTimeStepChange
-    left = 248
-    top = 320
+    Left = 248
+    Top = 320
   end
   object ChartToolsetDateTime: TChartToolset
-    left = 448
-    top = 320
+    Left = 448
+    Top = 320
     object ChartToolset1ZoomIn: TZoomClickTool
       Shift = [ssLeft]
       ZoomFactor = 4
@@ -746,20 +832,20 @@ object Form1: TForm1
   object udcsMain: TUserDefinedChartSource
     OnGetChartDataItem = udcsMainGetChartDataItem
     PointsNumber = 10
-    left = 344
-    top = 72
+    Left = 344
+    Top = 72
   end
   object udcsSub: TUserDefinedChartSource
     OnGetChartDataItem = udcsSubGetChartDataItem
     PointsNumber = 50
-    left = 344
-    top = 116
+    Left = 344
+    Top = 116
   end
   object udcsGraph: TUserDefinedChartSource
     OnGetChartDataItem = udcsGraphGetChartDataItem
     PointsNumber = 100
-    left = 352
-    top = 184
+    Left = 352
+    Top = 184
   end
   object csStripes: TChartStyles
     Styles = <    
@@ -771,7 +857,33 @@ object Form1: TForm1
         Brush.Color = 12319483
         UsePen = False
       end>
-    left = 304
-    top = 176
+    Left = 304
+    Top = 176
+  end
+  object lcsRotatedSeries: TListChartSource
+    DataPoints.Strings = (
+      '1|104|53|62|?|A'
+      '2|243|47|51|?|B'
+      '3|405|51|26|?|C'
+      '4|156|68|28|?|D'
+      '5|364|16|35|?|E'
+    )
+    YCount = 3
+    Left = 468
+    Top = 35
+  end
+  object ChartStyles1: TChartStyles
+    Styles = <    
+      item
+        Brush.Color = clRed
+      end    
+      item
+        Brush.Color = clYellow
+      end    
+      item
+        Brush.Color = clGreen
+      end>
+    Left = 468
+    Top = 88
   end
 end

components/tachart/demo/axis/main.pas

@@ -20,6 +20,7 @@ type
     catTFahrToCel: TLinearAxisTransform;
     cbStaticY: TCheckBox;
     cbUnitsY: TComboBox;
+    ChartRotated: TChart;
     ChartPosition: TChart;
     ChartIntervals: TChart;
     ChartAxisGroup: TChart;
@@ -28,6 +29,8 @@ type
     ChartDateTime: TChart;
     ChartDateTimeLineSeries1: TLineSeries;
     ChartPositionFuncSeries1: TFuncSeries;
+    ChartRotatedBarSeries: TBarSeries;
+    ChartStyles1: TChartStyles;
     ChartSubmarks: TChart;
     ChartSubmarksLineSeries1: TLineSeries;
     ChartToolset1ZoomIn: TZoomClickTool;
@@ -37,6 +40,7 @@ type
     cbUnitsX: TComboBox;
     CbSuppressPrevUnit: TCheckBox;
     CbAlternateFormat: TCheckBox;
+    cbRotated: TCheckBox;
     csStripes: TChartStyles;
     DateTimeIntervalChartSource1: TDateTimeIntervalChartSource;
     gbPositionX: TGroupBox;
@@ -47,8 +51,10 @@ type
     lblPositionY: TLabel;
     lblUnitsY: TLabel;
     lcsMarks: TListChartSource;
+    lcsRotatedSeries: TListChartSource;
     PageControl1: TPageControl;
     Panel1: TPanel;
+    Panel2: TPanel;
     pnlPosition: TPanel;
     rbPositionBottom: TRadioButton;
     rbPositionLeft: TRadioButton;
@@ -57,6 +63,7 @@ type
     rcsDates: TRandomChartSource;
     seXPosition: TSpinEdit;
     seYPosition: TSpinEdit;
+    TabSheet1: TTabSheet;
     tsPosition: TTabSheet;
     tsIntervals: TTabSheet;
     tsAxisGroup: TTabSheet;
@@ -66,6 +73,7 @@ type
     udcsGraph: TUserDefinedChartSource;
     udcsMain: TUserDefinedChartSource;
     udcsSub: TUserDefinedChartSource;
+    procedure cbRotatedChange(Sender: TObject);
     procedure cbStaticXChange(Sender: TObject);
     procedure cbStaticYChange(Sender: TObject);
     procedure CbSuppressPrevUnitChange(Sender: TObject);
@@ -107,6 +115,32 @@ begin
   ChartPosition.AxisList[3].Visible := cbStaticX.Checked;
 end;
 
+procedure TForm1.cbRotatedChange(Sender: TObject);
+begin
+  if cbRotated.Checked then
+  begin
+    ChartRotatedBarSeries.AxisIndexX := 0;
+    ChartRotatedBarSeries.AxisIndexY := 1;
+    ChartRotated.BottomAxis.Marks.Source := nil;
+    ChartRotated.BottomAxis.Marks.Style := smsValue;
+    ChartRotated.LeftAxis.Marks.Source := lcsRotatedSeries;
+    ChartRotated.LeftAxis.Marks.Style := smsLabel;
+  end else
+  begin
+    ChartRotatedBarSeries.AxisIndexX := 1;
+    ChartRotatedBarSeries.AxisIndexY := 0;
+    ChartRotated.LeftAxis.Marks.Source := nil;
+    ChartRotated.LeftAxis.Marks.Style := smsValue;
+    ChartRotated.BottomAxis.Marks.Source := lcsRotatedSeries;
+    ChartRotated.BottomAxis.Marks.Style := smsLabel;
+  end;
+
+  // This exchanges the x/y value of the source for the marks being displayed
+  // along the axis. This is necessary because the axis does not "know" that
+  // the series uses rotated x/y values.
+  ChartRotated.LeftAxis.Marks.SourceExchangeXY := cbRotated.Checked;
+end;
+
 procedure TForm1.cbStaticYChange(Sender: TObject);
 begin
   ChartPosition.AxisList[2].Visible := cbStaticY.Checked;

components/tachart/demo/axisalign/main.lfm

@@ -445,11 +445,9 @@ object Form1: TForm1
     PointsNumber = 10
     RandSeed = 1952997387
     XMax = 1
-    XMin = 0
     YMax = 1
-    YMin = 0
-    left = 264
-    top = 272
+    Left = 264
+    Top = 272
   end
   object RandomChartSource2: TRandomChartSource
     PointsNumber = 20
@@ -457,8 +455,7 @@ object Form1: TForm1
     XMax = 1000
     XMin = -1000
     YMax = 1000000
-    YMin = 0
-    left = 392
-    top = 272
+    Left = 392
+    Top = 272
   end
 end

components/tachart/demo/axistransf/axistransfdemo.lpi

@@ -25,6 +25,9 @@
       <Version Value="2"/>
     </PublishOptions>
     <RunParams>
+      <local>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+      </local>
       <FormatVersion Value="2"/>
       <Modes Count="1">
         <Mode0 Name="default">

components/tachart/demo/axistransf/main.lfm

@@ -14,9 +14,9 @@ object Form1: TForm1
     Height = 434
     Top = 0
     Width = 533
-    ActivePage = tsUser
+    ActivePage = tsLinear
     Align = alClient
-    TabIndex = 4
+    TabIndex = 0
     TabOrder = 0
     object tsLinear: TTabSheet
       Caption = 'Linear'
@@ -24,7 +24,7 @@ object Form1: TForm1
       ClientWidth = 525
       object ChartT: TChart
         Left = 0
-        Height = 379
+        Height = 371
         Top = 0
         Width = 525
         AxisList = <        
@@ -102,25 +102,26 @@ object Form1: TForm1
       end
       object pnlAutoControls: TPanel
         Left = 0
-        Height = 27
-        Top = 379
+        Height = 35
+        Top = 371
         Width = 525
         Align = alBottom
         AutoSize = True
         BevelOuter = bvNone
-        ClientHeight = 27
+        ClientHeight = 35
         ClientWidth = 525
         TabOrder = 1
         object cbAuto: TCheckBox
           AnchorSideLeft.Control = pnlAutoControls
           AnchorSideTop.Control = pnlAutoControls
-          Left = 4
+          AnchorSideTop.Side = asrCenter
+          Left = 8
           Height = 19
-          Top = 4
+          Top = 8
           Width = 75
-          BorderSpacing.Left = 4
-          BorderSpacing.Top = 4
-          BorderSpacing.Bottom = 4
+          BorderSpacing.Left = 8
+          BorderSpacing.Top = 8
+          BorderSpacing.Bottom = 8
           Caption = 'Auto scale'
           OnChange = cbAutoChange
           TabOrder = 0
@@ -133,7 +134,7 @@ object Form1: TForm1
       ClientWidth = 525
       object ChartIndependent: TChart
         Left = 0
-        Height = 351
+        Height = 347
         Top = 0
         Width = 525
         AxisList = <        
@@ -192,14 +193,14 @@ object Form1: TForm1
       end
       object pnlIndependentControls: TPanel
         Left = 4
-        Height = 47
-        Top = 355
+        Height = 51
+        Top = 351
         Width = 517
         Align = alBottom
         AutoSize = True
         BorderSpacing.Around = 4
         BevelOuter = bvNone
-        ClientHeight = 47
+        ClientHeight = 51
         ClientWidth = 517
         TabOrder = 1
         object fseIndependent1: TFloatSpinEdit
@@ -209,7 +210,7 @@ object Form1: TForm1
           AnchorSideTop.Side = asrCenter
           Left = 63
           Height = 23
-          Top = 12
+          Top = 14
           Width = 70
           BorderSpacing.Left = 8
           Increment = 0.1
@@ -226,7 +227,7 @@ object Form1: TForm1
           AnchorSideTop.Side = asrCenter
           Left = 196
           Height = 23
-          Top = 12
+          Top = 14
           Width = 70
           BorderSpacing.Left = 8
           Increment = 0.1
@@ -242,7 +243,7 @@ object Form1: TForm1
           AnchorSideTop.Side = asrCenter
           Left = 16
           Height = 15
-          Top = 16
+          Top = 18
           Width = 39
           BorderSpacing.Left = 16
           Caption = 'Scale 1'
@@ -258,7 +259,7 @@ object Form1: TForm1
           AnchorSideTop.Side = asrCenter
           Left = 149
           Height = 15
-          Top = 16
+          Top = 18
           Width = 39
           BorderSpacing.Left = 16
           Caption = 'Scale 2'
@@ -269,16 +270,17 @@ object Form1: TForm1
         end
         object rgSyncAxisMarks: TRadioGroup
           AnchorSideRight.Side = asrBottom
-          Left = 336
-          Height = 47
+          Left = 324
+          Height = 51
           Top = 0
-          Width = 181
+          Width = 193
           Align = alRight
           AutoFill = True
           AutoSize = True
           BorderSpacing.InnerBorder = 4
           Caption = ' Synchronize marks '
-          ChildSizing.LeftRightSpacing = 6
+          ChildSizing.LeftRightSpacing = 12
+          ChildSizing.TopBottomSpacing = 2
           ChildSizing.HorizontalSpacing = 10
           ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
           ChildSizing.EnlargeVertical = crsHomogenousChildResize
@@ -286,8 +288,8 @@ object Form1: TForm1
           ChildSizing.ShrinkVertical = crsScaleChilds
           ChildSizing.Layout = cclLeftToRightThenTopToBottom
           ChildSizing.ControlsPerLine = 3
-          ClientHeight = 27
-          ClientWidth = 177
+          ClientHeight = 31
+          ClientWidth = 189
           Columns = 3
           ItemIndex = 1
           Items.Strings = (
@@ -306,7 +308,7 @@ object Form1: TForm1
       ClientWidth = 525
       object ChartLog: TChart
         Left = 0
-        Height = 375
+        Height = 367
         Top = 0
         Width = 525
         AxisList = <        
@@ -385,16 +387,16 @@ object Form1: TForm1
         end
       end
       object pnlLogControls: TPanel
-        Left = 4
+        Left = 8
         Height = 23
-        Top = 379
-        Width = 517
+        Top = 375
+        Width = 509
         Align = alBottom
         AutoSize = True
-        BorderSpacing.Around = 4
+        BorderSpacing.Around = 8
         BevelOuter = bvNone
         ClientHeight = 23
-        ClientWidth = 517
+        ClientWidth = 509
         TabOrder = 1
         object cbLog: TCheckBox
           AnchorSideLeft.Control = pnlLogControls
@@ -443,8 +445,8 @@ object Form1: TForm1
       ClientWidth = 525
       object ChartCumulNormDistr: TChart
         Left = 0
-        Height = 340
-        Top = 66
+        Height = 324
+        Top = 82
         Width = 525
         AxisList = <        
           item
@@ -504,35 +506,37 @@ object Form1: TForm1
       end
       object pnCumulNormDistr: TPanel
         Left = 0
-        Height = 66
+        Height = 82
         Top = 0
         Width = 525
         Align = alTop
         AutoSize = True
         BevelOuter = bvNone
-        ClientHeight = 66
+        ClientHeight = 82
         ClientWidth = 525
         TabOrder = 1
         object rgRandDistr: TRadioGroup
-          Left = 4
-          Height = 58
-          Top = 4
+          AnchorSideLeft.Control = pnCumulNormDistr
+          AnchorSideTop.Control = pnCumulNormDistr
+          Left = 8
+          Height = 66
+          Top = 8
           Width = 175
-          Align = alLeft
           AutoFill = True
           AutoSize = True
-          BorderSpacing.Left = 4
-          BorderSpacing.Top = 4
-          BorderSpacing.Bottom = 4
+          BorderSpacing.Left = 8
+          BorderSpacing.Top = 8
+          BorderSpacing.Bottom = 8
           Caption = ' Random number generation '
           ChildSizing.LeftRightSpacing = 12
+          ChildSizing.TopBottomSpacing = 4
           ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
           ChildSizing.EnlargeVertical = crsHomogenousChildResize
           ChildSizing.ShrinkHorizontal = crsScaleChilds
           ChildSizing.ShrinkVertical = crsScaleChilds
           ChildSizing.Layout = cclLeftToRightThenTopToBottom
           ChildSizing.ControlsPerLine = 1
-          ClientHeight = 38
+          ClientHeight = 46
           ClientWidth = 171
           ItemIndex = 1
           Items.Strings = (
@@ -547,7 +551,7 @@ object Form1: TForm1
           AnchorSideLeft.Control = lblDataCount
           AnchorSideTop.Control = edDataCount
           AnchorSideTop.Side = asrBottom
-          Left = 195
+          Left = 199
           Height = 19
           Top = 39
           Width = 60
@@ -559,7 +563,7 @@ object Form1: TForm1
         object cbUseAxisTransform: TCheckBox
           AnchorSideLeft.Control = edDataCount
           AnchorSideTop.Control = cbPercent
-          Left = 264
+          Left = 268
           Height = 19
           Top = 39
           Width = 118
@@ -572,7 +576,7 @@ object Form1: TForm1
           AnchorSideLeft.Control = lblDataCount
           AnchorSideLeft.Side = asrBottom
           AnchorSideTop.Control = pnCumulNormDistr
-          Left = 264
+          Left = 268
           Height = 23
           Top = 8
           Width = 82
@@ -589,7 +593,7 @@ object Form1: TForm1
           AnchorSideLeft.Side = asrBottom
           AnchorSideTop.Control = edDataCount
           AnchorSideTop.Side = asrCenter
-          Left = 195
+          Left = 199
           Height = 15
           Top = 12
           Width = 61
@@ -652,8 +656,8 @@ object Form1: TForm1
     end
   end
   object catLog: TChartAxisTransformations
-    left = 216
-    top = 60
+    Left = 216
+    Top = 60
     object ChartAxisTransformations1LinearAxisTransform2: TLinearAxisTransform
       Scale = 2
     end
@@ -662,8 +666,8 @@ object Form1: TForm1
     end
   end
   object catT: TChartAxisTransformations
-    left = 352
-    top = 60
+    Left = 352
+    Top = 60
     object catTFahrToCel: TLinearAxisTransform
       Offset = -17.777777777
       Scale = 0.5555555555
@@ -678,9 +682,8 @@ object Form1: TForm1
     XMax = 2009
     XMin = 1990
     YMax = 25
-    YMin = 0
-    left = 87
-    top = 106
+    Left = 87
+    Top = 106
   end
   object rcsTWinter: TRandomChartSource
     PointsNumber = 20
@@ -689,12 +692,12 @@ object Form1: TForm1
     XMin = 1990
     YMax = 20
     YMin = -15
-    left = 87
-    top = 156
+    Left = 87
+    Top = 156
   end
   object catTAuto: TChartAxisTransformations
-    left = 352
-    top = 112
+    Left = 352
+    Top = 112
     object catTAutoAutoScaleAxisTransform1: TAutoScaleAxisTransform
       Enabled = False
     end
@@ -709,53 +712,52 @@ object Form1: TForm1
         Brush.Color = 12319483
         UsePen = False
       end>
-    left = 352
-    top = 176
+    Left = 352
+    Top = 176
   end
   object rcsUser: TRandomChartSource
     PointsNumber = 100
     RandSeed = 1999979507
     XMax = 50
-    XMin = 0
     YMax = 20
     YMin = 10
-    left = 87
-    top = 208
+    Left = 87
+    Top = 208
   end
   object catUser: TChartAxisTransformations
-    left = 352
-    top = 236
+    Left = 352
+    Top = 236
     object catUserUserDefinedAxisTransform1: TUserDefinedAxisTransform
       OnAxisToGraph = catUserUserDefinedAxisTransform1AxisToGraph
     end
   end
   object ChartToolset1: TChartToolset
-    left = 216
-    top = 116
+    Left = 216
+    Top = 116
     object ChartToolset1DataPointDragTool1: TDataPointDragTool
       Shift = [ssLeft]
       AffectedSeries = '1'
     end
   end
   object catIndependent1: TChartAxisTransformations
-    left = 220
-    top = 176
+    Left = 220
+    Top = 176
     object catIndependent1Zoom: TLinearAxisTransform
     end
   end
   object catIndependent2: TChartAxisTransformations
-    left = 220
-    top = 236
+    Left = 220
+    Top = 236
     object catIndependent2Zoom: TLinearAxisTransform
     end
   end
   object AxLabelSource: TListChartSource
-    left = 311
-    top = 305
+    Left = 311
+    Top = 305
   end
   object catCumulNormDistr: TChartAxisTransformations
-    left = 310
-    top = 305
+    Left = 310
+    Top = 305
     object catCumulNormDistrLinearAxisTransform1: TLinearAxisTransform
       Enabled = False
       Scale = 0.01