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();
} |
Partager