Hi,
I have implented som code in the OnMouseUp event for FNC Planner for creating som data, it works fine, except that when my code finishes, the OnMouseUp event fires again.
Is there something I need to do for avoiding that (some kind of Handled message for example):
My code is this:
procedure THallPlanTMSFNCPlannerForm.TMSFNCPlanner1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
dtStart, dtEnd: TDatetime;
lResource: Integer;
lConfRoomNumber: Integer;
lCreateParams: TReservationCreateRecord;
begin
if Button = TMouseButton.mbLeft then
begin
try
case (Sender as TTMSFNCPlanner).Mode of
pmDay: begin
dtStart := (Sender as TTMSFNCPlanner).SelectedStartDateTime;
dtEnd := (Sender as TTMSFNCPlanner).SelectedEndDateTime;
end;
pmDayPeriod: begin
dtStart := Trunc((Sender as TTMSFNCPlanner).SelectedStartDateTime) + Frac(TString.ToTime(THotelSetupTX.Setting(hsTimeOfArrivalForConference)));
dtEnd := (Trunc((Sender as TTMSFNCPlanner).SelectedEndDateTime) - 1) + Frac(TString.ToTime(THotelSetupTX.Setting(hsTimeOfDepartureForConference)));
end;
end;
lResource := (Sender as TTMSFNCPlanner).SelectedResource;
lConfRoomNumber := (Sender as TTMSFNCPlanner).Resources[lResource].Tag;
NewConferenceReservation := True;
HallPlanHallNumberID := lConfRoomNumber;
HallPlanHotelNumber := THallFX.GetHallHotelNumber(lConfRoomNumber);
HallPlanStartTime := dtStart;
HallPlanEndTime := dtEnd;
HallPlanIsTable := THallFX.IsHallTable(lConfRoomNumber);
HallPlanHallScrNumber := THallFX.GetScrHallNumber(lConfRoomNumber);
HallPlanHallScrType := THallFX.GetHallType(lConfRoomNumber);
if HotelBox.CheckedCount = 1 then
HallPlanHotelNumber := StrToIntDef(HotelBox.GetCurrentlySelectedHotelNumbers(Login.HotelNumber), -1);
HallPlanCreateArrangementLine := False; // pnlWares.Visible and (sgWares.Row > 1);
HallPlanWareNumber := 0; //StrToIntDef(sgWares.Cells[1, SgWares.Row], 0);
with lCreateParams do
begin
Clear;
Sender := Self;
HotelNumber := HallPlanHotelNumber;
end;
TReservationCX.CreateReservation(lCreateParams);
inherited;
except
end;
end
else
begin
inherited;
end;
end;