Discussion :

[blondelle]

Bonjours
J'ai besoin de stocker des Metafichiers dans un Tlist, ca je pense avoir reussi, mon probleme c'est que je n'arrive pas a recuperer les Metafichiers stockes, voici le code

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
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Printers.hpp"
#include "Graphics.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 TMetafile *pMetafile;
 TList *LPages = new TList();
 for(int I = 0; I <=2; I++)
 {
 pMetafile = new TMetafile;
 pMetafile->Width = Printer()->PageWidth;
 pMetafile->Height = Printer()->PageHeight;
 LPages->Add(pMetafile);
 delete pMetafile;
 }
 }
//---------------------------------------------------------------------------

[sat83]

Il ne faut pas détruire (delete pMetafile) les TMetaFile dans la boucle, sinon ton TList ne contiendra que des pointeurs incorrect (des poiteurs sur des objets qui ne sont plus alloués). Il faut détruire tous les éléments crées au moment de détruite la TList LPages.

Ensuite, pour récupérer un élément de ton TList il faut faire :

Code :

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

TMetafile *mf = (TMetafile *)LPages->Items[i] ;

A noter : l'utilisation de TObjectList à la place de TList permet de s'affranchir de la libération finale des éléments contenu dans la liste (TObjectList gère lui même ses pointeurs)

[blondelle]

Merci sat83
J'ai reussi a imprimer un Metafile contenu dans un TList, voici le code

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
 
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Printers.hpp"
//#include "Graphics.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TRect R;
String S;
int P;
P = GetDeviceCaps(Printer()->Handle, LOGPIXELSX);
 TMetafile *pMetafile;
 TList *LPages = new TList();
 for(int I = 0; I <=2; I++)
 {
 pMetafile = new TMetafile;
 pMetafile->Width = Printer()->PageWidth;
 pMetafile->Height = Printer()->PageHeight;
 LPages->Add(pMetafile);
 }
 TMetafile *lpMetafile = (TMetafile *)LPages->Items[0];
 TMetafileCanvas *pCanvas = new TMetafileCanvas(lpMetafile, 0);
 // ecriture d'une premiere chaine
 pCanvas->Font->PixelsPerInch = P;
 pCanvas->Font->Size = 18;
 pCanvas->TextOut(10, 10, "Vous etes sur la page 1");
 R.Top = (Printer()->PageHeight) / 2;
 R.left = 0;
 R.Right = Printer()->PageWidth;
 R.Bottom = (Printer()->PageHeight);
 // ecriture d'une seconde chaine
 pCanvas->Font->Size = 22;
 S = "Ce texte est centre sur la page";
 DrawText(pCanvas->Handle, S.c_str(),S.Length(), &R, DT_CENTER && DT_VCENTER && DT_SINGLELINE);
delete pCanvas;
 
 Printer()->BeginDoc();
 Printer()->Canvas->Draw(0, 0, (TMetafile *)LPages->Items[0]);
 Printer()->EndDoc();
 }
//---------------------------------------------------------------------------

Il me reste a tester pour imprimer les autre Metafiles

[blondelle]

J'ai partiellement resolu mes problemes il me reste deux corrections a apporter
- je n'arrive pas a centrer le texte verticalement avec cette fonction

Code :

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

1
2
 
DrawText(pCanvas->Handle, S.c_str(),S.Length(), &R, DT_CENTER || DT_VCENTER || DT_SINGLELINE);

pour y arriver j'ai du tricher comme ceci

Code :

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

1
2
R = Rect(0, (Printer()->PageHeight) / 2, Printer()->PageWidth, Printer()->PageHeight);

Je n'ai pas trouve comment utiliser le canvas de chaque Metafichier stocke dans le TList

Code :

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

1
2
3
4
pCanvas = new TMetafileCanvas((TMetafile *)LPages->Items[0], 0);
TMetafileCanvas *pCanvas1 = new TMetafileCanvas((TMetafile *)LPages->Items[1], 0);
TMetafileCanvas *pCanvas2 = new TMetafileCanvas((TMetafile *)LPages->Items[2], 0);

