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

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

@ -599,26 +599,31 @@ 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)');
RegistrarFormatos; ShowHourglassCursor;
AGridStatus := TcxGridStatus.Create(TcxGridDBTableView(AGrid.ActiveView));
Clipboard.Open;
try try
CopiarGridAlPortapapelesTXT(AGrid); RegistrarFormatos;
CopiarGridAlPortapapelesRTF(AGrid);
CopiarGridAlPortapapelesHTML(AGrid);
AMemStream := TMemoryStream.Create; AGridStatus := TcxGridStatus.Create(TcxGridDBTableView(AGrid.ActiveView));
Clipboard.Open;
try try
SaveGridRowsToStream(TcxGridDBTableView(AGrid.ActiveView), AMemStream, AGrid.ActiveView.Name, True); CopiarGridAlPortapapelesTXT(AGrid);
CopyStreamToClipboard(CF_FACTUGES, AMemStream); CopiarGridAlPortapapelesRTF(AGrid);
CopiarGridAlPortapapelesHTML(AGrid);
AMemStream := TMemoryStream.Create;
try
SaveGridRowsToStream(TcxGridDBTableView(AGrid.ActiveView), AMemStream, AGrid.ActiveView.Name, True);
CopyStreamToClipboard(CF_FACTUGES, AMemStream);
finally
FreeAndNil(AMemStream);
end;
finally finally
FreeAndNil(AMemStream); Clipboard.Close;
AGridStatus.Restore(TcxGridDBTableView(AGrid.ActiveView));
FreeAndNil(AGridStatus);
end; end;
finally finally
Clipboard.Close; HideHourglassCursor;
AGridStatus.Restore(TcxGridDBTableView(AGrid.ActiveView));
FreeAndNil(AGridStatus);
end; end;
end; end;
@ -771,18 +776,23 @@ begin
2. CF_TEXT -> tratar y pegar texto plano 2. CF_TEXT -> tratar y pegar texto plano
} }
RegistrarFormatos; ShowHourglassCursor;
try
RegistrarFormatos;
if Clipboard.HasFormat(CF_FACTUGES) then if Clipboard.HasFormat(CF_FACTUGES) then
begin begin
PegarSeleccionGridDesdePortapapeles(AGrid); PegarSeleccionGridDesdePortapapeles(AGrid);
Exit; Exit;
end; end;
if Clipboard.HasFormat(CF_TEXT) then if Clipboard.HasFormat(CF_TEXT) then
begin begin
PegarTextoDesdePortapapeles(AGrid); PegarTextoDesdePortapapeles(AGrid);
Exit; Exit;
end;
finally
HideHourglassCursor;
end; end;
end; end;