From ee2d2ac48ea34c439981608e6b4e78f2e213a42e Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Tue, 14 Nov 2006 21:25:38 +0000
Subject: [PATCH]  * Check browse-mode before checking readonly on
 TDataset.edit

git-svn-id: trunk@5383 -
---
 fcl/db/dataset.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fcl/db/dataset.inc b/fcl/db/dataset.inc
index d4738632c1..5858c7d08d 100644
--- a/fcl/db/dataset.inc
+++ b/fcl/db/dataset.inc
@@ -1380,6 +1380,7 @@ end;
 Procedure TDataset.Edit;
 
 begin
+  CheckBrowseMode;
   If Not CanModify then
     DatabaseError(SDatasetReadOnly,Self);
   If State in [dsedit,dsinsert] then exit;
@@ -1388,7 +1389,6 @@ begin
     Append;
     Exit;
     end;
-  CheckBrowseMode;
   DoBeforeEdit;
   If Not TryDoing(@InternalEdit,OnEditError) then
     exit;