Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@945 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2009-06-02 10:52:07 +00:00
parent 126cccf82f
commit 5918d9fa8d
1 changed files with 34 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Source/Base/Utiles/uGridClipboardUtils.pas
View File

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