Discussion :

[Baxter67]

Bonjours, jai un gros prob :
Apres l'impression d'une form qui fonctione plus ou moin bien, de temps en temps jai un freezze totale de l'application, quand je clique sur un bouton laffichage devien nimorte quoi.
Dans le gestionnaire de tache a ce moment la jai deux fois la meme application (mon exe) et tous les deux en status pas de reponse ... je ne comprend vraiment pas ...
Quesqu'un pourais maider ?

code d'impression :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
void ImprimerFormImpre(TForm *Form)
{
  TRect rd;
  TPrinter *Prntr = Printer();
 
        rd = Rect(0, 0, Prntr->PageWidth, Prntr->PageHeight);
        Graphics::TBitmap *Temp = new Graphics::TBitmap;
 
        Temp->Assign(Form->GetFormImage());
 
        //DESSIN DES CADRE
 
        //Enleve le bouton Imprimé
        Temp->Canvas->Brush->Color=clWhite;
        Temp->Canvas->FillRect(Rect(592,444,800,600));
 
        //Enleve le bouton Retour
        Temp->Canvas->Brush->Color = clWhite;
        Temp->Canvas->FillRect(Rect(8,444,185,564));
 
        Temp->Canvas->Font->Color = clBlack;
        Temp->Canvas->Font->Size = 12;
        Temp->Canvas->Font->Name = "Arial";
        Temp->Canvas->TextOutA(12, 468, "Visa Chef d'équipe :");
        Temp->Canvas->TextOutA(12, 508, "Visa Oenologue :");
 
        Temp->Canvas->Brush->Color = clWhite;
        Temp->Canvas->TextOutA(595, 468, FormatDateTime("ddd ' le ' d MMMM  yyyy", Now()));
        Temp->Canvas->TextOutA(595, 508, FormatDateTime("HH : mm",Now()));
 
        //pour eviter une page blanche ajouter la ligne suivante
        Temp->PixelFormat = pf24bit; // a adapter
        //TPixelFormat {pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom}
 
        Prntr->BeginDoc();
        Prntr->Canvas->StretchDraw(rd, Temp);
        Prntr->EndDoc();
}

Cordialement Baxter

PS et le plus bizare c'est que le prog na pas de rep mais que la com avec l'automate fonctione toujours, c'est a priori juste l'affichage qui est planté

[engrobel]

Je ne sais pas si cela va résoudre tous tes problèmes, mais je te conseille de détruire ta bitmap Temp après l'impression.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
delete Temp;

[Baxter67]

oui c vrai, je l'ai rajouter

Mais sa ne change rien

[blondelle]

Salut Baxter67
Pourquoi ne fait tu pas au niveau le la Form tes ajouts et suppression exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
void ImprimerFormImpre(TForm *Form)
{
BoutonImpression->Visible = false;
BoutonRetour->Visible = false;
  TRect rd;
  TPrinter *Prntr = Printer();
 
        rd = Rect(0, 0, Prntr->PageWidth, Prntr->PageHeight);
        Graphics::TBitmap *Temp = new Graphics::TBitmap;
 
        Temp->Assign(Form->GetFormImage());

tu retabli la propriete visible a la fin du code, idem pour les autres chaines que tu ecrit, comme cela tu ne transmet a l'imprimante qu'une copie d'ecran, a essayer

[Baxter67]

jai pas utiliser les propriété visible pour pas provoquer un clignotement du bouton au moment de limpression en automatique.

Mais je croie avoir trouver la solution.
Les form qui contienne les chart je laise toujours leur Visible a true.
Pour les affichier je fais Show pour les enlever je fais un show d'une autre, mais je fais jamais hide

Et a priori sa fonctionne.

Cordialement Baxter