tvplanit: Translate print format designer form.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4927 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/languages/vpsr.de.po

@@ -376,6 +376,12 @@ msgid "Use the default sound"
 msgstr "Standard-Klang verwenden"
 
 #: vpsr.rsdelete
+msgctxt "vpsr.rsdelete"
+msgid "Delete"
+msgstr "Löschen"
+
+#: vpsr.rsdeletebtn
+msgctxt "vpsr.rsdeletebtn"
 msgid "Delete"
 msgstr "Löschen"
 
@@ -426,6 +432,10 @@ msgstr "Fälligkeitsdatum:"
 msgid "Error: Duplicate Resource."
 msgstr "Fehler: Doppelte Ressource."
 
+#: vpsr.rseditbtn
+msgid "Edit"
+msgstr "Bearbeiten"
+
 #: vpsr.rseditingfolders
 msgid "Folder Editor."
 msgstr "Ordner-Editor"
@@ -438,6 +448,10 @@ msgstr "Editor für Ordner-Einträge"
 msgid "Edit Print Formats..."
 msgstr "Druck-Formate bearbeiten..."
 
+#: vpsr.rselements
+msgid "Elements:"
+msgstr "Elemente:"
+
 #: vpsr.rsemail
 msgid "E-Mail"
 msgstr "E-Mail"
@@ -475,6 +489,10 @@ msgstr "F"
 msgid "First name:"
 msgstr "Vorname:"
 
+#: vpsr.rsformats
+msgid "Formats:"
+msgstr "Formate:"
+
 #: vpsr.rsfriday
 msgid "Friday"
 msgstr "Freitag"
@@ -565,6 +583,10 @@ msgstr "F"
 msgid "M"
 msgstr "M"
 
+#: vpsr.rsloadfilebtn
+msgid "Load file"
+msgstr "Datei laden"
+
 #: vpsr.rslocationlbl
 msgid "Location:"
 msgstr "Ort:"
@@ -658,6 +680,14 @@ msgstr "Bitte geben Sie einen Element-Namen an."
 msgid "FormatName cannot be blank"
 msgstr "Der Format-Name muss angegeben sein."
 
+#: vpsr.rsnewbtn
+msgid "New"
+msgstr "Neu"
+
+#: vpsr.rsnewfilebtn
+msgid "New file"
+msgstr "Neue Datei"
+
 #: vpsr.rsno
 msgid "N"
 msgstr "N"
@@ -823,6 +853,14 @@ msgctxt "vpsr.rsprintbtn"
 msgid "&Print"
 msgstr "&Drucken"
 
+#: vpsr.rsprintformatdesigner
+msgid "Print format designer"
+msgstr "Druckformat-Designer"
+
+#: vpsr.rsprintorder
+msgid "Print order"
+msgstr "Druckreihenfolge"
+
 #: vpsr.rsprintprvcancel
 msgctxt "vpsr.rsprintprvcancel"
 msgid "Cancel"
@@ -897,6 +935,10 @@ msgstr "Ressource"
 msgid "Saturday"
 msgstr "Samstag"
 
+#: vpsr.rssavefilebtn
+msgid "Save file"
+msgstr "Datei speichern"
+
 #: vpsr.rsselectasound
 msgid "Select A Sound"
 msgstr "Einen Klang auswählen"
@@ -1381,4 +1423,3 @@ msgstr "Unbekannte Achsen-Spezifikation: %s"
 #: vpsr.sxmldecnotatbeg
 msgid "The XML declaration must appear before the first element"
 msgstr "Die XML-Deklaration muss vor dem ersten Element erscheinen."
-

components/tvplanit/languages/vpsr.nl.po

@@ -376,6 +376,13 @@ msgid "Use the default sound"
 msgstr "Standaard geluid gebruiken"
 
 #: vpsr.rsdelete
+msgctxt "vpsr.rsdelete"
+msgid "Delete"
+msgstr "Wissen"
+
+#: vpsr.rsdeletebtn
+#, fuzzy
+msgctxt "vpsr.rsdeletebtn"
 msgid "Delete"
 msgstr "Wissen"
 
