TAChart: Add commands "Move up" and "Move down" to DataPoints editor's popup menu.

git-svn-id: trunk@60498 -

components/tachart/languages/tachartstrconsts.de.po

@@ -29,6 +29,14 @@ msgstr "Zeile löschen"
 msgid "Insert row"
 msgstr "Zeile einfügen"
 
+#: tachartstrconsts.desmovedown
+msgid "Move down"
+msgstr "Nach oben"
+
+#: tachartstrconsts.desmoveup
+msgid "Move up"
+msgstr "Nach unten"
+
 #: tachartstrconsts.desnointeger
 msgid "Value must be an integer."
 msgstr "Wert muss eine ganze Zahl sein."

components/tachart/languages/tachartstrconsts.fi.po

@@ -17,6 +17,14 @@ msgstr "Poista rivi"
 msgid "Insert row"
 msgstr "Lisää rivi"
 
+#: tachartstrconsts.desmovedown
+msgid "Move down"
+msgstr ""
+
+#: tachartstrconsts.desmoveup
+msgid "Move up"
+msgstr ""
+
 #: tachartstrconsts.desnointeger
 msgid "Value must be an integer."
 msgstr ""

components/tachart/languages/tachartstrconsts.fr.po

@@ -27,6 +27,14 @@ msgstr "Supprimer la ligne"
 msgid "Insert row"
 msgstr "Insérer une ligne"
 
+#: tachartstrconsts.desmovedown
+msgid "Move down"
+msgstr ""
+
+#: tachartstrconsts.desmoveup
+msgid "Move up"
+msgstr ""
+
 #: tachartstrconsts.desnointeger
 msgid "Value must be an integer."
 msgstr ""

components/tachart/languages/tachartstrconsts.hu.po

@@ -27,6 +27,14 @@ msgstr "Sor törlése"
 msgid "Insert row"
 msgstr "Sor beszúrása"
 
+#: tachartstrconsts.desmovedown
+msgid "Move down"
+msgstr ""
+
+#: tachartstrconsts.desmoveup
+msgid "Move up"
+msgstr ""
+
 #: tachartstrconsts.desnointeger
 msgid "Value must be an integer."
 msgstr ""

components/tachart/languages/tachartstrconsts.lt.po

@@ -28,6 +28,14 @@ msgstr "Šalinti eilutę"
 msgid "Insert row"
 msgstr "Įterpti eilutę"
 
+#: tachartstrconsts.desmovedown
+msgid "Move down"
+msgstr ""
+
+#: tachartstrconsts.desmoveup
+msgid "Move up"
+msgstr ""
+
 #: tachartstrconsts.desnointeger
 msgid "Value must be an integer."
 msgstr ""

components/tachart/languages/tachartstrconsts.pl.po

@@ -28,6 +28,14 @@ msgstr "Usuń wiersz"
 msgid "Insert row"
 msgstr "Wstaw wiersz"
 
+#: tachartstrconsts.desmovedown
+msgid "Move down"
+msgstr ""
+
+#: tachartstrconsts.desmoveup
+msgid "Move up"
+msgstr ""
+
 #: tachartstrconsts.desnointeger
 msgid "Value must be an integer."
 msgstr ""

components/tachart/languages/tachartstrconsts.pot

@@ -17,6 +17,14 @@ msgstr ""
 msgid "Insert row"
 msgstr ""
 
+#: tachartstrconsts.desmovedown
+msgid "Move down"
+msgstr ""
+
+#: tachartstrconsts.desmoveup
+msgid "Move up"
+msgstr ""
+
 #: tachartstrconsts.desnointeger
 msgid "Value must be an integer."
 msgstr ""

components/tachart/languages/tachartstrconsts.pt_BR.po

@@ -27,6 +27,14 @@ msgstr "Excluir linha"
 msgid "Insert row"
 msgstr "Inserir linha"
 
+#: tachartstrconsts.desmovedown
+msgid "Move down"
+msgstr ""
+
+#: tachartstrconsts.desmoveup
+msgid "Move up"
+msgstr ""
+
 #: tachartstrconsts.desnointeger
 msgid "Value must be an integer."
 msgstr ""

components/tachart/languages/tachartstrconsts.ru.po

@@ -27,6 +27,14 @@ msgstr "Удалить строку"
 msgid "Insert row"
 msgstr "Вставить строку"
 
+#: tachartstrconsts.desmovedown
+msgid "Move down"
+msgstr ""
+
+#: tachartstrconsts.desmoveup
+msgid "Move up"
+msgstr ""
+
 #: tachartstrconsts.desnointeger
 msgid "Value must be an integer."
 msgstr ""

components/tachart/languages/tachartstrconsts.se.po

@@ -28,6 +28,14 @@ msgstr ""
 msgid "Insert row"
 msgstr ""
 
+#: tachartstrconsts.desmovedown
+msgid "Move down"
+msgstr ""
+
+#: tachartstrconsts.desmoveup
+msgid "Move up"
+msgstr ""
+
 #: tachartstrconsts.desnointeger
 msgid "Value must be an integer."
 msgstr ""

components/tachart/languages/tachartstrconsts.uk.po

@@ -30,6 +30,14 @@ msgstr "Видалити рядок"
 msgid "Insert row"
 msgstr "Вставити рядок"
 
+#: tachartstrconsts.desmovedown
+msgid "Move down"
+msgstr ""
+
+#: tachartstrconsts.desmoveup
+msgid "Move up"
+msgstr ""
+
 #: tachartstrconsts.desnointeger
 msgid "Value must be an integer."
 msgstr ""

