Dessiner un histogramme dans un autre TForm

salut,

je dessine un histogramme dans un TImage d'une autre forme, mon souci est que je ne peux voir mon histogramme en appelant la deuxième forme par Show(), le problème ne se pose pas si je mets ce code dans un bouton de la deuxième forme.

Merci pour votre aide.

Je n'ai pas compris ton problème.
Que souhaite-tu faire exactement?

salut,

merci sat83 pour votre attention,

j'ai codé le dessin de l'histogramme dans un bouton de TForm1 et je désir l'afficher dans un TImage de TForm2

Code:

---

1 2 3 4 5 6 7 8 9 10

void __fastcall TForm1::HistogrammeClick(TObject *Sender) { //... je mets ici le code du dessin de l'histogramme dans un TImage de TForm2   Form2->Show();       }

---

je veux que l'histogramme dessiné sur le TImage de la Form2 s'affiche une foi appeler TForm2.

j'espère que j'étais claire :)

merci d'avance

Je ne comprend pas le problème avec ton code actuel? Désolé :(

Citation:

---

Je ne comprend pas le problème avec ton code actuel? Désolé

---

:pleure: merci quand même crayon.

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

void __fastcall TPreTraitement::AfficherHistogrammeClick(TObject *Sender) {     // Dessin des axes de l'histogramme Histogramme->Canvas->Pen->Color=clBlack; Histogramme->Canvas->MoveTo(Histogramme->ImageH->Left,70); Histogramme->Canvas->LineTo(Histogramme->ImageH->Left,300);   Histogramme->Canvas->MoveTo(Histogramme->ImageH->Left,300); Histogramme->Canvas->LineTo(Histogramme->ImageH->Width,300);     // Dessin de l'histogramme ... Histogramme->Canvas->Pen->Color=clRed; for(int i=0;i<255; i++) { Histogramme->Canvas->MoveTo(i+Histogramme->ImageH->Left,300);       Histogramme->Canvas->LineTo(i+Histogramme->ImageH->Left, 300-PreTraitement->H[i]/100);   }   Histogramme->Show();   }

---

l'histogramme est dessiné dans ImageH de la 2 eme forme nommée Histogramme. mon souci est que ImageH ne s'affiche pas en exécutant le code ci dessus

Merci d'avance

Citation:

---

Envoyé par SmileSoft

l'histogramme est dessiné dans ImageH de la 2 eme forme nommée Histogramme.

---

Pourtant tu as l'air de dessiné directement sur le Canvas de ta Form (Histogramme->Canvas)???:

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

// Dessin des axes de l'histogramme Histogramme->ImageH->Canvas->Pen->Color=clBlack; Histogramme->ImageH->Canvas->MoveTo(Histogramme->ImageH->ImageH->Left,70); Histogramme->ImageH->Canvas->LineTo(Histogramme->ImageH->ImageH->Left,300);   Histogramme->ImageH->Canvas->MoveTo(Histogramme->ImageH->ImageH->Left,300); Histogramme->ImageH->Canvas->LineTo(Histogramme->ImageH->ImageH->Width,300);     // Dessin de l'histogramme ... Histogramme->ImageH->Canvas->Pen->Color=clRed; for(int i=0;i<255; i++) { Histogramme->ImageH->Canvas->MoveTo(i+Histogramme->ImageH->ImageH->Left,300);       Histogramme->ImageH->Canvas->LineTo(i+Histogramme->ImageH->ImageH->Left, 300-PreTraitement->H[i]/100);   }   Histogramme->ImageH->Show();   }

---

Citation:

---

Envoyé par kmaniche

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

// Dessin des axes de l'histogramme Histogramme->ImageH->Canvas->Pen->Color=clBlack; Histogramme->ImageH->Canvas->MoveTo(Histogramme->ImageH->ImageH->Left,70); Histogramme->ImageH->Canvas->LineTo(Histogramme->ImageH->ImageH->Left,300);   Histogramme->ImageH->Canvas->MoveTo(Histogramme->ImageH->ImageH->Left,300); Histogramme->ImageH->Canvas->LineTo(Histogramme->ImageH->ImageH->Width,300);     // Dessin de l'histogramme ... Histogramme->ImageH->Canvas->Pen->Color=clRed; for(int i=0;i<255; i++) { Histogramme->ImageH->Canvas->MoveTo(i+Histogramme->ImageH->ImageH->Left,300);       Histogramme->ImageH->Canvas->LineTo(i+Histogramme->ImageH->ImageH->Left, 300-PreTraitement->H[i]/100);   }   Histogramme->ImageH->Show();   }

---

---

je ne comprends pas cette duplication sur ImageH :koi:

Salut,
ce n'est pas une duplication de code, si ton TImage est sur la fenêtre Histogramme et qu'il s'appelle ImageH, alors pour dessiner dans ce TImage tu dois bien y accéder par le code Histogramme->ImageH.
Maintenant il faut faire attention à ce que ton TImage soit assez étendu sur la fenêtre pour afficher toute ton image ;)

Salut !

Ne serait-ce pas une histoire de taille du bitmap du TImage ?

A plus !

Citation:

---

Envoyé par pottiez

Salut,
ce n'est pas une duplication de code, si ton TImage est sur la fenêtre Histogramme et qu'il s'appelle ImageH, alors pour dessiner dans ce TImage tu dois bien y accéder par le code Histogramme->ImageH.

---

je parlais de cette ligne de code par ex:

Citation:

---

Envoyé par kmaniche

Code:

---

1 2 3 4 5

... Histogramme->ImageH->Canvas->MoveTo(Histogramme->ImageH->ImageH->Left,70); ... }