@@ -426,6 +433,10 @@ msgstr "Vervaldatum:"
 msgid "Error: Duplicate Resource."
 msgstr "Fout: Duplicaat Hulpmiddel."
 
+#: vpsr.rseditbtn
+msgid "Edit"
+msgstr ""
+
 #: vpsr.rseditingfolders
 msgid "Folder Editor."
 msgstr "Map Editor."
@@ -438,6 +449,10 @@ msgstr "Map Items Editor."
 msgid "Edit Print Formats..."
 msgstr "Afdrukformaten bewerken..."
 
+#: vpsr.rselements
+msgid "Elements:"
+msgstr ""
+
 #: vpsr.rsemail
 msgid "E-Mail"
 msgstr "E-Mail"
@@ -475,6 +490,10 @@ msgstr "F"
 msgid "First name:"
 msgstr "Voornaam:"
 
+#: vpsr.rsformats
+msgid "Formats:"
+msgstr ""
+
 #: vpsr.rsfriday
 msgid "Friday"
 msgstr "Vrijdag"
@@ -565,6 +584,10 @@ msgstr "V"
 msgid "M"
 msgstr "M"
 
+#: vpsr.rsloadfilebtn
+msgid "Load file"
+msgstr ""
+
 #: vpsr.rslocationlbl
 msgid "Location:"
 msgstr "Plaats:"
@@ -658,6 +681,14 @@ msgstr "Geeft u aub een Element Naam op"
 msgid "FormatName cannot be blank"
 msgstr "Formaat Naam mag niet blanko zijn"
 
+#: vpsr.rsnewbtn
+msgid "New"
+msgstr ""
+
+#: vpsr.rsnewfilebtn
+msgid "New file"
+msgstr ""
+
 #: vpsr.rsno
 msgid "N"
 msgstr "N"
@@ -823,6 +854,14 @@ msgctxt "vpsr.rsprintbtn"
 msgid "&Print"
 msgstr "&Printen"
 
+#: vpsr.rsprintformatdesigner
+msgid "Print format designer"
+msgstr ""
+
+#: vpsr.rsprintorder
+msgid "Print order"
+msgstr ""
+
 #: vpsr.rsprintprvcancel
 msgctxt "vpsr.rsprintprvcancel"
 msgid "Cancel"
@@ -897,6 +936,10 @@ msgstr "Hulpmiddel"
 msgid "Saturday"
 msgstr "Zaterdag"
 
+#: vpsr.rssavefilebtn
+msgid "Save file"
+msgstr ""
+
 #: vpsr.rsselectasound
 msgid "Select A Sound"
 msgstr "Kies een geluid"

components/tvplanit/languages/vpsr.po

@@ -366,6 +366,12 @@ msgid "Use the default sound"
 msgstr ""
 
 #: vpsr.rsdelete
+msgctxt "vpsr.rsdelete"
+msgid "Delete"
+msgstr ""
+
+#: vpsr.rsdeletebtn
+msgctxt "vpsr.rsdeletebtn"
 msgid "Delete"
 msgstr ""
 
@@ -416,6 +422,10 @@ msgstr ""
 msgid "Error: Duplicate Resource."
 msgstr ""
 
+#: vpsr.rseditbtn
+msgid "Edit"
+msgstr ""
+
 #: vpsr.rseditingfolders
 msgid "Folder Editor."
 msgstr ""
@@ -428,6 +438,10 @@ msgstr ""
 msgid "Edit Print Formats..."
 msgstr ""
 
+#: vpsr.rselements
+msgid "Elements:"
+msgstr ""
+
 #: vpsr.rsemail
 msgid "E-Mail"
 msgstr ""
@@ -465,6 +479,10 @@ msgstr ""
 msgid "First name:"
 msgstr ""
 
+#: vpsr.rsformats
+msgid "Formats:"
+msgstr ""
+
 #: vpsr.rsfriday
 msgid "Friday"
 msgstr ""
@@ -555,6 +573,10 @@ msgstr ""
 msgid "M"
 msgstr ""
 
+#: vpsr.rsloadfilebtn
+msgid "Load file"
+msgstr ""
+
 #: vpsr.rslocationlbl
 msgid "Location:"
 msgstr ""
