TAChart: Update savedemo to test label clipping

git-svn-id: trunk@23434 -

components/tachart/demo/save/main.lfm

@@ -7,20 +7,26 @@ object Form1: TForm1
   ClientHeight = 300
   ClientWidth = 421
   OnCreate = FormCreate
-  LCLVersion = '0.9.27'
+  LCLVersion = '0.9.29'
   object Chart1: TChart
     Left = 0
     Height = 276
     Top = 24
     Width = 421
-    BottomAxis.Grid.Style = psDot
+    AxisList = <    
-    BottomAxis.Grid.Visible = True
+      item
+        Alignment = calLeft
+        Title.Font.Orientation = 900
+        Transformation.Offset = 0
+        Transformation.Scale = 1
+      end    
+      item
+        Alignment = calBottom
+        Transformation.Offset = 0
+        Transformation.Scale = 1
+      end>
     Foot.Brush.Color = clBtnFace
     Foot.Font.Color = clBlue
-    Frame.Visible = True
-    LeftAxis.Grid.Style = psDot
-    LeftAxis.Grid.Visible = True
-    LeftAxis.Title.Angle = 90
     Title.Brush.Color = clBtnFace
     Title.Font.Color = clBlue
     Title.Text.Strings = (
@@ -29,6 +35,8 @@ object Form1: TForm1
     Align = alClient
     ParentColor = False
     object Chart1BarSeries1: TBarSeries
+      Marks.Format = '%0:g'
+      Marks.Style = smsValue
       BarBrush.Color = clOlive
       SeriesColor = clOlive
     end

components/tachart/demo/save/main.lrs

@@ -3,24 +3,27 @@
 LazarusResources.Add('TForm1','FORMDATA',[
   'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'>'#1#6'Height'#3','#1#3'Top'#3#151#0#5'Wi'
   +'dth'#3#165#1#7'Caption'#6#5'Form1'#12'ClientHeight'#3','#1#11'ClientWidth'#3
-  +#165#1#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.27'#0#6'TChart'#6
+  +#165#1#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.29'#0#6'TChart'#6
-  +'Chart1'#4'Left'#2#0#6'Height'#3#20#1#3'Top'#2#24#5'Width'#3#165#1#21'Bottom'
+  +'Chart1'#4'Left'#2#0#6'Height'#3#20#1#3'Top'#2#24#5'Width'#3#165#1#8'AxisLis'
-  +'Axis.Grid.Style'#7#5'psDot'#23'BottomAxis.Grid.Visible'#9#16'Foot.Brush.Col'
+  +'t'#14#1#9'Alignment'#7#7'calLeft'#22'Title.Font.Orientation'#3#132#3#21'Tra'
-  +'or'#7#9'clBtnFace'#15'Foot.Font.Color'#7#6'clBlue'#13'Frame.Visible'#9#19'L'
+  +'nsformation.Offset'#5#0#0#0#0#0#0#0#0#0#0#20'Transformation.Scale'#5#0#0#0#0
-  +'eftAxis.Grid.Style'#7#5'psDot'#21'LeftAxis.Grid.Visible'#9#20'LeftAxis.Titl'
+  +#0#0#0#128#255'?'#0#1#9'Alignment'#7#9'calBottom'#21'Transformation.Offset'#5
-  +'e.Angle'#2'Z'#17'Title.Brush.Color'#7#9'clBtnFace'#16'Title.Font.Color'#7#6
+  +#0#0#0#0#0#0#0#0#0#0#20'Transformation.Scale'#5#0#0#0#0#0#0#0#128#255'?'#0#0
-  +'clBlue'#18'Title.Text.Strings'#1#6#7'TAChart'#0#5'Align'#7#8'alClient'#11'P'
+  +#16'Foot.Brush.Color'#7#9'clBtnFace'#15'Foot.Font.Color'#7#6'clBlue'#17'Titl'
-  +'arentColor'#8#0#10'TBarSeries'#16'Chart1BarSeries1'#14'BarBrush.Color'#7#7
+  +'e.Brush.Color'#7#9'clBtnFace'#16'Title.Font.Color'#7#6'clBlue'#18'Title.Tex'
-  +'clOlive'#11'SeriesColor'#7#7'clOlive'#0#0#11'TFuncSeries'#17'Chart1FuncSeri'
+  +'t.Strings'#1#6#7'TAChart'#0#5'Align'#7#8'alClient'#11'ParentColor'#8#0#10'T'
-  +'es1'#9'Pen.Color'#7#5'clRed'#9'Pen.Width'#2#2#9'ZPosition'#2#1#0#0#0#8'TToo'
+  +'BarSeries'#16'Chart1BarSeries1'#12'Marks.Format'#6#4'%0:g'#11'Marks.Style'#7
-  +'lBar'#8'ToolBar1'#4'Left'#2#0#6'Height'#2#24#3'Top'#2#0#5'Width'#3#165#1#11
+  +#8'smsValue'#14'BarBrush.Color'#7#7'clOlive'#11'SeriesColor'#7#7'clOlive'#0#0
-  +'ButtonWidth'#2'd'#7'Caption'#6#8'ToolBar1'#4'Flat'#8#12'ShowCaptions'#9#8'T'
+  +#11'TFuncSeries'#17'Chart1FuncSeries1'#9'Pen.Color'#7#5'clRed'#9'Pen.Width'#2
-  +'abOrder'#2#1#0#11'TToolButton'#11'tbSaveAsBMP'#4'Left'#2#1#3'Top'#2#2#7'Cap'
+  +#2#9'ZPosition'#2#1#0#0#0#8'TToolBar'#8'ToolBar1'#4'Left'#2#0#6'Height'#2#24
-  +'tion'#6#11'Save as BMP'#7'OnClick'#7#16'tbSaveAsBMPClick'#0#0#11'TToolButto'
+  +#3'Top'#2#0#5'Width'#3#165#1#11'ButtonWidth'#2'd'#7'Caption'#6#8'ToolBar1'#4
-  +'n'#11'tbSaveAsPNG'#4'Left'#2'e'#3'Top'#2#2#7'Caption'#6#11'Save as PNG'#7'O'
+  +'Flat'#8#12'ShowCaptions'#9#8'TabOrder'#2#1#0#11'TToolButton'#11'tbSaveAsBMP'
-  +'nClick'#7#16'tbSaveAsPNGClick'#0#0#11'TToolButton'#17'tbCopyToClipboard'#4
+  +#4'Left'#2#1#3'Top'#2#2#7'Caption'#6#11'Save as BMP'#7'OnClick'#7#16'tbSaveA'
-  +'Left'#3'-'#1#3'Top'#2#2#7'Caption'#6#17'Copy to clipboard'#7'OnClick'#7#22
+  +'sBMPClick'#0#0#11'TToolButton'#11'tbSaveAsPNG'#4'Left'#2'e'#3'Top'#2#2#7'Ca'
-  +'tbCopyToClipboardClick'#0#0#11'TToolButton'#12'tbSaveAsJPEG'#4'Left'#3#201#0
+  +'ption'#6#11'Save as PNG'#7'OnClick'#7#16'tbSaveAsPNGClick'#0#0#11'TToolButt'
-  +#3'Top'#2#2#7'Caption'#6#12'Save as JPEG'#7'OnClick'#7#17'tbSaveAsJPEGClick'
+  +'on'#17'tbCopyToClipboard'#4'Left'#3'-'#1#3'Top'#2#2#7'Caption'#6#17'Copy to'
-  +#0#0#0#11'TSaveDialog'#11'SaveDialog1'#4'left'#2'@'#3'top'#2'8'#0#0#0
+  +' clipboard'#7'OnClick'#7#22'tbCopyToClipboardClick'#0#0#11'TToolButton'#12
+  +'tbSaveAsJPEG'#4'Left'#3#201#0#3'Top'#2#2#7'Caption'#6#12'Save as JPEG'#7'On'
+  +'Click'#7#17'tbSaveAsJPEGClick'#0#0#0#11'TSaveDialog'#11'SaveDialog1'#4'left'
+  +#2'@'#3'top'#2'8'#0#0#0
 ]);

components/tachart/demo/save/main.pas

@@ -50,7 +50,7 @@ var
 begin
   RandSeed := 103489;
   for i := 1 to 10 do
-    Chart1BarSeries1.AddXY(i, i * i / 2 + Random(6) + 1);
+    Chart1BarSeries1.AddXY(i, i * i / 2 + Random(6) + 1 + Random);
   Chart1FuncSeries1.OnCalculate := @Chart1FuncSeries1Calculate;
   SaveDialog1.InitialDir := ExtractFilePath(Application.ExeName);
 end;