tvplanit: In "demo" project, add menu item "Print" (not operational), update translations.

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

components/tvplanit/examples/demo/demomain.lfm

@@ -1948,6 +1948,10 @@ object MainForm: TMainForm
         Caption = 'Print preview...'
         OnClick = MnuPrintPreviewClick
       end
+      object MnuPrint: TMenuItem
+        Caption = 'Print...'
+        OnClick = MnuPrintClick
+      end
       object MenuItem3: TMenuItem
         Caption = '-'
       end

components/tvplanit/examples/demo/demomain.lrt

@@ -24,6 +24,7 @@ TMAINFORM.TITLELBL.CAPTION=TitleLbl
 TMAINFORM.MENUITEM1.CAPTION=File
 TMAINFORM.MNUEDITPRINTFORMATS.CAPTION=Edit print formats...
 TMAINFORM.MNUPRINTPREVIEW.CAPTION=Print preview...
+TMAINFORM.MNUPRINT.CAPTION=Print...
 TMAINFORM.MENUITEM3.CAPTION=-
 TMAINFORM.MNUQUIT.CAPTION=Quit
 TMAINFORM.MNUMAINTENANCE.CAPTION=Maintenance

components/tvplanit/examples/demo/demomain.pas

@@ -35,6 +35,7 @@ type
     LblLanguage: TLabel;
     LblVisibleDays: TLabel;
     MenuItem3: TMenuItem;
+    MnuPrint: TMenuItem;
     MnuEditPrintFormats: TMenuItem;
     MnuPrintPreview: TMenuItem;
     PrintDialog1: TPrintDialog;
@@ -92,6 +93,7 @@ type
     procedure FormCreate(Sender: TObject);
     procedure MnuAboutClick(Sender: TObject);
     procedure MnuEditPrintFormatsClick(Sender: TObject);
+    procedure MnuPrintClick(Sender: TObject);
     procedure MnuPrintPreviewClick(Sender: TObject);
     procedure MnuQuitClick(Sender: TObject);
     procedure MnuResourcesClick(Sender: TObject);
@@ -171,6 +173,9 @@ resourcestring
   RSThursday = 'Thursday';
   RSFriday = 'Friday';
   RSSaturday = 'Saturday';