@@ -648,6 +670,14 @@ msgstr ""
 msgid "FormatName cannot be blank"
 msgstr ""
 
+#: vpsr.rsnewbtn
+msgid "New"
+msgstr ""
+
+#: vpsr.rsnewfilebtn
+msgid "New file"
+msgstr ""
+
 #: vpsr.rsno
 msgid "N"
 msgstr ""
@@ -813,6 +843,14 @@ msgctxt "vpsr.rsprintbtn"
 msgid "&Print"
 msgstr ""
 
+#: vpsr.rsprintformatdesigner
+msgid "Print format designer"
+msgstr ""
+
+#: vpsr.rsprintorder
+msgid "Print order"
+msgstr ""
+
 #: vpsr.rsprintprvcancel
 msgctxt "vpsr.rsprintprvcancel"
 msgid "Cancel"
@@ -887,6 +925,10 @@ msgstr ""
 msgid "Saturday"
 msgstr ""
 
+#: vpsr.rssavefilebtn
+msgid "Save file"
+msgstr ""
+
 #: vpsr.rsselectasound
 msgid "Select A Sound"
 msgstr ""

components/tvplanit/languages/vpsr.ru.po

@@ -376,6 +376,13 @@ msgid "Use the default sound"
 msgstr "Использовать звук по умолчанию"
 
 #: vpsr.rsdelete
+msgctxt "vpsr.rsdelete"
+msgid "Delete"
+msgstr "Удалить"
+
+#: vpsr.rsdeletebtn
+#, fuzzy
+msgctxt "vpsr.rsdeletebtn"
 msgid "Delete"
 msgstr "Удалить"
 
@@ -428,6 +435,10 @@ msgstr "Срок:"
 msgid "Error: Duplicate Resource."
 msgstr "Ошибка: Дубликат ресурсов."
 
+#: vpsr.rseditbtn
+msgid "Edit"
+msgstr ""
+
 #: vpsr.rseditingfolders
 msgid "Folder Editor."
 msgstr "Редактор папки"
@@ -440,6 +451,10 @@ msgstr "Редактор элемента папки."
 msgid "Edit Print Formats..."
 msgstr "Редактор формата печати..."
 
+#: vpsr.rselements
+msgid "Elements:"
+msgstr ""
+
 #: vpsr.rsemail
 msgid "E-Mail"
 msgstr "Электронная почта"
@@ -479,6 +494,10 @@ msgstr ""
 msgid "First name:"
 msgstr ""
 
+#: vpsr.rsformats
+msgid "Formats:"
+msgstr ""
+
 #: vpsr.rsfriday
 msgid "Friday"
 msgstr "Пятница"
@@ -569,6 +588,10 @@ msgstr ""
 msgid "M"
 msgstr ""
 
+#: vpsr.rsloadfilebtn
+msgid "Load file"
+msgstr ""
+
 #: vpsr.rslocationlbl
 msgid "Location:"
 msgstr "Расположение:"
@@ -662,6 +685,14 @@ msgstr ""
 msgid "FormatName cannot be blank"
 msgstr ""
 
+#: vpsr.rsnewbtn
+msgid "New"
+msgstr ""
+
+#: vpsr.rsnewfilebtn
+msgid "New file"
+msgstr ""
+
 #: vpsr.rsno
 msgid "N"
 msgstr ""
@@ -827,6 +858,14 @@ msgctxt "vpsr.rsprintbtn"
 msgid "&Print"
 msgstr "Печать"
 
+#: vpsr.rsprintformatdesigner
+msgid "Print format designer"
+msgstr ""
+
+#: vpsr.rsprintorder
+msgid "Print order"
+msgstr ""
+
 #: vpsr.rsprintprvcancel
 #, fuzzy
 msgctxt "vpsr.rsprintprvcancel"
@@ -913,6 +952,10 @@ msgstr "Ресурс"
 msgid "Saturday"
 msgstr "Суббота"
 
+#: vpsr.rssavefilebtn
+msgid "Save file"
+msgstr ""
+
 #: vpsr.rsselectasound
 msgid "Select A Sound"
 msgstr "Выберите звук"

components/tvplanit/source/vpedfmtlst.lfm

