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

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

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4933 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-07 21:15:18 +00:00
parent 57afcadf85
commit b14a90efb7
5 changed files with 72 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/examples/demo/demomain.lfm
View File

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

1
components/tvplanit/examples/demo/demomain.lrt
View File

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

21
components/tvplanit/examples/demo/demomain.pas
View File

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

44
components/tvplanit/languages/demo.de.po
View File

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

16
components/tvplanit/languages/demo.po
View File

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