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

tvplanit: Some improvements in VpEdFmtLst.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8508 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-03 17:06:43 +00:00
parent 6bf5ba0284
commit b2991baa90
6 changed files with 29 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -807,8 +807,8 @@ object MainForm: TMainForm
object VpControlLink1: TVpControlLink
LocalizationFile = '../../source/vplocalize.xml'
Printer.BottomMargin = 5
Printer.DayStart = h_08
Printer.DayEnd = h_16
Printer.DayStart = h_00
Printer.DayEnd = h_23
Printer.Granularity = gr30Min
Printer.LeftMargin = 5
Printer.MarginUnits = imPercent

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

@ -776,9 +776,11 @@ begin
t1 := StartOfTheWeek(now);
t2 := t1 + 7 - VpDayView1.NumDays mod 7; // + 7;
fmt.DayInc := VpDayView1.NumDays;
{
VpControlLink1.Printer.Granularity := gr30Min;
VpControlLink1.Printer.DayStart := h_08;
VpControlLink1.Printer.DayEnd := h_18;
}
end;
1: begin // current week in WeekView
t1 := StartOfTheWeek(now);