graphe en utilisant un StringGrid et un TImage

**blondelle** · 05/07/2006, 23h12

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

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** · 06/07/2006, 06h53

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** · 06/07/2006, 07h26

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

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** · 06/07/2006, 23h37

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

**blondelle** · 07/07/2006, 12h51

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 :

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
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

**blondelle** · 07/07/2006, 20h14

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

graphe en utilisant un StringGrid et un TImage

C++Builder

Discussions similaires

Partager

Partager