---

---

Citation:

---

Maintenant il faut faire attention à ce que ton TImage soit assez étendu sur la fenêtre pour afficher toute ton image

---

Citation:

---

Envoyé par henderson

Salut !

Ne serait-ce pas une histoire de taille du bitmap du TImage ?

A plus !

---

ImageH n'est pas étendu sur toute la fenêtre, si je mets ce même code dans un bouton de la fenêtre Histogramme "contenant ImageH" le problème ne se pose pas et l'histogramme s'affiche. je ne veux pas cette solution pour mon cas je préfère mettre le code dans un bouton "AfficherHistogramme" de la Forme principale "PreTraitement" qui me permet d'afficher dirrectement l'histogramme comme je l'avais décris précédemment.

Est-ce que tu as résolu ton problème ?

Citation:

---

Envoyé par kmaniche

Est-ce que tu as résolu ton problème ?

---

non :roll:

je demande est ce que mon problème est clair?

cher 123 viva ...

Ton problème est simple :

1. Tu crées une Fiche (Form1) principale dans laquelle tu ajoutes un bouton et une image nommée ImageSource
2. Tu ajoutes une deuxième fiche (Form2) sur laquelle tu ajoutes un TImage nommé Image_Histogramme de dimension :
Width = pas moins de 260.
Height = comme tu veux mais qui soit > 100 mais < Width (pour faire joli)

3. Apartir du bouton que tu as créé dans la fiche principale, tu code le prgramme nécessaire à la création de l'histogramme :

Genre :

Code:

---

1 2 3 4 5 6

// Calcul de l'histogramme int v[255] = 0 ; for(int i = 0 ; i < ImageSource -> Picture -> Height ; i++) for(int j = 0 ; j < ImageSource -> Picture -> Width ; j++) v[int(ImageSource -> Canvas -> Pixels[j][i]&0xFF)] ++ ;

---

4. Toujours dans le code du même bouton, tu traces le contenu du vecteur v dans le canevas de l'image Image_Histogramme de la form2 :

Code:

---

1 2 3 4

... ... Form2 -> Image_Histogramme -> Canvas ....

---

NB: Faire une mise à l'échelle, car le max dans le vecteur peut être supérieur à celui du Height de Image_Histogramme

5. Enfin il ne te restes plus que afficher la form2

Citation:

---

Envoyé par kmaniche

cher 123 viva ...

---

viva quoi? :D

en fait je ne demande pas le calcul de l'histogramme je le fais ultérieurement et il marche très bien et meme ce code marche si je le met dans un bouton ou fonction de la forme2, chose qui gène l'user qui doit d'abord afficher la forme2 puis cliquer sur un bouton pour afficher l'histogramme, pourquoi je n'arrive pas à l'afficher directement en un click à partir de la forme principale puis que le code est bon??

>> saadane

OK, dans ce cas, au lieu de mettre le code dans un bouton de la deuxième fiche, tu le mets directement dans le OnShow de la fiche ? Logique non ...

Citation:

---

Envoyé par kmaniche

>> saadane

---

non, ça ne va pas :aie:

Citation:

---

OK, dans ce cas, au lieu de mettre le code dans un bouton de la deuxième fiche, tu le mets directement dans le OnShow de la fiche ? Logique non ...

---

