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

tvplanit: Fix Event editor erasing event if created from MonthView and if closed by the form's "x" button.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5992 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-08-08 14:56:05 +00:00
parent c79ae662d4
commit 6723411283
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/tvplanit/source/vpmonthview.pas
View File

@@ -722,6 +722,7 @@ begin
DataStore.PostEvents; DataStore.PostEvents;
Invalidate; Invalidate;
end; end;
mvActiveEvent := nil;
end; end;
procedure TVpMonthView.mvSpinButtonClick(Sender: TObject; Button: TUDBtnType); procedure TVpMonthView.mvSpinButtonClick(Sender: TObject; Button: TUDBtnType);
@@ -1035,6 +1036,7 @@ procedure TVpMonthView.WMLButtonDblClick(var Msg: TLMLButtonDblClk);
{$ENDIF} {$ENDIF}
var var
startTime, endTime: TDateTime; startTime, endTime: TDateTime;
newevent: Boolean;
begin begin
inherited; inherited;
@@ -1055,9 +1057,10 @@ begin
if SelectEventAtCoord(Point(Msg.XPos, Msg.YPos)) then if SelectEventAtCoord(Point(Msg.XPos, Msg.YPos)) then
FOnEventDblClick(self, mvActiveEvent); FOnEventDblClick(self, mvActiveEvent);
end else end else
if mvActiveEvent <> nil then if mvActiveEvent <> nil then begin
mvSpawnEventEditDialog(SelectEventAtCoord(Point(Msg.XPos, Msg.YPos))) newevent := not SelectEventAtCoord(Point(Msg.XPos, Msg.YPos));
else mvSpawnEventEditDialog(newevent);
end else
if (DataStore.Resource <> nil) then begin if (DataStore.Resource <> nil) then begin
{ otherwise, we must want to create a new event } { otherwise, we must want to create a new event }
startTime := trunc(Date) + 0.5; { default to 12:00 noon } startTime := trunc(Date) + 0.5; { default to 12:00 noon }