Voici le code complet

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Printers.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TRect R;
String S;
int P;
P = GetDeviceCaps(Printer()->Handle, LOGPIXELSX);
 TMetafile *pMetafile;
 TMetafileCanvas *pCanvas;
 TList *LPages = new TList();
 for(int I = 0; I <=2; I++)
 {
 pMetafile = new TMetafile;
 pMetafile->Width = Printer()->PageWidth;
 pMetafile->Height = Printer()->PageHeight;
 LPages->Add(pMetafile);
 }
// if(pMetafile){ delete pMetafile; pMetafile=0; }
 pCanvas = new TMetafileCanvas((TMetafile *)LPages->Items[0], 0);
 // ecriture d'une premiere chaine
 pCanvas->Font->PixelsPerInch = P;
 pCanvas->Font->Size = 18;
 pCanvas->TextOut(10, 10, "Vous etes sur la page 1");
 // ecriture d'une seconde chaine
 pCanvas->Font->Size = 22;
 S = "Ce texte est centre sur la page";
 R = Rect(0, (Printer()->PageHeight) / 2, Printer()->PageWidth, Printer()->PageHeight);
 DrawText(pCanvas->Handle, S.c_str(),S.Length(), &R, DT_CENTER || DT_VCENTER || DT_SINGLELINE);
delete pCanvas;
 TMetafileCanvas *pCanvas1 = new TMetafileCanvas((TMetafile *)LPages->Items[1], 0);
 InflateRect(&R, -300, -300);
 pCanvas1->Ellipse(R);
 pCanvas1->Pen->Color = clBlue;
 InflateRect(&R, -200, -200);
 pCanvas1->Ellipse(R);
 pCanvas1->Pen->Color = clGreen;
 InflateRect(&R, -200, -200);
 pCanvas1->Ellipse(R);
 pCanvas1->Pen->Color = clRed;
 InflateRect(&R, -200, -200);
 pCanvas1->Ellipse(R);
 InflateRect(&R, -200, -200);
 pCanvas1->Rectangle(R);
 delete pCanvas1;
 HDC I;
 I = GetDC(0); // Obtention d'un handle de device context sur l'écran
 TMetafileCanvas *pCanvas2 = new TMetafileCanvas((TMetafile *)LPages->Items[2], 0);
 StretchBlt(pCanvas2->Handle, 0, 0,
             Printer()->PageWidth, Printer()->PageHeight,
             I, 0, 0,
             Screen->Width, Screen->Height,
             SRCCOPY);
ReleaseDC(Handle, I); // ne pas oublier de relâcher le HDC
PaintBox1->Tag = 0;
 delete pCanvas2;
 Printer()->BeginDoc();
 Printer()->Canvas->Draw(0, 0, (TMetafile *)LPages->Items[0]);
 Printer()->NewPage();
 Printer()->Canvas->Draw(0, 0, (TMetafile *)LPages->Items[1]);
// Printer()->NewPage();
// Printer()->Canvas->Draw(0, 0, (TMetafile *)LPages->Items[2]);
 Printer()->EndDoc();
 }
//---------------------------------------------------------------------------

[blondelle]

Le probleme du Canvas est resolu, il me reste celui du centrage vertical du texte
Voici le code corrige

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Printers.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TRect R;
String S;
int P;
P = GetDeviceCaps(Printer()->Handle, LOGPIXELSX);
 TMetafile *pMetafile;
 TMetafileCanvas *pCanvas;
 TList *LPages = new TList();
 for(int I = 0; I <=2; I++)
 {
 pMetafile = new TMetafile;
 pMetafile->Width = Printer()->PageWidth;
 pMetafile->Height = Printer()->PageHeight;
 LPages->Add(pMetafile);
 }
