Ver Mensaje Individual
  #5  
Antiguo 15-05-2018
manelb manelb is offline
Miembro
 
Registrado: mar 2017
Posts: 280
Reputación: 8
manelb Va por buen camino
Smile

La solución perfecta es la que te ha comentado Casimiro….

De todas formas, en algunos casos determinados, nosotros tuvimos algunos problemas aleatorios que se solucionaron volviendo a poner la vista previa con Preview.
Los problemas ocurrían, sobre todo, en el momento de imprimir o exportar a pdf documentos que contenían algún logo o imagen de fondo.
La imagen simplemente no se imprimía.

Para resolver el problema que tu comentas creamos una función tal que:

Código Delphi [-]
procedure RestaurarListado(Sender : TObject);
var
  F: TForm;
begin
  F := TForm(Application.FindComponent('qrStandardPreview'));
  if Assigned(F) then
     if F.WindowState = wsMinimized then
        F.WindowState := wsMaximized
     else
        F.BringToFront;
end;

y la llamamos en el onactivate de la pantalla que llama al listado.
De esta forma, si minimizas el listado, se produce un efecto rebote y se vuelve a situar en primer plano.

Chapuzilla ?? Por supuesto, pero nos solucionó el problema !!

Saludos a todos.
Responder Con Cita