fix change column order in RxDBGrid column config dialog

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2193 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/rx/rxdbgrid.pas

@@ -418,6 +418,8 @@ type
     //storage
     procedure OnIniSave(Sender: TObject);
     procedure OnIniLoad(Sender: TObject);
+
+    procedure CleanDSEvent;
   protected
     function DatalinkActive: boolean;
     procedure DefaultDrawCellA(aCol, aRow: integer; aRect: TRect;
@@ -1720,6 +1722,15 @@ begin
   end;
 end;
 
+procedure TRxDBGrid.CleanDSEvent;
+begin
+  if Assigned(DataSource) and Assigned(DataSource.DataSet) then
+  begin
+    if DataSource.DataSet.OnPostError = @ErrorPo then
+      DataSource.DataSet.OnPostError := F_EventOnPostError;
+  end;
+end;
+
 procedure TRxDBGrid.DefaultDrawCellA(aCol, aRow: integer; aRect: TRect;
   aState: TGridDrawState);
 begin
@@ -3189,6 +3200,8 @@ end;
 
 destructor TRxDBGrid.Destroy;
 begin
+  CleanDSEvent;
+
   FreeAndNil(FRxDbGridLookupComboEditor);
   FreeAndNil(FRxDbGridDateEditor);
   FreeAndNil(FMarkerDown);