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

tvplanit: Add additional parameters "IsNewEvent", "IsNewContact", "IsNewTask" to the events "OnOwnerEditEvent", "OnOwnerEditContact" and "OnOwnerEditTask" of TVpDayView/TVpWeekView/TVpMontView, TVpContactGrid and TVpTaskList, respectively (extended patch by linux-man, issue #33750).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6429 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-05-17 15:37:37 +00:00
parent 238d0aaa15
commit 4cb75a89cc
7 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/tvplanit/source/vpbaseds.pas
View File

@ -81,8 +81,8 @@ type
{ contact events } { contact events }
TVpContactEvent = procedure(Sender: TObject; Contact: TVpContact) of object; TVpContactEvent = procedure(Sender: TObject; Contact: TVpContact) of object;
TVpEditContactEvent = procedure(Sender: TObject; Contact: TVpContact; TVpEditContactEvent = procedure(Sender: TObject; AContact: TVpContact;
Resource: TVpResource; var AllowIt: Boolean) of object; IsNewContact: Boolean; AResource: TVpResource; var AllowIt: Boolean) of object;
TVpOwnerDrawContactEvent = procedure(Sender: TObject; const Canvas: TCanvas; TVpOwnerDrawContactEvent = procedure(Sender: TObject; const Canvas: TCanvas;
R: TRect; Contact: TVpContact; var Drawn: Boolean) of object; R: TRect; Contact: TVpContact; var Drawn: Boolean) of object;
@ -96,8 +96,8 @@ type
TVpAfterEditTask = procedure(Sender: TObject; Task: TVpTask) of object; TVpAfterEditTask = procedure(Sender: TObject; Task: TVpTask) of object;
TVpEditTask = procedure(Sender: TObject; Task: TVpTask; TVpEditTask = procedure(Sender: TObject; ATask: TVpTask; IsNewTask: Boolean;
Resource: TVpResource; var AllowIt: Boolean) of object; AResource: TVpResource; var AllowIt: Boolean) of object;
TVpOwnerDrawTask = procedure(Sender: TObject; const Canvas: TCanvas; TVpOwnerDrawTask = procedure(Sender: TObject; const Canvas: TCanvas;
R: TRect; Task: TVpTask; var Drawn: Boolean) of object; R: TRect; Task: TVpTask; var Drawn: Boolean) of object;
@ -110,8 +110,8 @@ type
TVpAfterEditEvent = procedure(Sender: TObject; Event: TVpEvent) of object; TVpAfterEditEvent = procedure(Sender: TObject; Event: TVpEvent) of object;
TVpEditEvent = procedure(Sender: TObject; Event: TVpEvent; TVpEditEvent = procedure(Sender: TObject; AEvent: TVpEvent;
Resource:TVpResource; var AllowIt: Boolean) of object; IsNewEvent: Boolean; AResource:TVpResource; var AllowIt: Boolean) of object;
TVpOnAddNewEvent = procedure (Sender: TObject; TVpOnAddNewEvent = procedure (Sender: TObject;
Event: TVpEvent) of object; Event: TVpEvent) of object;

4
components/tvplanit/source/vpcontactgrid.pas
View File

@ -1209,7 +1209,7 @@ var
begin begin
AllowIt := false; AllowIt := false;
if Assigned(FOwnerEditContact) then if Assigned(FOwnerEditContact) then
FOwnerEditContact(self, FActiveContact, DataStore.Resource, AllowIt) FOwnerEditContact(self, FActiveContact, NewContact, DataStore.Resource, AllowIt)
else begin else begin
Dlg := TVpContactEditDialog.Create(Owner); Dlg := TVpContactEditDialog.Create(Owner);
try try
@ -1255,7 +1255,7 @@ begin
AllowIt := true; AllowIt := true;
{ call the user defined BeforeEdit contact } { call the user defined BeforeEdit contact }
if Assigned(FBeforeEdit) then if Assigned(FBeforeEdit) then
FBeforeEdit(Self, FActiveContact, DataStore.Resource, AllowIt); FBeforeEdit(Self, FActiveContact, false, DataStore.Resource, AllowIt);
if AllowIt then begin if AllowIt then begin
{ find the field to edit } { find the field to edit }

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

@ -2068,7 +2068,7 @@ begin
AllowIt := false; AllowIt := false;
if Assigned(FOwnerEditEvent) then if Assigned(FOwnerEditEvent) then
FOwnerEditEvent(self, FActiveEvent, DataStore.Resource, AllowIt) FOwnerEditEvent(self, FActiveEvent, NewEvent, DataStore.Resource, AllowIt)
else begin else begin
EventDlg := TVpEventEditDialog.Create(nil); EventDlg := TVpEventEditDialog.Create(nil);
try try

2
components/tvplanit/source/vpeventrpt.pas
View File

@ -731,7 +731,7 @@ begin
AllowIt := false; AllowIt := false;
if Assigned (FOwnerEditEvent) then if Assigned (FOwnerEditEvent) then
FOwnerEditEvent(self, FActiveEvent, DataStore.Resource, AllowIt) FOwnerEditEvent(self, FActiveEvent, NewEvent, DataStore.Resource, AllowIt)
else begin else begin
EventDlg := TVpEventEditDialog.Create(nil); EventDlg := TVpEventEditDialog.Create(nil);
try try

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

@ -700,7 +700,7 @@ begin
AllowIt := false; AllowIt := false;
if Assigned(FOwnerEditEvent) then if Assigned(FOwnerEditEvent) then
FOwnerEditEvent(self, mvActiveEvent, DataStore.Resource, AllowIt) FOwnerEditEvent(self, mvActiveEvent, NewEvent, DataStore.Resource, AllowIt)
else begin else begin
EventDlg := TVpEventEditDialog.Create(nil); EventDlg := TVpEventEditDialog.Create(nil);
try try

2
components/tvplanit/source/vptasklist.pas
View File

@ -928,7 +928,7 @@ begin
Task := FActiveTask; Task := FActiveTask;
if Assigned(FOwnerEditTask) then if Assigned(FOwnerEditTask) then
FOwnerEditTask(self, Task, DataStore.Resource, AllowIt) FOwnerEditTask(self, Task, NewTask, DataStore.Resource, AllowIt)
else begin else begin
TaskDlg := TVpTaskEditDialog.Create(nil); TaskDlg := TVpTaskEditDialog.Create(nil);
try try

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

@ -1351,7 +1351,7 @@ begin
AllowIt := false; AllowIt := false;
if Assigned(FOwnerEditEvent) then if Assigned(FOwnerEditEvent) then
FOwnerEditEvent(self, ActiveEvent, DataStore.Resource, AllowIt) FOwnerEditEvent(self, ActiveEvent, NewEvent, DataStore.Resource, AllowIt)
else begin else begin
EventDlg := TVpEventEditDialog.Create(nil); EventDlg := TVpEventEditDialog.Create(nil);
try try