From 042294612969777910dbd9bb0eb89f70a7dac83c Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Wed, 6 Jul 2016 19:34:46 +0000 Subject: [PATCH] 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 | 43 +++++++++++- components/tvplanit/languages/vpsr.nl.po | 43 ++++++++++++ components/tvplanit/languages/vpsr.po | 42 +++++++++++ components/tvplanit/languages/vpsr.ru.po | 43 ++++++++++++ components/tvplanit/source/vpedfmtlst.lfm | 12 ++-- components/tvplanit/source/vpedfmtlst.pas | 85 +++++++++++++++++++++-- components/tvplanit/source/vpsr.inc | 10 +++ 7 files changed, 264 insertions(+), 14 deletions(-) diff --git a/components/tvplanit/languages/vpsr.de.po b/components/tvplanit/languages/vpsr.de.po index 054c5e29d..5be8533ed 100644 --- a/components/tvplanit/languages/vpsr.de.po +++ b/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." - diff --git a/components/tvplanit/languages/vpsr.nl.po b/components/tvplanit/languages/vpsr.nl.po index 60e6c3ffa..56cf40465 100644 --- a/components/tvplanit/languages/vpsr.nl.po +++ b/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" diff --git a/components/tvplanit/languages/vpsr.po b/components/tvplanit/languages/vpsr.po index 972539a62..f6cc10eed 100644 --- a/components/tvplanit/languages/vpsr.po +++ b/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 "" diff --git a/components/tvplanit/languages/vpsr.ru.po b/components/tvplanit/languages/vpsr.ru.po index 0b0c7bec4..6137ccc4f 100644 --- a/components/tvplanit/languages/vpsr.ru.po +++ b/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 "Выберите звук" diff --git a/components/tvplanit/source/vpedfmtlst.lfm b/components/tvplanit/source/vpedfmtlst.lfm index 71d565b21..08883f29b 100644 --- a/components/tvplanit/source/vpedfmtlst.lfm +++ b/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 diff --git a/components/tvplanit/source/vpedfmtlst.pas b/components/tvplanit/source/vpedfmtlst.pas index 4c9c01c62..64163b488 100644 --- a/components/tvplanit/source/vpedfmtlst.pas +++ b/components/tvplanit/source/vpedfmtlst.pas @@ -62,17 +62,17 @@ type btnNewFile: TButton; btnNewFormat: TButton; btnSaveFile: TButton; - Label1: TLabel; - Label2: TLabel; + LblFormats: 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 diff --git a/components/tvplanit/source/vpsr.inc b/components/tvplanit/source/vpsr.inc index 6e578b615..664381837 100644 --- a/components/tvplanit/source/vpsr.inc +++ b/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}