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

tvplanit: Fix DayView in-place editor reaching into adjacent column

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4826 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-24 19:10:59 +00:00
parent 9943d1eca3
commit 4f2302a941
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -149,7 +149,7 @@ object MainForm: TMainForm
}
ShowResourceName = True
LineColor = clGray
GutterWidth = 7
GutterWidth = 5
DateLabelFormat = 'dddd, mmmm dd, yyyy'
Granularity = gr30Min
DefaultTopHour = h_07

8
components/tvplanit/source/vpdayview.pas
View File

@ -1866,7 +1866,7 @@ begin
dvActiveEventRec.Bottom := 0;
dvActiveEventRec.Right := 0;
dvActiveEventRec.Left := 0;
dvActiveIconRec := Rect (0, 0, 0, 0);
dvActiveIconRec := Rect (0, 0, 0, 0);
Exit;
end;
if (Point.X > dvEventArray[I].Rec.Left) and
@ -1945,10 +1945,10 @@ begin
dvInPlaceEditor.OnExit := EndEdit;
end;
dvInPlaceEditor.SetBounds(
dvActiveIconRec.Right + FGutterWidth + TextMargin,
dvActiveIconRec.Left + FGutterWidth + TextMargin,
dvActiveEventRec.Top + TextMargin,
dvActiveEventRec.Right,
dvActiveEventRec.Bottom - 1
dvActiveEventRec.Right - dvActiveIconRec.Left - FGutterWidth - TextMargin,
dvActiveEventRec.Bottom - dvActiveEventRec.Top - TextMargin
);
dvInPlaceEditor.Show;
dvInPlaceEditor.Text := FActiveEvent.Description;