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

tvplanit: Fix incorrect closing of weekview's inplace editor in MouseClick.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4772 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-18 23:31:19 +00:00
parent 1e89c2e60f
commit ea72a7a350
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1353,7 +1353,7 @@ begin
if not Focused then SetFocus; if not Focused then SetFocus;
if wvInPlaceEditor <> nil then if (wvInPlaceEditor <> nil) and wvInPlaceEditor.Visible then
EndEdit(Self); EndEdit(Self);
if (Msg.YPos > wvHeaderHeight) then if (Msg.YPos > wvHeaderHeight) then
@ -1902,7 +1902,8 @@ end;
procedure TVpWeekView.EndEdit(Sender: TObject); procedure TVpWeekView.EndEdit(Sender: TObject);
begin begin
if (wvInPlaceEditor <> nil) and (ActiveEvent <> nil) then begin if (wvInPlaceEditor <> nil) and wvInplaceEditor.Visible and (ActiveEvent <> nil)
then begin
if wvInPlaceEditor.Text <> ActiveEvent.Description then begin if wvInPlaceEditor.Text <> ActiveEvent.Description then begin
ActiveEvent.Description := wvInPlaceEditor.Text; ActiveEvent.Description := wvInPlaceEditor.Text;
ActiveEvent.Changed := true; ActiveEvent.Changed := true;