je l'ai déjà fais et ça n'a pas marché :(
le truc est que BCB m'oblige à faire un évènement OnClick sur la forme appelée pour pouvoir exécuter mon code :roll:

OK, on reprends dès le début, donnes-nous le programme que tu as fais, principalement celui de la fiche principale et celle de l'histogramme.

je calcule l'histogramme en // avec la transformation en niv de gris de l'image couleur chargée

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

void __fastcall PreTraitement::NivGrisClick(TObject *Sender) { Srce = ImageOriginale->Picture->Bitmap; Dest=ImageOriginale->Picture->Bitmap; int w = Srce->Width ; int h = Srce->Height ;   Dest->Width = w; Dest->Height = h;   for(int y = 0; y < h; y++) { S = (jRgb*)Srce->ScanLine[y]; D = (jRgb*)Dest->ScanLine[y];     for(int x = 0; x < w; x++) { b = (Byte)( (S[x].Blue + S[x].Green + S[x].Red) / 3 );   //on en profitte pour calculer l'histogramme de l'image en niv de gris   H[b]++;     D[x].Blue = b; D[x].Green = b; D[x].Red = b; } }   ImageOriginale->Repaint(); ImageOriginale->Picture->SaveToFile("C:\\Gris.bmp");   }

---

et voilà le code du bouton avec le quel je dessine l'histogramme

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

void __fastcall TPreTraitement::AfficherHistogrammeClick(TObject *Sender) {     // Dessin des axes de l'histogramme Histogramme->Canvas->Pen->Color=clBlack; Histogramme->Canvas->MoveTo(Histogramme->ImageH->Left,70); Histogramme->Canvas->LineTo(Histogramme->ImageH->Left,300);   Histogramme->Canvas->MoveTo(Histogramme->ImageH->Left,300); Histogramme->Canvas->LineTo(Histogramme->ImageH->Width,300);     // Dessin de l'histogramme ... Histogramme->Canvas->Pen->Color=clRed; for(int i=0;i<255; i++) { Histogramme->Canvas->MoveTo(i+Histogramme->ImageH->Left,300);       Histogramme->Canvas->LineTo(i+Histogramme->ImageH->Left, 300-PreTraitement->H[i]/100);   }   Histogramme->Show();   }

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

//Déclarations   Graphics::TBitmap *Srce; Graphics::TBitmap *Dest ;   Byte b;   int h,w;   int H[256];   class jRgb { public: Byte Blue; Byte Green; Byte Red;   };   jRgb *S; jRgb *D;

---

Tu devrais peut être analyser ton code à tête reposée :

Code:

---

Histogramme->Canvas->MoveTo(Histogramme->ImageH->Left,70);

---

Avec la ligne en rouge, tu demande à dessiner sur le canvas de la fiche (form) et en bleu tu lis la position du composant ImageH :koi:

Normalement, le dessin s'effectue directement sur le composant ImageH non ?

Citation:

---

Envoyé par kmaniche

Tu devrais peut être analyser ton code à tête reposée :

Code:

---

Histogramme->Canvas->MoveTo(Histogramme->ImageH->Left,70);

---

Avec la ligne en rouge, tu demande à dessiner sur le canvas de la fiche (form) et en bleu tu lis la position du composant ImageH :koi:

Normalement, le dessin s'effectue directement sur le composant ImageH non ?

---

oui, merci kmaniche je vois bien maintenant.
donc je dessinais sur la fiche directement, j'ai rectifié avec ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

// Dessin des axes de l'histogramme Histogramme->ImageH->Canvas->Pen->Color=clBlack; Histogramme->ImageH->Canvas->MoveTo(Histogramme->ImageH->Left,70); Histogramme->ImageH->Canvas->LineTo(Histogramme->ImageH->Left,300);   Histogramme->ImageH->Canvas->MoveTo(Histogramme->ImageH->Left,300); Histogramme->ImageH->Canvas->LineTo(Histogramme->ImageH->Width,300);     // Dessin de l'histogramme ... Histogramme->ImageH->Canvas->Pen->Color=clRed; for(int i=0;i<255; i++) { Histogramme->Canvas->MoveTo(i+Histogramme->ImageH->Left,300);       Histogramme->ImageH->Canvas->LineTo(i+Histogramme->ImageH->Left, 300-Pretraitement->H[i]/100);   }   Histogramme->Show();

---

mais j'ai une droite rouge qui s'affiche (je pense que c'est un problème d'ajustement du dessin :? en plus l'histogramme affiché n'est pas plain.

ci joint une image du résultat

Juste pour info, pour réaliser des graph ou des histogrammes, il y a la possibilité d'utiliser le composant TChart.

Rappelles toi ce que j'ai dis :

Il faut que la partie ou tu dessine l'histogramme soit d'une largeur supérieure au moins à 260.

Pour arriver à dessiner un histogramme plein, il faut pour chaque itération de i, tu dessine une ligne entre l'axe X et la valeur de ton vecteur d'histogramme Pretaitement -> H[i] en gardant le même abscisse.

Tu peux faire mieux, pourquoi ne pas utiliser simplement un TChart, ça donne un résultat meilleur que celui tu as obtenu.

Bonne journée.

Salut !

TCanvas apporte son propre référentiel dans la zone client de l'objet.
Donc les coordonnées à fournir sont celles dans ce référentiel (et non par rapport à l'écran ... ou autre) !

Code:

---

1 2 3 4 5 6 7 8 9 10 11

int bord; int fond = 300; TCanvas *C = Form2->Image->Picture->Bitmap->Canvas;   for(x=0;x < 256; x++) { bord = x+16; C->MoveTo(bord, fond); C->LineTo(bord, fond - GrisAjustes[x]); }

---

On termine donc avec :

Code:

---

1 2	Form2->Image->Repaint();

---

A plus !

Salut !

Par ailleurs on peut améliorer un peu l'aspect avec des lignes tracées en tenant compte de la couleur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Graphics::TBitmap *Bitmap = Image1->Picture->Bitmap; Bitmap->Width = Image1->Width; Bitmap->Height = Image1->Height; TCanvas *C = Bitmap->Canvas; C->Brush->Style = bsSolid; C->Brush->Color = clAqua; // << pourquoi pas ! C->FillRect(Rect(0,0,Bitmap->Width, Bitmap->Height));   int x; int bord = 16; int fond = 300; for(int j=0; j < 256; j++) { x = bord + j; C->Pen->Color = (TColor)RGB(j,j,j); C->MoveTo(x, fond); C->LineTo(x, fond - Gris[j]); }

---

Personnellement ... j'aime bien !

Donc ça se décline assez bien pour les histogrammes de R, G et B :

Code:

---

1 2	C->Pen->Color = (TColor)RGB(j,0,0);

---

Code:

---

1 2	C->Pen->Color = (TColor)RGB(0,j,0);

---

Code:

---

1 2	C->Pen->Color = (TColor)RGB(0,0,j);

---

A plus !

Merci kamniche et sat83 pour tout :) j'utiliserai la solution du TChart si je bloque encore quoique j'aimerai bien dessiner l'histogramme pour m'entrainer.

Merci henderson pour ce joli code, il marche très bien mais j'ai le problème de débordement d'amplitude dans l'histogramme de certaines images, j'ai pensé à deviser le tableau d'histogramme sur un nombre mais le choix de ce dernier pose problème pour les images qui ont des petites amplitudes dans l'histogramme, je ne sais pas est ce qu'il existe un moyen pour adapter l'histogramme à la taille du bitmap?
autres question si possible:
j'ai déposé quelques labels sur le bitmap mais ils ne s'affichent pas à l'exécution, comment faire pour les affiché?
j'aimerai aussi savoir comment dessiner des droites orientées pour orienter les 2 axes donnés par ces cordonnées

Code:

---

1 2 3 4 5

C->MoveTo(bord,16); C->LineTo(16, fond );   C->MoveTo(16,fond); C->LineTo(Bitmap->Width-16,fond);

---

merci d'avance.

Citation:

---

j'ai le problème de débordement d'amplitude dans l'histogramme de certaines images, j'ai pensé à deviser le tableau d'histogramme sur un nombre mais le choix de ce dernier pose problème pour les images qui ont des petites amplitudes dans l'histogramme, je ne sais pas est ce qu'il existe un moyen pour adapter l'histogramme à la taille du bitmap?

---

C'est normal ;), et logiquement il y a une solution :mouarf:

Si ton bitmap fait H pixels de hauteur, et le vecteur de l'hitogramme comporte une valeur max de vmax, alors pour pouvoir tracer ton histrogramme dans le bitmap, il faut multiplier chaque valeur du vectur par le rapport de H/vmax.

Code:

---

1 2	j'aimerai aussi savoir comment dessiner des droites orientées pour orienter les 2 axes donnés par ces cordonnées

---

Cad :koi: si tu veux des flèches, il faut les dessiner manuellement !

salut,

Citation:

---

Envoyé par kmaniche

Si ton bitmap fait H pixels de hauteur, et le vecteur de l'hitogramme comporte une valeur max de vmax, alors pour pouvoir tracer ton histrogramme dans le bitmap, il faut multiplier chaque valeur du vectur par le rapport de H/vmax.

---

je n'ai pas un grand changement en traçant ceci :roll:

Code:

---

1 2 3 4 5 6 7 8 9 10

for(int j=0; j < 256; j++) { x = bord + j; C->Pen->Color = (TColor)RGB(j,j,j); C->MoveTo(x, fond); C->LineTo(x, fond -H[j]*MaxG/Bitmap->Height); //MaxG étant le max du tableau H[i]; }

---

Citation:

---

Cad :koi: si tu veux des flèches, il faut les dessiner manuellement !

---

oui je veux des flèches mais avec BCB pas manuellement 8O

Quand je dis manuellement, c'est par programmation bien sur. Je voulais dire aussi qu'il n y a pas une fonction prête pour tracer des flèche.

Une flèche est dessiner en utilisant MoveTo & LineTo
par exemple :

exemple :
p1(100, 100)
p2(110, 90)
p3(100, 80)

Salut !

Citation:

---

C->LineTo(x, fond -H[j]*MaxG/Bitmap->Height);

---

Ca irait beaucoup mieux en appliquant correctement la règle de trois :

Code:

---

1 2	C->LineTo(x, fond - (H[j] * Bitmap->Height / MaxG) );

---

A plus !

Salut !

Citation:

---

oui je veux des flèches mais avec BCB pas manuellement

---

Comme dirait l'autre : "vouloir ... c'est pouvoir"
Ceci dit...

Pour dessiner une flèche orientée il faut ressortir les formules de trigonométrie !
J'ai donné du code sur ce forum ... le problème ... il faudrait faire une recherche.
Il me semble que c'était une flèche orientée au bout d'une courbe de Bézier (avec une poignée pour controler en "live"...)... mais peut-être aussi au bout d'un segment (???)...

Il faudrait juste connaître ce dont on dispose pour la tracer : 2 points connus, 1 point 1 angle ... ?

Je ne pourrai pas répondre avant ce soir tard donc ...

A plus !

Salut !

Donc on va partir du principe qu'il existe deux points S et E et que l'on a tracé le segment SE.
On va utiliser le point E comme pointe de la flèche : S ---> E

Code:

---

1 2	#include <math.h> // pour hypot

---

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

// Calcul de la pente du segment SE int dx = E.x - S.x; int dy = E.y - S.y; double d = hypot(dx, dy); double sina = 0.0; double cosa = 1.0; double sinb; double cosb; if(d != 0.0) { sina = dy / d; cosa = dx / d; }   //-------------------------------------------------------------------- // Au repos (avant rotation), la position des points S1 et S2 de la // base de la flèche est prédéfinie relativement par rapport à la pointe : // // S2 (-12, +6) // |**** // | **** // | **** E' (0,0) // | **** // |**** // S1 (-12, -6) // //--------------------------------------------------------------------   // Le point S1 double x1 = -12; double y1 = -6; d = hypot(x1, y1); sinb = y1 / d; cosb = x1 / d; // Rotation autour de E y1 = E.y + (((sina * cosb) + (sinb * cosa)) * d); x1 = E.x + (((cosa * cosb) - (sina * sinb)) * d);   //Le point S2 double x2 = -12; double y2 = +6; d = hypot(x2, y2); sinb = y2 / d; cosb = x2 / d; // Rotation autour de E y2 = E.y + (((sina * cosb) + (sinb * cosa)) * d); x2 = E.x + (((cosa * cosb) - (sina * sinb)) * d);   // On dessine le contour avec une couleur sale Canvas->Pen->Color = (TColor)0x00000001; Canvas->MoveTo(E.x, E.y); Canvas->LineTo(x1, y1); Canvas->LineTo(x2, y2); Canvas->LineTo(E.x, E.y);   // Isobarycentre du triangle double x3 = (x1 + x2 + E.x) / 3; double y3 = (y1 + y2 + E.y) / 3;   // Remplissage avec la couleur sale (pas tout à fait clBlack) Canvas->Brush->Color = (TColor)0x00000001; Canvas->FloodFill(x3,y3, (TColor)0x00000001, fsBorder);

---

A plus !

Merci beaucoup henderson :P je regarderai ça un tête reposée, pour mon ex problème j'ai opté pour cette solution qui m'a arrangé:

Code:

---

C->LineTo(x, fond -((H[j]*Bitmap->Height)/(2*MaxG)) );

---