// if(pMetafile){ delete pMetafile; pMetafile=0; }
 pCanvas = new TMetafileCanvas((TMetafile *)LPages->Items[0], 0);
 // ecriture d'une premiere chaine
 pCanvas->Font->PixelsPerInch = P;
 pCanvas->Font->Size = 18;
 pCanvas->TextOut(10, 10, "Vous etes sur la page 1");
 // ecriture d'une seconde chaine
 pCanvas->Font->Size = 22;
 S = "Ce texte est centre sur la page";
 R = Rect(0, (Printer()->PageHeight) / 2, Printer()->PageWidth, Printer()->PageHeight);
 DrawText(pCanvas->Handle, S.c_str(),S.Length(), &R, DT_CENTER || DT_VCENTER || DT_SINGLELINE);
 delete pCanvas;
 pCanvas = new TMetafileCanvas((TMetafile *)LPages->Items[1], 0);
 InflateRect(&R, -300, -300);
 pCanvas->Ellipse(R);
 pCanvas->Pen->Color = clBlue;
 InflateRect(&R, -200, -200);
 pCanvas->Ellipse(R);
 pCanvas->Pen->Color = clGreen;
 InflateRect(&R, -200, -200);
 pCanvas->Ellipse(R);
 pCanvas->Pen->Color = clRed;
 InflateRect(&R, -200, -200);
 pCanvas->Ellipse(R);
 InflateRect(&R, -200, -200);
 pCanvas->Rectangle(R);
 delete pCanvas;
 HDC I;
 I = GetDC(0); // Obtention d'un handle de device context sur l'écran
 pCanvas = new TMetafileCanvas((TMetafile *)LPages->Items[2], 0);
 StretchBlt(pCanvas->Handle, 0, 0,
             Printer()->PageWidth, Printer()->PageHeight,
             I, 0, 0,
             Screen->Width, Screen->Height,
             SRCCOPY);
 ReleaseDC(Handle, I); // ne pas oublier de relâcher le HDC
 PaintBox1->Tag = 0;
 delete pCanvas;
 Printer()->BeginDoc();
 Printer()->Canvas->Draw(0, 0, (TMetafile *)LPages->Items[0]);
 Printer()->NewPage();
 Printer()->Canvas->Draw(0, 0, (TMetafile *)LPages->Items[1]);
 Printer()->NewPage();
 Printer()->Canvas->Draw(0, 0, (TMetafile *)LPages->Items[2]);
 Printer()->EndDoc();
 }
//---------------------------------------------------------------------------

[Patrick Seuret]

Il faut d'abord calculer la place qu'occupe le texte et centrer celui-ci dans le rectangle:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
void DrawText(TCanvas* canvas,
                             const char* text,
                             EFlowHorizontalAlign hAlign,
                             EFlowVerticalAlign vAlign,
                              TRect& R) {
const Word Aligns[]={DT_LEFT, DT_CENTER, DT_RIGHT};
TRect tempR=R;
Word  flags = DT_EXPANDTABS | DT_WORDBREAK | Aligns[hAlign];
DrawText(canvas->Handle,text,-1,&tempR,flags | DT_CALCRECT);
tempR=AdjustTextRect(tempR,R,hAlign,vAlign);
DrawText(canvas->Handle,text,-1,&tempR,flags);
}

avec

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
40
41
42
43
44
 
//! Horizontal alignement of the content
typedef enum {
               fohLeft=0,         //!< Align text on the left
               fohCenter=1,       //!< Center text
               fohRight=2        //!< Align text on the right
             } EHorizontalAlign;
 
//! Vertical alignement of the content
typedef enum {
               fovTop=0,          //!< Align text on the top
               fovMiddle=1,       //!< Center text vertically
               fovBottom=2       //!< Align text on the bottom
             } EVerticalAlign;
 
//! Adjuste position and the size of the rectangle to align text on "bounds" rect
/*! \param R      is the size of the text to display
    \param bounds is the limit of the rectangle to align the text
    \param hPos   is the horizontal alignement of the R box in the bounds
    \param vPos   is the verticl alignement of the R box in the bounds
    \return R if the adjusted position of the rectangle where to draw the text
                 to align it as required relatively to the bounds rectangle
 */
TRect CFlowPainter::AdjustTextRect(TRect R,
                                   const TRect& bounds,
                                   EHorizontalAlign hPos,
                                   EVerticalAlign vPos) const {
 
  int dX=bounds.right  - bounds.left + R.left - R.right;
  int dY=bounds.bottom - bounds.top  + R.top  - R.bottom;
 
  if (dX<0) R.right +=dX;
  if (dY<0) R.bottom+=dY;
  if ((dX<0)||(hPos==fohLeft)) dX=0;
  if ((dY<0)||(vPos==fovTop))  dY=0;
  if (hPos==fohCenter) dX=dX/2;
  if (vPos==fovMiddle) dY=dY/2;
  dX+=bounds.left-R.left;
  dY+=bounds.top -R.top;
  R.left+=dX;   R.right +=dX;
  R.top +=dY;   R.bottom+=dY;
 
  return R;
}