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

tvplanit: Cosmetic format changes in units vpbase and vpflxds

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4727 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-12 13:51:29 +00:00
parent 8b2fe7e075
commit 3fe2442f42
2 changed files with 241 additions and 293 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
components/tvplanit/source/vpbase.pas
View File

@ -96,7 +96,6 @@ type
TVpGetEditorCaption = procedure(var Caption : string) of object; TVpGetEditorCaption = procedure(var Caption : string) of object;
{ XML exceptions } { XML exceptions }
EXML = class (Exception); EXML = class (Exception);
@ -104,8 +103,7 @@ type
private private
seFilePos : Longint; seFilePos : Longint;
public public
constructor CreateError(const FilePos : Longint; constructor CreateError(const FilePos: Longint; const Reason: DOMString);
const Reason : DOMString);
property FilePos: Longint property FilePos: Longint
read seFilePos; read seFilePos;
end; end;
@ -116,21 +114,15 @@ type
feLine: Longint; feLine: Longint;
feLinePos: Longint; feLinePos: Longint;
public public
constructor CreateError(const FilePos, Line, LinePos : Longint; constructor CreateError(const FilePos, Line, LinePos: Longint; const Reason: DOMString);
const Reason : DOMString); property Reason : DOMString read feReason;
property Reason : DOMString property Line : Longint read feLine;
read feReason; property LinePos : Longint read feLinePos;
property Line : Longint
read feLine;
property LinePos : Longint
read feLinePos;
end; end;
EVpParserError = class(EVpFilterError) EVpParserError = class(EVpFilterError)
protected
public public
constructor CreateError(Line, LinePos : Longint; constructor CreateError(Line, LinePos: Longint; const Reason: DOMString);
const Reason : DOMString);
end; end;
{ implements the Version property with its associated design time About box } { implements the Version property with its associated design time About box }
@ -162,13 +154,11 @@ type
{$ENDIF} {$ENDIF}
protected protected
procedure DoOnMouseWheel(Shift : TShiftState; procedure DoOnMouseWheel(Shift: TShiftState; Delta, XPos, YPos: SmallInt); dynamic;
Delta, XPos, YPos : SmallInt); dynamic;
procedure CreateWnd; override; procedure CreateWnd; override;
property AfterEnter: TNotifyEvent read FAfterEnter write FAfterEnter; property AfterEnter: TNotifyEvent read FAfterEnter write FAfterEnter;
property AfterExit: TNotifyEvent read FAfterExit write FAfterExit; property AfterExit: TNotifyEvent read FAfterExit write FAfterExit;
property OnMouseWheel : TVpMouseWheelEvent read FOnMouseWheel property OnMouseWheel: TVpMouseWheelEvent read FOnMouseWheel write FOnMouseWheel;
write FOnMouseWheel;
public public
constructor Create (AOwner : TComponent); override; constructor Create (AOwner : TComponent); override;
@ -214,8 +204,7 @@ type
constructor Create; constructor Create;
destructor Destroy; override; destructor Destroy; override;
published published
property BackgroundColor : TColor property BackgroundColor : TColor read FBackgroundColor write SetBackgroundColor
read FBackgroundColor write SetBackgroundColor
default clWindow; default clWindow;
property Bitmap : TBitmap read FBitmap write SetBitmap; property Bitmap : TBitmap read FBitmap write SetBitmap;
property Color: TColor read FColor write SetColor; property Color: TColor read FColor write SetColor;
@ -296,8 +285,7 @@ type
function GetCount : Integer; function GetCount : Integer;
procedure Loaded; procedure Loaded;
public public
constructor Create(AOwner : TPersistent; constructor Create(AOwner : TPersistent; ItemClass : TCollectionItemClass); virtual;
ItemClass : TCollectionItemClass); virtual;
destructor Destroy; override; destructor Destroy; override;
property ItemEditor: TForm read FItemEditor write FItemEditor; property ItemEditor: TForm read FItemEditor write FItemEditor;
function Add: TVpCollectionItem; dynamic; function Add: TVpCollectionItem; dynamic;
@ -312,16 +300,11 @@ type
function ItemByName(const Name: string) : TVpCollectionItem; function ItemByName(const Name: string) : TVpCollectionItem;
function ParentForm: TForm; function ParentForm: TForm;
property Count: Integer read GetCount; property Count: Integer read GetCount;
property Item[Index: Integer] : TVpCollectionItem property Item[Index: Integer] : TVpCollectionItem read GetItem write SetItem; default;
read GetItem write SetItem; default; property OnGetEditorCaption : TVpGetEditorCaption read FOnGetEditorCaption write FOnGetEditorCaption;
property OnGetEditorCaption : TVpGetEditorCaption property ReadOnly : Boolean read FReadOnly write FReadOnly default False;
read FOnGetEditorCaption write FOnGetEditorCaption; property OnChanged : TNotifyEvent read FOnChanged write FOnChanged;
property ReadOnly : Boolean property OnItemSelected : TVpItemSelectedEvent read FOnItemSelected write FOnItemSelected;
read FReadOnly write FReadOnly default False;
property OnChanged : TNotifyEvent
read FOnChanged write FOnChanged;
property OnItemSelected : TVpItemSelectedEvent
read FOnItemSelected write FOnItemSelected;
end; end;
TVpContainerList = class(TList) TVpContainerList = class(TList)
@ -378,8 +361,7 @@ type
property Holiday: TColor read FHoliday write SetHoliday; property Holiday: TColor read FHoliday write SetHoliday;
property Weekday: TColor read FWeekday write SetWeekday; property Weekday: TColor read FWeekday write SetWeekday;
property Weekend: TColor read FWeekend write SetWeekend; property Weekend: TColor read FWeekend write SetWeekend;
property ActiveRange: TVpTimeRange property ActiveRange: TVpTimeRange read FActiveRange write FActiveRange;
read FActiveRange write FActiveRange;
end; end;
implementation implementation
@ -404,11 +386,10 @@ end;
{ EAdFilterError } { EAdFilterError }
constructor EVpFilterError.CreateError(const FilePos, Line, constructor EVpFilterError.CreateError(const FilePos, Line, LinePos: Integer;
LinePos: Integer; const Reason: DOMString); const Reason: DOMString);
begin begin
inherited CreateError(FilePos, Reason); inherited CreateError(FilePos, Reason);
feLine := Line; feLine := Line;
feLinePos := LinePos; feLinePos := LinePos;
feReason := Reason; feReason := Reason;
@ -446,8 +427,8 @@ begin
end; end;
{=====} {=====}
procedure TVpCustomControl.DoOnMouseWheel(Shift: TShiftState; Delta, XPos, procedure TVpCustomControl.DoOnMouseWheel(Shift: TShiftState;
YPos: SmallInt); Delta, XPos, YPos: SmallInt);
begin begin
if Assigned(FOnMouseWheel) then if Assigned(FOnMouseWheel) then
FOnMouseWheel(Self, Shift, Delta, XPos, YPos); FOnMouseWheel(Self, Shift, Delta, XPos, YPos);
@ -475,15 +456,16 @@ begin
with Msg do with Msg do
DoOnMouseWheel(KeysToShiftState(LOWORD(wParam)) {fwKeys}, DoOnMouseWheel(KeysToShiftState(LOWORD(wParam)) {fwKeys},
HIWORD(wParam) {zDelta}, HIWORD(wParam) {zDelta},
LOWORD(lParam) {xPos}, HIWORD(lParam) {yPos}); LOWORD(lParam) {xPos},
HIWORD(lParam) {yPos}
);
end; end;
{=====} {=====}
(*****************************************************************************) (*****************************************************************************)
{ TVpCollection } { TVpCollection }
constructor TVpCollection.Create(AOwner : TPersistent; constructor TVpCollection.Create(AOwner: TPersistent; ItemClass: TCollectionItemClass);
ItemClass : TCollectionItemClass);
begin begin
FOwner := AOwner; FOwner := AOwner;
Inherited Create(ItemClass); Inherited Create(ItemClass);
@ -660,9 +642,10 @@ end;
procedure TVpFont.Changed; procedure TVpFont.Changed;
begin begin
inherited; inherited;
Assert((FOwner is TControl) or (FOwner is TVpPersistent), Assert(
Format('TVpFont.Changed: Unexpected parent class: %s', (FOwner is TControl) or (FOwner is TVpPersistent),
[FOwner.ClassName])); Format('TVpFont.Changed: Unexpected parent class: %s', [FOwner.ClassName])
);
if FOwner is TControl then if FOwner is TControl then
TControl(FOwner).Invalidate TControl(FOwner).Invalidate
else if FOwner is TVpPersistent then else if FOwner is TVpPersistent then
@ -683,7 +666,6 @@ end;
constructor TVpCategoryColorMap.Create; constructor TVpCategoryColorMap.Create;
begin begin
inherited Create; inherited Create;
FCat0 := TVpCategoryInfo.Create; FCat0 := TVpCategoryInfo.Create;
FCat0.Color := clNavy; FCat0.Color := clNavy;
FCat0.Description := RSCategoryDesc0; FCat0.Description := RSCategoryDesc0;
@ -787,7 +769,6 @@ end;
constructor TVpCategoryInfo.Create; constructor TVpCategoryInfo.Create;
begin begin
inherited Create; inherited Create;
FBitmap := TBitmap.Create; FBitmap := TBitmap.Create;
FBackgroundColor := clWindow; FBackgroundColor := clWindow;
end; end;
@ -795,7 +776,6 @@ end;
destructor TVpCategoryInfo.Destroy; destructor TVpCategoryInfo.Destroy;
begin begin
FBitmap.Free; FBitmap.Free;
inherited Destroy; inherited Destroy;
end; end;
@ -857,7 +837,6 @@ begin
{ start to be one hour earlier than the end } { start to be one hour earlier than the end }
if FRangeBegin > Value then if FRangeBegin > Value then
FRangeBegin := TVpHours(Ord(Value) - 1); FRangeBegin := TVpHours(Ord(Value) - 1);
FRangeEnd := Value; FRangeEnd := Value;
SetEndTime((Ord(Value) * 60) / MinutesInDay); SetEndTime((Ord(Value) * 60) / MinutesInDay);
end; end;
@ -868,7 +847,6 @@ begin
if Value < StartTime then if Value < StartTime then
StartTime := Value - (30 / MinutesInDay); StartTime := Value - (30 / MinutesInDay);
FEndTime := Value; FEndTime := Value;
if FOwner is TVpTimeSlotColor then if FOwner is TVpTimeSlotColor then
(FOwner as TVpTimeSlotColor).Changed; (FOwner as TVpTimeSlotColor).Changed;
end; end;
@ -879,7 +857,6 @@ begin
if Value > EndTime then if Value > EndTime then
EndTime := Value + (30 / MinutesInDay); EndTime := Value + (30 / MinutesInDay);
FStartTime := Value; FStartTime := Value;
if FOwner is TVpTimeSlotColor then if FOwner is TVpTimeSlotColor then
(FOwner as TVpTimeSlotColor).Changed; (FOwner as TVpTimeSlotColor).Changed;
end; end;

