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

tvplanit: Misc

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4909 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-04 15:53:06 +00:00
parent 524b731df8
commit 8cebf7fdb9
6 changed files with 33 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -690,8 +690,8 @@ object MainForm: TMainForm
DataStore = VpBufDSDataStore1
LocalizationFile = '../../source/vplocalize.xml'
Printer.BottomMargin = 5
Printer.DayStart = h_07
Printer.DayEnd = h_18
Printer.DayStart = h_02
Printer.DayEnd = h_16
Printer.Granularity = gr60Min
Printer.LeftMargin = 5
Printer.MarginUnits = imPercent

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

@ -182,7 +182,7 @@ begin
'ca' : Result := $0403; // Catalan
'cs' : Result := $0405; // Czech
'de' : Result := $0407; // German
'en' : Result := $0409; // English (US)
'en' : Result := $0409; // English (US)
'es' : Result := $040A; // Spanisch
'fi' : Result := $040B; // Finnish
'fr' : Result := $040C; // French
@ -190,7 +190,7 @@ begin
'hu' : Result := $040E; // Hungarian
'it' : Result := $0410; // Italian
'jp' : Result := $0411; // Japanese
'nl' : Result := $0413; // Netherlands
'nl' : Result := $0413; // Netherlands (Dutch)
'pl' : Result := $0415; // Polish
'pt' : Result := $0816; // Portuguese (Portugal)
'ru' : Result := $0419; // Russian
@ -367,9 +367,15 @@ begin
t1 := StartOfTheWeek(now);
t2 := t1 + 7 - VpDayView1.NumDays mod 7; // + 7;
fmt.DayInc := VpDayView1.NumDays;
VpControlLink1.Printer.Granularity := VpDayView1.Granularity;
VpControlLink1.Printer.DayStart := h_08; //VpDayView1.DefaultTopHour;
VpControlLink1.Printer.DayEnd := h_17;
// wp: !!!!!!!!!!!!!!!!!!!!!!!!!!!! bring back in !!!!!!!!!!!!!
// VpControlLink1.Printer.Granularity := VpDayView1.Granularity;
// VpControlLink1.Printer.DayStart := h_08; //VpDayView1.DefaultTopHour;
// VpControlLink1.Printer.DayEnd := h_17;
end;
1: begin // current week in WeekView
t1 := StartOfTheWeek(now);
@ -447,6 +453,7 @@ begin
'he': po.Add('he - Hebrew');
'hu': po.Add('hu - magyar');
'it': po.Add('it - Italian');
'nl': po.Add('nl - Dutch');
'ru': po.Add('ru - русский');
end;
end;