@@ -13,7 +13,7 @@ object frmPrnFormat: TfrmPrnFormat
   OnShow = FormShow
   Position = poScreenCenter
   LCLVersion = '1.7'
-  object Label1: TLabel
+  object LblFormats: TLabel
     Left = 8
     Height = 15
     Top = 5
@@ -22,7 +22,7 @@ object frmPrnFormat: TfrmPrnFormat
     FocusControl = lbFormats
     ParentColor = False
   end
-  object Label2: TLabel
+  object LblElements: TLabel
     Left = 8
     Height = 15
     Top = 205
@@ -75,7 +75,7 @@ object frmPrnFormat: TfrmPrnFormat
     NumGlyphs = 2
     OnClick = btnMoveElementDnClick
   end
-  object Label3: TLabel
+  object LblPrintOrder: TLabel
     Left = 232
     Height = 15
     Top = 332
@@ -93,14 +93,14 @@ object frmPrnFormat: TfrmPrnFormat
     OnClick = btnNewFormatClick
     TabOrder = 1
   end
-  object Panel1: TPanel
+  object PrintPreviewPanel: TPanel
     Left = 312
     Height = 439
     Top = 0
     Width = 320
     Align = alRight
     BorderSpacing.Right = 8
-    Caption = 'Panel1'
+    Caption = 'PrintPreviewPanel'
     ClientHeight = 439
     ClientWidth = 320
     TabOrder = 8
@@ -114,7 +114,7 @@ object frmPrnFormat: TfrmPrnFormat
       StartDate = 37370.6447728357
       ZoomFactor = zfActualSize
       Align = alClient
-      Parent = Panel1
+      Parent = PrintPreviewPanel
       TabStop = True
       TabOrder = 0
     end

components/tvplanit/source/vpedfmtlst.pas

@@ -62,17 +62,17 @@ type
     btnNewFile: TButton;
     btnNewFormat: TButton;
     btnSaveFile: TButton;
-    Label1: TLabel;
+    LblFormats: TLabel;
-    Label2: TLabel;
+    LblElements: TLabel;
     lbElements: TListBox;
     lbFormats: TListBox;
     OpenDialog1: TOpenDialog;
-    Panel1: TPanel;
+    PrintPreviewPanel: TPanel;
     Panel2: TPanel;
     PrintPreview: TVpPrintPreview;
     SaveDialog1: TSaveDialog;
     btnOk: TButton;
-    Label3: TLabel;
+    LblPrintOrder: TLabel;
     procedure btnDeleteElementClick(Sender: TObject);
     procedure btnDeleteFormatClick(Sender: TObject);
     procedure btnEditElementClick(Sender: TObject);
@@ -102,6 +102,7 @@ type
     IsDirty: Boolean;
     LastX, LastY: Integer;
     DragItem: Integer;
+    procedure SetCaptions;
 
   protected
     function DirtyPrompt: Integer;
@@ -136,7 +137,8 @@ var
 implementation
 
 uses
-  VpEdFmt, VpEdElem;
+  Math,
+  VpMisc, VpEdFmt, VpEdElem;
 
 {$IFDEF DELPHI}
  {$R *.dfm}
@@ -154,6 +156,8 @@ begin
 
   EnableFormatButtons(False);
   EnableElementButtons(False);
+
+  SetCaptions;
 end;
 {=====}
 procedure TfrmPrnFormat.EnableMoveButtons;
@@ -164,7 +168,7 @@ end;
 {=====}
 procedure TfrmPrnFormat.FormShow(Sender: TObject);
 begin
-  PrintPreview.Parent := Panel1;
+  PrintPreview.Parent := PrintPreviewPanel;
 
   if ControlLink.Printer.PrintFormats.Count > 0 then begin
     UpdateFormats;
@@ -638,7 +642,74 @@ begin
       FFormatFileName := FControlLink.Printer.DefaultXMLFileName;
   end;
 end;
