* Applied patch from Luiz Americo not to send events when setting datasource to same value again (bug #21906)

git-svn-id: trunk@21158 -

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

@@ -245,6 +245,8 @@ end;
 Procedure TDataLink.SetDataSource(Value : TDatasource);
 
 begin
+  if FDataSource = Value then
+    Exit;
   if not FDataSourceFixed then
     begin
     if Assigned(DataSource) then