Array
(
)

minha aplicação não fecha

Erivando
   - 08 abr 2006

Bom Dia!

Criei meu sistema em delphi 7 e usava em Win98se, mas agora copilei o meu projeto em delphi 2006 e estou usando em Windows XP Professional,

e Não estou entendo, em todas os forms (Janelas) da minha aplicação após eu imprimir qualquer relatorio, o botão de imprimir ficar sem funcionar e o botão de fechar, porém os botões onde eu faço filtros sql funcionam direitinho, O que será que está acontecendo!!!!

Estou em apuros, preciso de uma força pessoal!!!!!


ramos


Marco Salles
   - 08 abr 2006


Citação:
imprimir qualquer relatorio,


o que voce usa para imprimir os relatórios ???


Erivando
   - 08 abr 2006


Citação:

Citação:
imprimir qualquer relatorio,


o que voce usa para imprimir os relatórios ???


Amigo Marcos,

estou usando desta forma para abrir o form de impressão através de um Preview do QuickReport personalizado:


Citação:

if FrmRelCarne <> Nil then Exit;
FrmRelCarne := TFrmRelCarne.Create(self);
FrmRelCarne.QuickRep1.OnPreview := FrmPrincipal.CustomPreview;
FrmRelCarne.QuickRep1.Preview;
FrmRelCarne.Free;
FrmRelCarne:= Nil;


e para fechar o form onde fica o botão imprimir uso:


Citação:
Close;


Será q o erro estar aí?. Também já tentei de outras formas mas fica do mesmo geito.


Erivando
   - 08 abr 2006


Citação:

Citação:
imprimir qualquer relatorio,


o que voce usa para imprimir os relatórios ???



Olha só, quando eu não usei o Preview personalizado o meu form fechou normamente.

assim:

FrmRelAniv.QuickRep1.Preview;

Mas qual é o erro no Preview personalizado?


Marco Salles
   - 08 abr 2006

descuple a minha ignorancia , mas eu não consigo entender o que voce quer com esta instrução


Citação:
FrmRelCarne.QuickRep1.OnPreview := FrmPrincipal.CustomPreview;


quando o correto (de praxi) seria usar este evento para atribuir <digamos assim > o Relatorio para o QrPreview

não da para saber o que voce definiu no método .CustomPreview do form principal para te dar uma posição mais clara do que pode estar ocorrendo

Pelo menos para mim é muit estranho


Erivando
   - 08 abr 2006


Citação:
descuple a minha ignorancia , mas eu não consigo entender o que voce quer com esta instrução


Citação:
FrmRelCarne.QuickRep1.OnPreview := FrmPrincipal.CustomPreview;


quando o correto (de praxi) seria usar este evento para atribuir <digamos assim > o Relatorio para o QrPreview

não da para saber o que voce definiu no método .CustomPreview do form principal para te dar uma posição mais clara do que pode estar ocorrendo

Pelo menos para mim é muit estranho


Em .CustomPreview que mantenho lá na unit do form principal é assim:
Esse é aquele tal de Preview Personalizado que tem pela net, mas parece que ele não funciona bem com Win XP, né!


Citação:

procedure TFrmPrincipal.CustomPreview(Sender: TObject);
begin
FrmPreview := TfrmPreview.Create(self);
FrmPreview.QRPreview1.QRPrinter := TQRPrinter(Sender);
FrmPreview.Show;
end;

e quando eu quero abrir o meu form do relatorio é chamado assim:

Try
FrmRelAniv:=TFrmRelAniv.Create(nil);
FrmRelAniv.QuickRep1.OnPreview := FrmPrincipal.CustomPreview;
FrmRelAniv.QuickRep1.Preview;
finally
FrmRelAniv.Release;


O q poderá sér?


Marco Salles
   - 08 abr 2006


Citação:
Em .CustomPreview que mantenho lá na unit do form principal é assim:
Esse é aquele tal de Preview Personalizado que tem pela net,


porque voce não usa o proprio componente QrPreview que vem na Paleta QReport ao inves de pegar pela net ???? ele voce coloca tudo em portugues


Erivando
   - 08 abr 2006


Citação:

Citação:
Em .CustomPreview que mantenho lá na unit do form principal é assim:
Esse é aquele tal de Preview Personalizado que tem pela net,


porque voce não usa o proprio componente QrPreview que vem na Paleta QReport ao inves de pegar pela net ???? ele voce coloca tudo em portugues



Citação:

Amigo, Marco Salles

estou usando a nova versão do QuickReport 4.03 , no QRPreview desta vesão não dar pra fazer isto não, pode ser via código, mas como?



Marco Salles
   - 09 abr 2006

Ha outras saidas , sem usar o Qrpreview , se for o caso para personalizar
os Hints e alguns nomes do butoes se for o caso

1)alterar o arquivo Dfm... Aqui no forum dado algumas soluçoes desta natureza por exemplo em
http://forum.devmedia.com.br/viewtopic.php?t=12487&highlight=qrpreview&sid=d39740791499ea9ccfabe66351ead704
ou
http://forum.devmedia.com.br/viewtopic.php?t=38043&start=0&postdays=0&postorder=asc&highlight=prev+dfm


2)existe uma solução usando um component Timer , que quando o relatorio for gerado o seu evento é disparado e ele muda em rum-time
todos os hints e caption que necessita.. Ainda da suporte ao usuário
pre-definir quais os butões que estarão habilitados
Voce pode ver um exemplo disso em

http://www.delphibr.com.br/artigos/controlandopreview.php


3)é usar um componente QrPreview dentro de um form e inserir vários butões e nesses butões definir os métodos
No site , tem otimas sugestões como se deve usar este componente
Eu particularmente prefiro esta ultima , porque tenho muito controle , alem de poder personalizar tudo

Agora o que estou sem entender é voce falar que :
estou usando a nova versão do QuickReport 4.03 , no QRPreview desta vesão não dar pra fazer isto não, pode ser via código, mas como?

Não dá ??? como assim não dá... Não existe este componente na paleta do QrReport desta versão .. Geralmente ele fica la para tras e vem com o icone busca.. Tem certeza que não exsite

Outra coisa :

Citação:
Em .CustomPreview que mantenho lá na unit do form principal é assim:
Esse é aquele tal de Preview Personalizado que tem pela net, mas parece que ele não funciona bem com Win XP, né!

E sem ele voce dis que funciona... Então o porblema esta nele.... Personalize voce mesmo o seu relatório.