* Patch from Ludo Brands to fix Modified behaviour (bug ID 22381)

git-svn-id: trunk@21875 -

packages/fcl-db/src/base/dataset.inc

@@ -1367,6 +1367,8 @@ begin
   If Value<>FState then
     begin
     FState:=Value;
+    if Value=dsBrowse then
+      FModified:=false;
     DataEvent(deUpdateState,0);
     end;
 end;