pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Translate print format designer form.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4927 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-06 19:34:46 +00:00
parent 18536b3f45
commit 0422946129
7 changed files with 264 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
components/tvplanit/languages/vpsr.de.po
View File

@ -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."

43
components/tvplanit/languages/vpsr.nl.po
View File

@ -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"

42
components/tvplanit/languages/vpsr.po
View File

@ -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 ""

43
components/tvplanit/languages/vpsr.ru.po
View File

@ -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 "Выберите звук"

12
components/tvplanit/source/vpedfmtlst.lfm
View File

@ -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

85
components/tvplanit/source/vpedfmtlst.pas
View File

@ -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

10
components/tvplanit/source/vpsr.inc
View File

@ -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}