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

tvplanit: Refactor painting of ticks and time labels of DayView.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4918 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-05 22:21:02 +00:00
parent 49161f56c1
commit 0b35252d3a
6 changed files with 224 additions and 160 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -690,9 +690,9 @@ object MainForm: TMainForm
DataStore = VpBufDSDataStore1
LocalizationFile = '../../source/vplocalize.xml'
Printer.BottomMargin = 5
Printer.DayStart = h_02
Printer.DayStart = h_08
Printer.DayEnd = h_16
Printer.Granularity = gr60Min
Printer.Granularity = gr30Min
Printer.LeftMargin = 5
Printer.MarginUnits = imPercent
Printer.PrintFormats = <

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

@ -368,7 +368,7 @@ begin
t2 := t1 + 7 - VpDayView1.NumDays mod 7; // + 7;
fmt.DayInc := VpDayView1.NumDays;
t1 := date;
t1 := VpDayView1.Date;
t2 := t1; // wp: just for debugging of prt to reduce painting calls
fmt.dayInc := 0;