-{=====}
+
+procedure TfrmPrnFormat.SetCaptions;
+var
+  cnv: TControlCanvas;
+  w: Integer;
+  wPrv: Integer;
+begin
+  wPrv := PrintPreview.Width;
+
+  Caption := RSPrintFormatDesigner;
+  LblFormats.Caption := RSFormats;
+  LblElements.Caption := RSElements;
+  lblPrintOrder.Caption := RSPrintOrder;
+  btnOK.Caption := RSOKBtn;
+  btnNewFormat.Caption := RSNewBtn;
+  btnEditFormat.Caption := RSEditBtn;
+  btnDeleteFormat.Caption := RSDeleteBtn;
+  btnNewElement.Caption := RSNewBtn;
+  btnEditElement.Caption := RSEditBtn;
+  btnDeleteElement.Caption := RSDeleteBtn;
+  btnNewFile.Caption := RSNewFileBtn;
+  btnLoadFile.Caption := RSLoadFileBtn;
+  btnSaveFile.Caption := RSSaveFileBtn;
+
+  w := 0;
+  cnv := TControlCanvas.Create;
+  try
+    cnv.Control := btnNewFile;
+    cnv.Font.Assign(btnNewFile.Font);
+    w := Max(w, cnv.TextWidth(RSNewFileBtn));
+    w := Max(w, cnv.TextWidth(RSLoadFileBtn));
+    w := Max(W, cnv.TextWidth(RSSaveFileBtn));
+    btnNewFile.Width := w + 16;
+    btnLoadFile.Left := btnNewFile.Left + btnNewFile.Width + 8;
+    btnLoadFile.Width := btnNewFile.Width;
+    btnSaveFile.Left := btnLoadFile.Left + btnLoadFile.Width + 8;
+    btnSaveFile.Width := btnNewFile.Width;
+
+    w := 0;
+    w := Max(w, cnv.TextWidth(RSNewBtn) + 8);
+    w := Max(w, cnv.TextWidth(RSEditBtn) + 8);
+    w := Max(w, cnv.TextWidth(RSDeleteBtn) + 8);
+    w := Max(w, GetLabelWidth(LblPrintOrder));
+
+    BtnNewFormat.Left := lbFormats.Left + lbFormats.Width + 16;
+    BtnEditFormat.Left := BtnNewFormat.Left;
+    BtnDeleteFormat.Left := BtnNewFormat.Left;
+    BtnNewElement.Left := BtnNewFormat.Left;
+    BtnEditElement.Left := BtnNewFormat.Left;
+    BtnDeleteElement.Left := BtnNewFormat.Left;
+    BtnNewFormat.Width := w;
+    BtnEditFormat.Width := w;
+    BtnDeleteFormat.Width := w;
+    BtnNewElement.Width := w;
+    BtnEditElement.Width := w;
+    BtnDeleteElement.Width := w;
+    LblPrintOrder.Left := BtnNewFormat.Left + (BtnNewFormat.Width - GetLabelWidth(LblPrintOrder)) div 2;
+    btnMoveElementUp.Left := BtnNewFormat.Left + (BtnNewFormat.Width - btnMoveElementUp.Width) div 2;
+    btnMoveElementDn.Left := btnMoveElementUp.Left;
+
+    PrintPreviewPanel.Left := BtnNewFormat.Left + BtnNewFormat.Width + 16;
+
+    ClientWidth := PrintPreviewPanel.Left + PrintPreviewPanel.Width + 8;
+  finally
+    cnv.Free;
+  end;
+end;
+
 procedure TfrmPrnFormat.SetFormatFileName(const v: string);
 begin
   if v <> FFormatFileName then begin

components/tvplanit/source/vpsr.inc

@@ -405,6 +405,16 @@ resourcestring
 
   { Print Format Editor }
   RSEditPrintFormat  = 'Edit Print Formats...';
+  RSPrintFormatDesigner = 'Print format designer';
+  RSFormats          = 'Formats:';
+  RSElements         = 'Elements:';
+  RSNewBtn           = 'New';
+  RSEditBtn          = 'Edit';
+  RSDeleteBtn        = 'Delete';
+  RSPrintOrder       = 'Print order';
+  RSNewFileBtn       = 'New file';
+  RSLoadFileBtn      = 'Load file';
+  RSSaveFileBtn      = 'Save file';
 
   { Automatic resource adding/selection}                               {!!.01}
   RSAddNewResource   = 'No resources have been defined. Would you ' +  {!!.01}