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 ShowResourceName = True
LineColor = clGray LineColor = clGray
GutterWidth = 7 GutterWidth = 5
DateLabelFormat = 'dddd, mmmm dd, yyyy' DateLabelFormat = 'dddd, mmmm dd, yyyy'
Granularity = gr30Min Granularity = gr30Min
DefaultTopHour = h_07 DefaultTopHour = h_07

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

@ -1945,10 +1945,10 @@ begin
dvInPlaceEditor.OnExit := EndEdit; dvInPlaceEditor.OnExit := EndEdit;
end; end;
dvInPlaceEditor.SetBounds( dvInPlaceEditor.SetBounds(
dvActiveIconRec.Right + FGutterWidth + TextMargin, dvActiveIconRec.Left + FGutterWidth + TextMargin,
dvActiveEventRec.Top + TextMargin, dvActiveEventRec.Top + TextMargin,
dvActiveEventRec.Right, dvActiveEventRec.Right - dvActiveIconRec.Left - FGutterWidth - TextMargin,
dvActiveEventRec.Bottom - 1 dvActiveEventRec.Bottom - dvActiveEventRec.Top - TextMargin
); );
dvInPlaceEditor.Show; dvInPlaceEditor.Show;
dvInPlaceEditor.Text := FActiveEvent.Description; dvInPlaceEditor.Text := FActiveEvent.Description;