TAChart: Fix incorrect HTML in y axis title of html demo. Add button to html demo for checking right-to-left (probably wrong, a native RTL person should check...).

git-svn-id: trunk@55450 -

components/tachart/demo/html/main.lfm

@@ -107,6 +107,21 @@ object MainForm: TMainForm
       OnClick = BtnSaveSVGClick
       TabOrder = 3
     end
+    object CbRTL: TCheckBox
+      AnchorSideLeft.Control = CgHTML
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = BtnCopyToClipboard
+      AnchorSideTop.Side = asrCenter
+      Left = 343
+      Height = 19
+      Top = 11
+      Width = 86
+      BorderSpacing.Left = 16
+      Caption = 'Right-to-left'
+      OnChange = CbRTLChange
+      TabOrder = 4
+      Visible = False
+    end
   end
   object Chart: TChart
     Left = 8
@@ -121,7 +136,7 @@ object MainForm: TMainForm
         Title.LabelFont.Height = -16
         Title.LabelFont.Orientation = 900
         Title.Visible = True
-        Title.Caption = 'Area A, cm<sup>2</cm>'
+        Title.Caption = 'Area A, cm<sup>2</sup>'
         Title.TextFormat = tfHTML
       end    
       item

components/tachart/demo/html/main.pas

@@ -18,6 +18,7 @@ type
     BtnSaveSVG: TButton;
     Chart: TChart;
     CgHTML: TCheckGroup;
+    CbRTL: TCheckBox;
     FitSeries: TFitSeries;
     ListChartSource: TListChartSource;
     DataSeries: TLineSeries;
@@ -28,6 +29,7 @@ type
     procedure BtnSaveSVGClick(Sender: TObject);
     procedure CgHTMLItemClick(Sender: TObject; Index: integer);
     procedure ChartAxisList1MarkToText(var AText: String; AMark: Double);
+    procedure CbRTLChange(Sender: TObject);
     procedure FitSeriesFitComplete(Sender: TObject);
     procedure FormCreate(Sender: TObject);
 
@@ -91,6 +93,13 @@ begin
   AText := AText + '°';
 end;
 
+procedure TMainForm.CbRTLChange(Sender: TObject);
+begin
+  if CbRTL.Checked then
+    Chart.BiDiMode := bdRightToLeft else
+    Chart.BiDiMode := bdLeftToRight;
+end;
+
 procedure TMainForm.CreateData;
 const
   N = 20;