99
components/tvplanit/source/vpflxds.pas
View File

@ -348,9 +348,8 @@ begin
try try
FResourceDataSrc.DataSet.Open; FResourceDataSrc.DataSet.Open;
except except
if Assigned(OnCreateTable) then begin if Assigned(OnCreateTable) then
OnCreateTable(Self, ResourceTableName); OnCreateTable(Self, ResourceTableName);
end;
try try
FResourceDataSrc.DataSet.Open; FResourceDataSrc.DataSet.Open;
except except
@ -364,9 +363,8 @@ begin
try try
FEventsDataSrc.DataSet.Open; FEventsDataSrc.DataSet.Open;
except except
if Assigned(OnCreateTable) then begin if Assigned(OnCreateTable) then
OnCreateTable(Self, EventsTableName); OnCreateTable(Self, EventsTableName);
end;
try try
FEventsDataSrc.DataSet.Open; FEventsDataSrc.DataSet.Open;
except except
@ -380,9 +378,8 @@ begin
try try
FContactsDataSrc.DataSet.Open; FContactsDataSrc.DataSet.Open;
except except
if Assigned(OnCreateTable) then begin if Assigned(OnCreateTable) then
OnCreateTable(Self, ContactsTableName); OnCreateTable(Self, ContactsTableName);
end;
try try
FContactsDataSrc.DataSet.Open; FContactsDataSrc.DataSet.Open;
except except
@ -396,9 +393,8 @@ begin
try try
FTasksDataSrc.DataSet.Open; FTasksDataSrc.DataSet.Open;
except except
if Assigned(OnCreateTable) then begin if Assigned(OnCreateTable) then
OnCreateTable(Self, TasksTableName); OnCreateTable(Self, TasksTableName);
end;
try try
FTasksDataSrc.DataSet.Open; FTasksDataSrc.DataSet.Open;
except except
@ -430,8 +426,7 @@ end;
procedure TVpFlexDataStore.Load; procedure TVpFlexDataStore.Load;
var var
Res: TVpResource; Res: TVpResource;
{FieldName} FN: string; // Field name
FN: string;
begin begin
if (csLoading in ComponentState) then if (csLoading in ComponentState) then
Exit; Exit;
@ -538,21 +533,17 @@ var
{Field Name} {Field Name}
FN1, FN2, FN3 : string; FN1, FN2, FN3 : string;
begin begin
if (FEventsDataSrc = nil) if (FEventsDataSrc = nil) or (FEventsDataSrc.DataSet = nil) then
or (FEventsDataSrc.DataSet = nil) then
Exit; Exit;
if (FResource <> nil) then begin if (FResource <> nil) then begin
{ Load this resource's events into memory } { Load this resource's events into memory }
SetFilterCriteria(FEventsDataSrc.DataSet, SetFilterCriteria(FEventsDataSrc.DataSet, True, FResource.ResourceID,
True, TimeRange.StartTime, TimeRange.EndTime);
FResource.ResourceID,
TimeRange.StartTime,
TimeRange.EndTime);
if (FEventsDataSrc = nil) if (FEventsDataSrc = nil) or
or (FEventsDataSrc.DataSet = nil) (FEventsDataSrc.DataSet = nil) or (not FEventsDataSrc.DataSet.Active)
or (not FEventsDataSrc.DataSet.Active) then then
Exit; Exit;
with FEventsDataSrc.Dataset do begin with FEventsDataSrc.Dataset do begin
@ -564,8 +555,8 @@ begin
FN3 := GetFieldName(FEventMappings, 'EndTime'); FN3 := GetFieldName(FEventMappings, 'EndTime');
if (FN1 <> '') and (FN2 <> '') and (FN3 <> '') then begin if (FN1 <> '') and (FN2 <> '') and (FN3 <> '') then begin
Event := Resource.Schedule.AddEvent(FieldByName(FN1).AsInteger, Event := Resource.Schedule.AddEvent(FieldByName(FN1).AsInteger,
FieldByName(FN2).AsDateTime, FieldByName(FN2).AsDateTime, FieldByName(FN3).AsDateTime);
FieldByName(FN3).AsDateTime);
if Event <> nil then begin if Event <> nil then begin
Event.Loading := true; Event.Loading := true;
@ -688,12 +679,10 @@ var
begin begin
if (FResource <> nil) then begin if (FResource <> nil) then begin
{load this resource's contacts into memory} {load this resource's contacts into memory}
if (FContactsDataSrc <> nil) if (FContactsDataSrc <> nil) and (FContactsDataSrc.DataSet <> nil) and FContactsDataSrc.DataSet.Active
and (FContactsDataSrc.DataSet <> nil) then
and (FContactsDataSrc.DataSet.Active) then
with FContactsDataSrc.DataSet do begin with FContactsDataSrc.DataSet do begin
SetFilterCriteria(FContactsDataSrc.DataSet, False, SetFilterCriteria(FContactsDataSrc.DataSet, False, FResource.ResourceID, 0, 0);
FResource.ResourceID, 0, 0);
First; First;
while not EOF do begin while not EOF do begin
Contact := Resource.Contacts.AddContact(GetNextID(ContactsTableName)); Contact := Resource.Contacts.AddContact(GetNextID(ContactsTableName));
@ -881,12 +870,10 @@ var
begin begin
if (FResource <> nil) then begin if (FResource <> nil) then begin
{load this resource's contacts into memory} {load this resource's contacts into memory}
if (FTasksDataSrc <> nil) if (FTasksDataSrc <> nil) and (FTasksDataSrc.DataSet <> nil) and (FTasksDataSrc.DataSet.Active) then
and (FTasksDataSrc.DataSet <> nil) begin
and (FTasksDataSrc.DataSet.Active) then begin
with FTasksDataSrc.DataSet do begin with FTasksDataSrc.DataSet do begin
SetFilterCriteria(FTasksDataSrc.DataSet, False, FResource.ResourceID, SetFilterCriteria(FTasksDataSrc.DataSet, False, FResource.ResourceID, 0, 0);
0, 0);
First; First;
while not EOF do begin while not EOF do begin
Task := Resource.Tasks.AddTask(GetNextID(TasksTableName)); Task := Resource.Tasks.AddTask(GetNextID(TasksTableName));
@ -1000,7 +987,6 @@ begin
then FResourceDataSrc.DataSet.Open; then FResourceDataSrc.DataSet.Open;
if FResourceDataSrc.DataSet.Active then begin if FResourceDataSrc.DataSet.Active then begin
with FResourceDataSrc.DataSet do begin with FResourceDataSrc.DataSet do begin
{ if a resource } { if a resource }
FN := GetFieldName(FResourceMappings, 'ResourceID'); FN := GetFieldName(FResourceMappings, 'ResourceID');
@ -1115,20 +1101,17 @@ var
FN: string; FN: string;
begin begin
{if no events dataset has been defined then bail.} {if no events dataset has been defined then bail.}
if (FEventsDataSrc = nil) if (FEventsDataSrc = nil) or (FEventsDataSrc.DataSet = nil) then
or (FEventsDataSrc.DataSet = nil) then
Exit; Exit;
if (Resource <> nil) and Resource.EventsDirty then begin if (Resource <> nil) and Resource.EventsDirty then begin
{ Dump this resource's dirty events to the DB } { Dump this resource's dirty events to the DB }
if (FResourceDataSrc <> nil) if (FResourceDataSrc <> nil) and (FResourceDataSrc.DataSet <> nil) then
and (FResourceDataSrc.DataSet <> nil) then begin begin
FResourceDataSrc.DataSet.Open; FResourceDataSrc.DataSet.Open;
FN := GetFieldName(FEventMappings, 'ResourceID'); FN := GetFieldName(FEventMappings, 'ResourceID');
if (FN <> '') if (FN <> '') and FResourceDataSrc.DataSet.Locate(FN, Resource.ResourceID, [])
and FResourceDataSrc.DataSet.Locate(FN, Resource.ResourceID, [])
then begin then begin
SetFilterCriteria(FEventsDataSrc.DataSet, False, Resource.ResourceID, SetFilterCriteria(FEventsDataSrc.DataSet, False, Resource.ResourceID,
0, 0); 0, 0);
@ -1160,7 +1143,6 @@ begin
if Event.RecordID <> -1 then if Event.RecordID <> -1 then
EventsTable.FieldByName(FN).AsInteger := Event.RecordID; EventsTable.FieldByName(FN).AsInteger := Event.RecordID;
FN := GetFieldName(FEventMappings, 'StartTime'); FN := GetFieldName(FEventMappings, 'StartTime');
if FN <> '' then if FN <> '' then
EventsTable.FieldByName(FN).AsDateTime := Event.StartTime; EventsTable.FieldByName(FN).AsDateTime := Event.StartTime;
@ -1287,11 +1269,9 @@ begin
if Event.RecordID = -1 then begin if Event.RecordID = -1 then begin
FN := GetFieldName(EventMappings, 'RecordID'); FN := GetFieldName(EventMappings, 'RecordID');
if FN <> '' then if FN <> '' then
Event.RecordID Event.RecordID := EventsTable.FieldByName(FN).AsInteger;
:= EventsTable.FieldByName(FN).AsInteger;
end; end;
(* Bad Phillip. (* Bad Phillip.
if Event.RecordID = -1 then if Event.RecordID = -1 then
Event.RecordID := EventsTable.FieldByName('RecordID').AsInteger; Event.RecordID := EventsTable.FieldByName('RecordID').AsInteger;
@ -1332,8 +1312,8 @@ begin
{ if the delete flag is set then delete the record } { if the delete flag is set then delete the record }
{ and free the event instance } { and free the event instance }
if Contact.Deleted then begin if Contact.Deleted then begin
if ContactsTable.Locate(FN, Contact.RecordID, []) if ContactsTable.Locate(FN, Contact.RecordID, []) then
then ContactsTable.Delete; ContactsTable.Delete;
Contact.Free; Contact.Free;
Continue; Continue;
end; end;
@ -1552,14 +1532,14 @@ var
begin begin
if (Resource <> nil) and Resource.TasksDirty then begin if (Resource <> nil) and Resource.TasksDirty then begin
if (FResourceDataSrc <> nil) if (FResourceDataSrc <> nil) and (FResourceDataSrc.Dataset <> nil) then
and (FResourceDataSrc.Dataset <> nil) then begin begin
FResourceDataSrc.DataSet.Open; FResourceDataSrc.DataSet.Open;
if FResourceDataSrc.DataSet.Active then begin if FResourceDataSrc.DataSet.Active then begin
FN := GetFieldName(FTaskMappings, 'ResourceID'); FN := GetFieldName(FTaskMappings, 'ResourceID');
{ Dump this resource's dirty contacts to the DB } { Dump this resource's dirty contacts to the DB }
if not FResourceDataSrc.DataSet.Locate(FN, Resource.ResourceID, []) if not FResourceDataSrc.DataSet.Locate(FN, Resource.ResourceID, []) then
then Exit; Exit;
end; {if FResourceDataSrc.DataSet.Active} end; {if FResourceDataSrc.DataSet.Active}
end; {if (FResourceDataSrc ...} end; {if (FResourceDataSrc ...}
@ -1569,9 +1549,7 @@ begin
for I := pred(Resource.Tasks.Count) downto 0 do begin for I := pred(Resource.Tasks.Count) downto 0 do begin
with FTasksDataSrc.DataSet do begin with FTasksDataSrc.DataSet do begin
Task := Resource.Tasks.GetTask(I); Task := Resource.Tasks.GetTask(I);
FN := GetFieldName(FTaskMappings, 'RecordID'); FN := GetFieldName(FTaskMappings, 'RecordID');
{ if the delete flag is set then delete the record } { if the delete flag is set then delete the record }
@ -1584,15 +1562,14 @@ begin
end; end;
if Task.Changed then begin if Task.Changed then begin
if Locate(FN, Task.RecordID, []) if Locate(FN, Task.RecordID, []) then
then
{ this event already exists in the database so update it } { this event already exists in the database so update it }
Edit Edit
else else
{ this record doesn't exist in the database, so it's a new event } { this record doesn't exist in the database, so it's a new event }
Append; Append;
try
try
{ DataStore descendants that can use an autoincrement RecordID } { DataStore descendants that can use an autoincrement RecordID }
{ field set the RecordID to -1 by default. If the RecordID is } { field set the RecordID to -1 by default. If the RecordID is }
{ -1 then this is a new record and we shouldn't overwrite } { -1 then this is a new record and we shouldn't overwrite }
@ -1726,7 +1703,6 @@ begin
FN := GetFieldName(FResourceMappings, 'ResourceID'); FN := GetFieldName(FResourceMappings, 'ResourceID');
if (FN <> '') then begin if (FN <> '') then begin
if (Res <> nil) and Res.Deleted then begin if (Res <> nil) and Res.Deleted then begin
PurgeEvents(Res); PurgeEvents(Res);
PurgeContacts(Res); PurgeContacts(Res);
@ -1850,9 +1826,8 @@ procedure TVpFlexDataStore.PurgeEvents(Res: TVpResource);
var var
I: integer; I: integer;
begin begin
for I := 0 to pred(Res.Schedule.EventCount) do begin for I := 0 to pred(Res.Schedule.EventCount) do
TVpEvent(Res.Schedule.GetEvent(I)).Deleted := true; TVpEvent(Res.Schedule.GetEvent(I)).Deleted := true;
end;
PostEvents; PostEvents;
Res.Schedule.ClearEvents; Res.Schedule.ClearEvents;
end; end;
@ -1863,9 +1838,8 @@ procedure TVpFlexDataStore.PurgeContacts(Res: TVpResource);
var var
I: integer; I: integer;
begin begin
for I := 0 to pred(Res.Contacts.Count) do begin for I := 0 to pred(Res.Contacts.Count) do
TVpContact(Res.Contacts.GetContact(I)).Deleted := true; TVpContact(Res.Contacts.GetContact(I)).Deleted := true;
end;
PostContacts; PostContacts;
Res.Contacts.ClearContacts; Res.Contacts.ClearContacts;
end; end;
@ -1876,9 +1850,8 @@ procedure TVpFlexDataStore.PurgeTasks(Res: TVpResource);
var var
I: integer; I: integer;
begin begin
for I := 0 to pred(Res.Tasks.Count) do begin for I := 0 to pred(Res.Tasks.Count) do
TVpTask(Res.Tasks.GetTask(I)).Deleted := true; TVpTask(Res.Tasks.GetTask(I)).Deleted := true;
end;
PostTasks; PostTasks;
Res.Tasks.ClearTasks; Res.Tasks.ClearTasks;
end; end;
@ -2079,7 +2052,6 @@ begin
{ for each table. } { for each table. }
result := -1; result := -1;
if Assigned(OnGetNextID) then if Assigned(OnGetNextID) then
result := OnGetNextID(Self, TableName); result := OnGetNextID(Self, TableName);
end; end;
@ -2203,5 +2175,4 @@ end;
{=====} {=====}
end. end.