From 672341128328b739ebd577890dff663bc4d7e20e Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Tue, 8 Aug 2017 14:56:05 +0000 Subject: [PATCH] tvplanit: Fix Event editor erasing event if created from MonthView and if closed by the form's "x" button. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5992 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/tvplanit/source/vpmonthview.pas | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/components/tvplanit/source/vpmonthview.pas b/components/tvplanit/source/vpmonthview.pas index 94d91729b..dddb568c1 100644 --- a/components/tvplanit/source/vpmonthview.pas +++ b/components/tvplanit/source/vpmonthview.pas @@ -722,6 +722,7 @@ begin DataStore.PostEvents; Invalidate; end; + mvActiveEvent := nil; end; procedure TVpMonthView.mvSpinButtonClick(Sender: TObject; Button: TUDBtnType); @@ -1035,6 +1036,7 @@ procedure TVpMonthView.WMLButtonDblClick(var Msg: TLMLButtonDblClk); {$ENDIF} var startTime, endTime: TDateTime; + newevent: Boolean; begin inherited; @@ -1055,9 +1057,10 @@ begin if SelectEventAtCoord(Point(Msg.XPos, Msg.YPos)) then FOnEventDblClick(self, mvActiveEvent); end else - if mvActiveEvent <> nil then - mvSpawnEventEditDialog(SelectEventAtCoord(Point(Msg.XPos, Msg.YPos))) - else + if mvActiveEvent <> nil then begin + newevent := not SelectEventAtCoord(Point(Msg.XPos, Msg.YPos)); + mvSpawnEventEditDialog(newevent); + end else if (DataStore.Resource <> nil) then begin { otherwise, we must want to create a new event } startTime := trunc(Date) + 0.5; { default to 12:00 noon }