graphe en utilisant un StringGrid et un TImage

Version imprimable

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:

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

06/07/2006, 00h14
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.

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:

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

j'arrive a imprimer c'est la dimension du rectangle qui etait trop petite.
le code

Code:

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

06/07/2006, 21h31
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.

J'ai une solution un peu bancale je triche sur l'image ecran pour compenser la deformation apportee par l'imprimante.
le code

Code:

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

Apres beaucoup de recherches une solution tout aussi bancale que la precedente.
Je trace un graphique sur une Image1 visible pour l'impression ecran sans corrections.
Je trace le meme graphique corrige sur une Image2 invisible pour l'impression papier.
le resultat n'est pas parfait mais c'est pas mal.
le code

Code:

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
80
81
82
83
84
85
86
87
88
89
 
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 /297);
coef_Hauteur = Printer()->PageHeight;
coef_Hauteur = (coef_Hauteur / 210);
 
	Image1->Left = 10;
	Image1->Top = 50;
	Image1->Width = ClientWidth * 2;
	Image1->Height = ClientHeight * 2;
                Image1->Canvas->Pen->Color = clRed;
                Image1->Canvas->Pen->Width = 2;
// graphique ecran
for (j = 2; j < StringGrid1->RowCount - 1; j++)
{
        a = StringGrid1->Cells[14][j].ToDouble(); // X
        b = StringGrid1->Cells[13][j].ToDouble(); // Y
        c = StringGrid1->Cells[14][j + 1].ToDouble(); // X
        d = StringGrid1->Cells[13][j + 1].ToDouble(); // Y
 
  Image1->Canvas->MoveTo(a, b); // X,Y
  Image1->Canvas->LineTo(c,d);  // X,Y
}
 
	Image2->Left = 10;
	Image2->Top = 50;
	Image2->Width = ClientWidth * 2;
	Image2->Height = ClientHeight * 2;
                Image2->Canvas->Pen->Color = clRed;
                Image2->Canvas->Pen->Width = 6;
// graphique imprimante
double zoom;
zoom = 25.9;
for (j = 2; j < StringGrid1->RowCount - 1; j++)
{
        a = ((StringGrid1->Cells[14][j].ToDouble() / 250) * coef_Hauteur) * zoom; // X
        b = ((StringGrid1->Cells[13][j].ToDouble() / 250) * coef_Largeur) * zoom; // Y
        c = ((StringGrid1->Cells[14][j + 1].ToDouble() / 250) * coef_Hauteur) * zoom; // X
        d = ((StringGrid1->Cells[13][j + 1].ToDouble() / 250) * coef_Largeur) * zoom; // Y
 
  Image2->Canvas->MoveTo(a, b); // X,Y
  Image2->Canvas->LineTo(c,d);  // X,Y
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button6Click(TObject *Sender)
{
        StringGrid1->Visible = true;
        Image1->Visible = false;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
int Hauteur;
int Largeur;
        TPrinter *Prntr = Printer();
 
TRect Rect ;
        //Definir le coordonnée du Rect.
Rect.left = 0;
Rect.top = 0;
Rect.right = Prntr->PageWidth; // NB pixels largeur
Rect.bottom = Prntr->PageHeight; // NB pixels hauteur
 
Image2->Width = Prntr->PageWidth;
Image2->Height = Prntr->PageHeight;
 
        Prntr->BeginDoc();
 
Prntr->Canvas->Rectangle(Rect);
Prntr->Canvas->StretchDraw(Rect,Image2->Picture->Bitmap);
 
        Prntr->EndDoc();
 
}

Quand je supperpose mon graphique avec le graphique sortie par le GPS il y a peu de differences

07/07/2006, 20h14
blondelle

J'ai un probleme avec une autre imprimante le graphique n'est pas a la bonne dimension c'est vraiment pénible l'impression