Mejorado el copy-paste en el grid. Ahora es más rápido y sale el cursor de reloj de arena cuando se está realizando el proceso.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@945 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Base/Utiles/uGridClipboardUtils.pas

@@ -599,6 +599,8 @@ begin
   if not Assigned(AGrid) then
     raise Exception.Create('Grid no asignado (CopiarSeleccionGridAlPortapapelesTXT)');
 
+  ShowHourglassCursor;
+  try
     RegistrarFormatos;
 
     AGridStatus := TcxGridStatus.Create(TcxGridDBTableView(AGrid.ActiveView));
@@ -620,6 +622,9 @@ begin
       AGridStatus.Restore(TcxGridDBTableView(AGrid.ActiveView));
       FreeAndNil(AGridStatus);
     end;
+  finally
+    HideHourglassCursor;
+  end;
 end;
 
 
@@ -771,6 +776,8 @@ begin
     2. CF_TEXT -> tratar y pegar texto plano
   }
 
+  ShowHourglassCursor;
+  try
     RegistrarFormatos;
 
     if Clipboard.HasFormat(CF_FACTUGES) then
@@ -784,6 +791,9 @@ begin
       PegarTextoDesdePortapapeles(AGrid);
       Exit;
     end;
+  finally
+    HideHourglassCursor;
+  end;
 end;
 
 end.