Discussion :

[blondelle]

Je dessine un graphique avec les coordonnees contenues dans un StringGrid sur un Timage, jusque la pas de probleme, je definis arbitrairement la surface du TImage a deux fois la zone client, j'ai mon graphique sur le TImage avec des ascenseurs, quand le graphique sort de l'ecran il n'est pas perdu quand on revient a la position initiale on recupere le graphique, c'est ce que je cherchais, je peu donner une couleur au trait, et une epaisseur au trait.
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
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
double a;
double b;
double c;
double d;
int j;
        StringGrid1->Visible = false;
        Image1->Visible = true;
 
	Image1->Left = 0;
	Image1->Top = 0;
	Image1->Width = ClientWidth * 2;
	Image1->Height = ClientHeight * 2;
 
        Image1->Canvas->Pen->Color = clRed;
        Image1->Canvas->Pen->Width = 2;
for (j = 2; j < StringGrid1->RowCount - 1; j++)
{
        a = StringGrid1->Cells[14][j].ToDouble();
        b = StringGrid1->Cells[13][j].ToDouble();
        c = StringGrid1->Cells[14][j + 1].ToDouble();
        d = StringGrid1->Cells[13][j + 1].ToDouble();
 
  Image1->Canvas->MoveTo(a, b);
  Image1->Canvas->LineTo(c,d);  // X,Y
}
 
}

je cherche maintenant a imprimer le TImage en conservant ses proportions

[pottiez]

Pour l'imprimer, tu peut mettre le canvas du TImage dans le canvas d'un TPrinter, mais je sais pas si ca garde la proportion.

[blondelle]

J'ai fait quelques tentatives mais rien ne s'imprime pourtant l'imprimante est bien activee je n'arrive pas a trouver de ou cela vient.
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
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
        TPrinter *Prntr = Printer();
TRect Rect ;
        //Definir le coordonnée du Rect.
//TRect rectangle ;
Rect.left = 0 ;
Rect.top = 0 ;
Rect.right = 100 ;
Rect.bottom = 100 ;
 
        Image1->Width = Prntr->PageWidth;
        Image1->Height = Prntr->PageHeight;
 
        Prntr->BeginDoc();
//TRect r = Rect(left, top, right, bottom);
 
        Prntr->Canvas->Rectangle(Rect);
        Prntr->Canvas->StretchDraw(Rect,Image1->Picture->Bitmap);
   Prntr->Canvas->FrameRect(Rect);
  Prntr->Canvas->Refresh() ;
        Prntr->EndDoc();
}

les dimensions donnees sont juste pour la pour un essai je ferais les calculs necessaires apres pour dimensionner au plus juste l'image a imprimer

[blondelle]

j'arrive a imprimer c'est la dimension du rectangle qui etait trop petite.
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
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
        TPrinter *Prntr = Printer();
TRect Rect ;
        //Definir le coordonnée du Rect.
//TRect rectangle ;
Rect.left = 0 ;
Rect.top = 0 ;
Rect.right = 4800 ; // modif
Rect.bottom = 6826 ; // modif
 
        Image1->Width = Prntr->PageWidth;
        Image1->Height = Prntr->PageHeight;
 
        Prntr->BeginDoc();
//TRect r = Rect(left, top, right, bottom);
 
        Prntr->Canvas->Rectangle(Rect);
        Prntr->Canvas->StretchDraw(Rect,Image1->Picture->Bitmap);
   Prntr->Canvas->FrameRect(Rect);
  Prntr->Canvas->Refresh() ;
        Prntr->EndDoc();
}

il me reste a resoudre le respect des proportions du trace

[blondelle]

Quelqu'un aurait une idée pour démarrer mon impression il faut que j'imprime mon tracé en respectant les dimensions.
J'explique les données du StringGrid sont en valeur métrique (4.2m, 10.5m ...) pour les imprimer il faut que j'établis une relation valeur métrique du StingGrid et le tracé imprimante en pixels et la je bloque.
Le tracé que j'imprime actuellement est déforme d'environ de 50% sur l'axe horizontal.

[blondelle]

J'ai une solution un peu bancale je triche sur l'image ecran pour compenser la deformation apportee par l'imprimante.
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
double a;
double b;
double c;
double d;
int j;
double coef_Hauteur;
double coef_Largeur;
        StringGrid1->Visible = false;
        Image1->Visible = true;
 
coef_Largeur = Printer()->PageWidth;
coef_Largeur = (coef_Largeur /210);
coef_Hauteur = Printer()->PageHeight;
coef_Hauteur = (coef_Hauteur / 297);
coef_Largeur = 1 + (coef_Hauteur - coef_Largeur);
 
	Image1->Left = 10;
	Image1->Top = 50;
	Image1->Width = ClientWidth * 2;
	Image1->Height = ClientHeight * 2;
 
        Image1->Canvas->Pen->Color = clRed;
        Image1->Canvas->Pen->Width = 2;
 
for (j = 2; j < StringGrid1->RowCount - 1; j++)
{
        a = (StringGrid1->Cells[14][j].ToDouble()) * coef_Largeur; // X
        b = StringGrid1->Cells[13][j].ToDouble(); // Y
        c = StringGrid1->Cells[14][j + 1].ToDouble() * coef_Largeur; // X
        d = StringGrid1->Cells[13][j + 1].ToDouble(); // Y
 
  Image1->Canvas->MoveTo(a, b); // X,Y
  Image1->Canvas->LineTo(c,d);  // X,Y
}
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button6Click(TObject *Sender)
{
        StringGrid1->Visible = true;
        Image1->Visible = false;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 
        TPrinter *Prntr = Printer();
 
TRect Rect ;
        //Definir le coordonnée du Rect.
Rect.left = 0 ;
Rect.top = 0 ;
Rect.right = 4800 ; // NB pixels largeur
Rect.bottom = 6826 ; // NB pixels hauteur
 
        Image1->Width = Prntr->PageWidth;
        Image1->Height = Prntr->PageHeight;
 
        Prntr->BeginDoc();
 
        Prntr->Canvas->Rectangle(Rect);
        Prntr->Canvas->StretchDraw(Rect,Image1->Picture->Bitmap);
 
        Prntr->EndDoc();
 
}

en attendant de trouver mieux