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

tvplanit: Restore regular printing code in demo project. Automatic width detection of PrintFormatCombobox in PrintPreviewDlg.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4925 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-06 14:23:45 +00:00
parent 287ff93ba0
commit 4701336ffd
4 changed files with 46 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -713,7 +713,7 @@ object MainForm: TMainForm
Top = 0
Width = 100
end>
FormatName = 'Current week (dayview)'
FormatName = 'Events of current week (dayview)'
end
item
Version = 'v1.04'
@ -731,7 +731,7 @@ object MainForm: TMainForm
Top = 0
Width = 100
end>
FormatName = 'Current week (Week view)'
FormatName = 'Events of current week (Week view)'
end>
Printer.RightMargin = 5
Printer.TopMargin = 5
@ -775,9 +775,9 @@ object MainForm: TMainForm
CategoryColorMap.Category9.Description = 'Category 9'
EnableEventTimer = True
PlayEventSounds = True
Directory = 'data'
AutoConnect = True
AutoCreate = True
Directory = 'data'
left = 312
top = 128
end

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

@ -367,21 +367,9 @@ begin
t1 := StartOfTheWeek(now);
t2 := t1 + 7 - VpDayView1.NumDays mod 7; // + 7;
fmt.DayInc := VpDayView1.NumDays;
t1 := VpDayView1.Date;
t2 := t1; // wp: just for debugging of prt to reduce painting calls
fmt.dayInc := 0;
// wp: !!!!!!!!!!!!!!!!!!!!!!!!!!!! bring back in !!!!!!!!!!!!!
// VpControlLink1.Printer.Granularity := VpDayView1.Granularity;
// VpControlLink1.Printer.DayStart := h_08; //VpDayView1.DefaultTopHour;
// VpControlLink1.Printer.DayEnd := h_17;
VpControlLink1.Printer.Granularity := gr30Min;
VpControlLink1.Printer.DayStart := h_08;
VpControlLink1.Printer.DayEnd := h_18;
end;
1: begin // current week in WeekView
t1 := StartOfTheWeek(now);