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;