paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 15:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Patch from Joost van der Sluis to implement Modified and UpdateRecord event

Browse Source
This commit is contained in:
michael 2004-08-14 12:46:35 +00:00
parent 9d67b861cb
commit d13640a706
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fcl/db/dataset.inc
View File

@ -839,7 +839,7 @@ end;
Procedure TDataset.SetModified(Value: Boolean); Procedure TDataset.SetModified(Value: Boolean);
begin begin
//!! To be implemented FModified := value;
end; end;
Procedure TDataset.SetName(const Value: TComponentName); Procedure TDataset.SetName(const Value: TComponentName);
@ -1471,6 +1471,7 @@ Procedure TDataset.Post;
begin begin
if State in [dsEdit,dsInsert] then if State in [dsEdit,dsInsert] then
begin begin
DataEvent(deUpdateRecord,0);
DataEvent(deCheckBrowseMode,0); DataEvent(deCheckBrowseMode,0);
{$ifdef dsdebug} {$ifdef dsdebug}
writeln ('Post: checking required fields'); writeln ('Post: checking required fields');
@ -1684,7 +1685,10 @@ end;
{ {
$Log$ $Log$
Revision 1.18 2004-08-13 07:06:02 michael Revision 1.19 2004-08-14 12:46:36 michael
+ Patch from Joost van der Sluis to implement Modified and UpdateRecord event
Revision 1.18 2004/08/13 07:06:02 michael
+ Rework of buffer management by Joost Van der Sluis + Rework of buffer management by Joost Van der Sluis
Revision 1.17 2004/08/03 19:08:48 michael Revision 1.17 2004/08/03 19:08:48 michael

7
fcl/db/db.pp
View File

@ -1008,7 +1008,7 @@ type
property FieldDefs: TFieldDefs read FFieldDefs write FFieldDefs; property FieldDefs: TFieldDefs read FFieldDefs write FFieldDefs;
// property Fields[Index: Longint]: TField read GetField write SetField; // property Fields[Index: Longint]: TField read GetField write SetField;
property Found: Boolean read FFound; property Found: Boolean read FFound;
property Modified: Boolean read FModified; property Modified: Boolean read FModified write SetModified;
property IsUniDirectional: Boolean read FIsUniDirectional write FIsUniDirectional default False; property IsUniDirectional: Boolean read FIsUniDirectional write FIsUniDirectional default False;
property RecordCount: Longint read GetRecordCount; property RecordCount: Longint read GetRecordCount;
property RecNo: Longint read FRecNo write FRecNo; property RecNo: Longint read FRecNo write FRecNo;
@ -1500,7 +1500,10 @@ end.
{ {
$Log$ $Log$
Revision 1.20 2004-08-13 07:06:02 michael Revision 1.21 2004-08-14 12:46:35 michael
+ Patch from Joost van der Sluis to implement Modified and UpdateRecord event
Revision 1.20 2004/08/13 07:06:02 michael
+ Rework of buffer management by Joost Van der Sluis + Rework of buffer management by Joost Van der Sluis
Revision 1.19 2004/07/25 11:32:40 michael Revision 1.19 2004/07/25 11:32:40 michael