+  RSFlat = 'flach';
+  RS3d = '3D';
+  RSBorderless = 'ohne Rand';
 
 {$IFDEF WINDOWS}
 { This function determines the LCID from the language code.
@@ -362,6 +367,18 @@ begin
   VpPrintFormatEditDialog1.Execute;
 end;
 
+procedure TMainForm.MnuPrintClick(Sender: TObject);
+begin
+  if PrintDialog1.Execute then begin
+    Printer.BeginDoc;
+    {
+    VpControlLink1.Printer.CurFormat := VpControlLink1.Printer.Find(ReportData.Format);
+    VpControlLink1.Printer.Print(Printer, ReportData.StartDate, ReportData.EndDate);
+    }
+    Printer.EndDoc;
+  end;
+end;
+
 procedure TMainForm.MnuPrintPreviewClick(Sender: TObject);
 var
   t1, t2: TDateTime;
@@ -702,6 +719,10 @@ begin
   CbFirstDayOfWeek.Items.Add(RSFriday);
   CbFirstDayOfWeek.Items.Add(RSSaturday);
 
+  CbDrawingStyle.Items[0] := RSFlat;
+  CbDrawingStyle.Items[1] := RS3d;
+  CbDrawingStyle.Items[2] := RSBorderless;
+
   DaysTrackbar.Left := GetLabelWidth(LblVisibleDays) + LblVisibleDays.Left + 8;
   LblGranularity.Left := DaysTrackbar.Left + DaysTrackbar.Width + 32;
   CbGranularity.Left := LblGranularity.Left + GetLabelWidth(LblGranularity) + 8;

components/tvplanit/languages/demo.de.po

@@ -36,6 +36,10 @@ msgstr "24 Std."
 msgid "30 min"
 msgstr "30 Min."
 
+#: demomain.rs3d
+msgid "3D"
+msgstr ""
+
 #: demomain.rs5min
 msgid "5 min"
 msgstr "5 Min."
@@ -48,6 +52,10 @@ msgstr "60 Min."
 msgid "6 min"
 msgstr "6 Min."
 
+#: demomain.rsborderless
+msgid "ohne Rand"
+msgstr ""
+
 #: demomain.rsconfirmdeleteres
 msgid "Do you really want to delete resource %s?"
 msgstr "Wollen Sie wirklich die Ressource %s löschen?"
@@ -73,6 +81,10 @@ msgstr "Termine pro Monat"
 msgid "Events per week"
 msgstr "Termine pro Woche"
 
+#: demomain.rsflat
+msgid "flach"
+msgstr ""
+
 #: demomain.rsfriday
 msgid "Friday"
 msgstr "Freitag"
@@ -132,12 +144,12 @@ msgstr "Mittwoch"
 #: tfrmreportsetup.button1.caption
 msgctxt "tfrmreportsetup.button1.caption"
 msgid "OK"
-msgstr ""
+msgstr "OK"
 
 #: tfrmreportsetup.button2.caption
 msgctxt "tfrmreportsetup.button2.caption"
 msgid "Cancel"
-msgstr ""
+msgstr "Abbrechen"
 
 #: tfrmreportsetup.caption
 msgid "Report Setup"
@@ -146,12 +158,12 @@ msgstr ""
 #: tfrmreportsetup.dateedit1.cancelcaption
 msgctxt "tfrmreportsetup.dateedit1.cancelcaption"
 msgid "Cancel"
-msgstr ""
+msgstr "Abbrechen"
 
 #: tfrmreportsetup.dateedit1.okcaption
 msgctxt "tfrmreportsetup.dateedit1.okcaption"
 msgid "OK"
-msgstr ""
+msgstr "OK"
 
 #: tfrmreportsetup.dateedit1.text
 msgid "DateEdit1"
@@ -160,12 +172,12 @@ msgstr ""
 #: tfrmreportsetup.dateedit2.cancelcaption
 msgctxt "tfrmreportsetup.dateedit2.cancelcaption"
 msgid "Cancel"
-msgstr ""
+msgstr "Abbrechen"
 
 #: tfrmreportsetup.dateedit2.okcaption
 msgctxt "tfrmreportsetup.dateedit2.okcaption"
 msgid "OK"
-msgstr ""
+msgstr "OK"
 
 #: tfrmreportsetup.dateedit2.text
 msgid "DateEdit2"
@@ -173,15 +185,15 @@ msgstr ""
 
 #: tfrmreportsetup.label1.caption
 msgid "Start Date:"
-msgstr ""
+msgstr "Startdatum:"
 
 #: tfrmreportsetup.label2.caption
 msgid "End Date:"
-msgstr ""
+msgstr "Enddatum:"
 
 #: tfrmreportsetup.label3.caption
 msgid "Format:"
-msgstr ""
+msgstr "Format:"
 
 #: tmainform.btndeleteres.caption
 msgid "Delete"
@@ -201,7 +213,7 @@ msgstr "Turbo Power VisualPlanIt Demo"
 
 #: tmainform.cbaddressbuilder.text
 msgid "(default)"
-msgstr ""
+msgstr "(Standard)"
 
 #: tmainform.cballowinplaceediting.caption
 msgid "Allow inplace editing"
@@ -209,7 +221,7 @@ msgstr "Editieren an Ort und Stelle erlauben"
 
 #: tmainform.cbdrawingstyle.text
 msgid "flat"
-msgstr ""
+msgstr "flach"
 
 #: tmainform.cbgranularity.text
 msgid "30 Min"
@@ -221,7 +233,7 @@ msgstr "Aufbau der Adresse:"
 
 #: tmainform.lbldrawingstyle.caption
 msgid "Drawing style:"
-msgstr ""
+msgstr "Darstellungs-Stil:"
 
 #: tmainform.lblfirstdayofweek.caption
 msgid "First day of week"
@@ -262,16 +274,20 @@ msgstr "Über Visual PlanIt"
 
 #: tmainform.mnueditprintformats.caption
 msgid "Edit print formats..."
-msgstr ""
+msgstr "Druckformate bearbeiten..."
 
 #: tmainform.mnumaintenance.caption
 msgctxt "tmainform.mnumaintenance.caption"
 msgid "Maintenance"
 msgstr "Wartung"
 
+#: tmainform.mnuprint.caption
+msgid "Print..."
+msgstr "Drucken..."
+
 #: tmainform.mnuprintpreview.caption
 msgid "Print preview..."
-msgstr ""
+msgstr "Druckvorschau..."
 
 #: tmainform.mnuquit.caption
 msgid "Quit"

components/tvplanit/languages/demo.po

@@ -25,6 +25,10 @@ msgstr ""
 msgid "30 min"
 msgstr ""
 
+#: demomain.rs3d
+msgid "3D"
+msgstr ""
+
 #: demomain.rs5min
 msgid "5 min"
 msgstr ""
@@ -37,6 +41,10 @@ msgstr ""
 msgid "6 min"
 msgstr ""
 
+#: demomain.rsborderless
+msgid "ohne Rand"
+msgstr ""
+
 #: demomain.rsconfirmdeleteres
 msgid "Do you really want to delete resource %s?"
 msgstr ""
@@ -62,6 +70,10 @@ msgstr ""
 msgid "Events per week"
 msgstr ""
 
+#: demomain.rsflat
+msgid "flach"
+msgstr ""
+
 #: demomain.rsfriday
 msgid "Friday"
 msgstr ""
@@ -258,6 +270,10 @@ msgctxt "TMAINFORM.MNUMAINTENANCE.CAPTION"
 msgid "Maintenance"
 msgstr ""
 
+#: tmainform.mnuprint.caption
+msgid "Print..."
+msgstr ""
+
 #: tmainform.mnuprintpreview.caption
 msgid "Print preview..."
 msgstr ""