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

jvcllaz: Fix 1-pixel offset when printing appointments in TJvTFDays.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7126 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-08-13 16:50:27 +00:00
parent 17fd33cd99
commit 946302e6b5
2 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/jvcllaz/examples/JvTimeFramework/tfmain.lfm
View File

@ -77,6 +77,7 @@ object MainForm: TMainForm
SelFancyRowHdrAttr.Hr2400 = True SelFancyRowHdrAttr.Hr2400 = True
SelFancyRowHdrAttr.MinorFont.Color = clBlack SelFancyRowHdrAttr.MinorFont.Color = clBlack
SelFancyRowHdrAttr.MajorFont.Color = clBlack SelFancyRowHdrAttr.MajorFont.Color = clBlack
SelFancyRowHdrAttr.MajorFont.Height = -18
SelFancyRowHdrAttr.TickColor = clSilver SelFancyRowHdrAttr.TickColor = clSilver
GridLineColor = clSilver GridLineColor = clSilver
PrimeTime.StartTime = 0.333333333333333 PrimeTime.StartTime = 0.333333333333333

2
components/jvcllaz/run/JvTimeFramework/jvtfdays.pas
View File

@ -13573,7 +13573,7 @@ begin
Result.Right := Result.Left + ApptWidth - ApptBuffer; Result.Right := Result.Left + ApptWidth - ApptBuffer;
// Printer bug, fixed // Printer bug, fixed
Result.Top := WorkTop; Result.Top := WorkTop - 1;
Result.Bottom := CellRect(Col, EndRow, PageInfo).Bottom; Result.Bottom := CellRect(Col, EndRow, PageInfo).Bottom;
end; end;