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

tvplanit: Improved dragging of columns in VpContactGrid

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6478 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-06-09 09:59:39 +00:00
parent ef8583487e
commit abf9796c82
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/tvplanit/source/vpconst.pas
View File

@ -75,13 +75,14 @@ const
MaxEventDepth = 50; { the maximum number of side by side }
{ events, which can be displayed in the }
{ DayView component. }
ClickDelay : Integer = 500; { the number of milliseconds of delay for }
ClickDelay: Integer = 500; { the number of milliseconds of delay for }
{ each event click in the TimeGrid }
calDefHeight = 140; { popup calendar default height }
calDefWidth = 200; { popup calendar default width }
ExtraBarWidth = 2; { The extra, draggable area on either side }
{ of the Contact Grid's horizontal bars. }
CompareTimeEPS = 1.0 / (24*60*60*10); { Epsilon for time comparison, 0.1 sec }
CompareTimeEPS = 0.1 * OneSecond; { Epsilon for time comparison, 0.1 sec }
// CompareTimeEPS = 1.0 / (24*60*60*10); { Epsilon for time comparison, 0.1 sec }
cmPerInch = 2.54; { 1 inch is 2.54 cm }

2
components/tvplanit/source/vpcontactgridpainter.pas
View File

@ -724,7 +724,7 @@ begin
TVpContactGridOpener(FContactGrid).cgBarArray[BarCount].Rec := Rect(
BarPos - ExtraBarWidth,
RealTop,
BarPos - ExtraBarWidth + FContactGrid.BarWidth,
BarPos + ExtraBarWidth + FContactGrid.BarWidth,
RealBottom
);
TVpContactGridOpener(FContactGrid).cgBarArray[BarCount].Index := BarCount;