components/tachart/languages/tachartstrconsts.zh_CN.po

@@ -28,6 +28,14 @@ msgstr "删除行"
 msgid "Insert row"
 msgstr "插入行"
 
+#: tachartstrconsts.desmovedown
+msgid "Move down"
+msgstr ""
+
+#: tachartstrconsts.desmoveup
+msgid "Move up"
+msgstr ""
+
 #: tachartstrconsts.desnointeger
 msgid "Value must be an integer."
 msgstr ""

components/tachart/tachartstrconsts.pas

@@ -36,6 +36,8 @@ resourcestring
   desText = 'Text';
   desInsertRow = 'Insert row';
   desDeleteRow = 'Delete row';
+  desMoveUp = 'Move up';
+  desMoveDown = 'Move down';
   desNoNumber = 'Non-numeric value.';
   desNoInteger = 'Value must be an integer.';
 

components/tachart/tadatapointseditor.lfm

@@ -81,6 +81,17 @@ object DataPointsEditorForm: TDataPointsEditorForm
       Caption = 'Delete row'
       OnClick = miDeleteRowClick
     end
+    object miSeparator: TMenuItem
+      Caption = '-'
+    end
+    object miMoveUp: TMenuItem
+      Caption = 'Move up'
+      OnClick = miMoveUpClick
+    end
+    object miMoveDown: TMenuItem
+      Caption = 'Move down'
+      OnClick = miMoveDownClick
+    end
   end
   object cdItemColor: TColorDialog
     Color = clBlack

components/tachart/tadatapointseditor.pas

@@ -24,6 +24,9 @@ type
   TDataPointsEditorForm = class(TForm)
     ButtonPanel1: TButtonPanel;
     cdItemColor: TColorDialog;
+    miMoveDown: TMenuItem;
+    miMoveUp: TMenuItem;
+    miSeparator: TMenuItem;
     miInsertRow: TMenuItem;
     miDeleteRow: TMenuItem;
     pmRows: TPopupMenu;
@@ -31,6 +34,8 @@ type
     procedure FormCreate(Sender: TObject);
     procedure miDeleteRowClick(Sender: TObject);
     procedure miInsertRowClick(Sender: TObject);
+    procedure miMoveDownClick(Sender: TObject);
+    procedure miMoveUpClick(Sender: TObject);
     procedure OKButtonClick(Sender: TObject);
     procedure pmRowsPopup(Sender: TObject);
     procedure sgDataButtonClick(ASender: TObject; ACol, ARow: Integer);
@@ -44,6 +49,7 @@ type
     FDataPoints: TStrings;
     FXCount: Integer;
     FYCount: Integer;
+    procedure UpdateCmds;
     function ValidData(out ACol, ARow: Integer; out AMsg: String): Boolean;
   public
     procedure InitData(AXCount, AYCount: Integer; ADataPoints: TStrings);
@@ -148,6 +154,8 @@ begin
   sgData.Columns[2].Title.Caption := desText;
   miInsertRow.Caption := desInsertRow;
   miDeleteRow.Caption := desDeleteRow;
+  miMoveUp.Caption := desMoveUp;
+  miMoveDown.Caption := desMoveDown;
 end;
 
 procedure TDataPointsEditorForm.miInsertRowClick(Sender: TObject);
@@ -155,6 +163,18 @@ begin
   sgData.InsertColRow(false, FCurrentRow);
 end;
 
+procedure TDataPointsEditorForm.miMoveDownClick(Sender: TObject);
+begin
+  if sgData.Row < sgData.RowCount-1 then
+    sgData.ExchangeColRow(false, sgData.Row, sgData.Row+1);
+end;
+
+procedure TDataPointsEditorForm.miMoveUpClick(Sender: TObject);
+begin
+  if sgData.Row > 1 then
+    sgData.ExchangeColRow(false, sgData.Row, sgData.Row-1);
+end;
+
 procedure TDataPointsEditorForm.OKButtonClick(Sender: TObject);
 var
   c, r: Integer;
@@ -175,6 +195,7 @@ begin
   if not InRange(FCurrentRow, 1, sgData.RowCount - 1) then
     Abort;
   sgData.Row := FCurrentRow;
+  UpdateCmds;
 end;
 
 procedure TDataPointsEditorForm.sgDataButtonClick(
@@ -215,6 +236,13 @@ begin
   end;
 end;
 
+procedure TDataPointsEditorForm.UpdateCmds;
+begin
+  miDeleteRow.Enabled := sgData.Row > 0;
+  miMoveUp.Enabled := sgData.Row > 1;
+  miMovedown.Enabled := sgData.Row < sgData.RowCount-1;
+end;
+
 function TDataPointsEditorForm.ValidData(out ACol, ARow: Integer;
   out AMsg: String): Boolean;
 var

components/tachart/tagraph.pas

@@ -307,7 +307,7 @@ type
     {$ENDIF}
     procedure Notification(
       AComponent: TComponent; AOperation: TOperation); override;
-      procedure PrepareAxis(ADrawer: IChartDrawer);
+    procedure PrepareAxis(ADrawer: IChartDrawer);
     function PrepareLegend(
       ADrawer: IChartDrawer; var AClipRect: TRect): TChartLegendDrawingData;
     procedure SetBiDiMode(AValue: TBiDiMode); override;