//Histogram
//(c) 2005 Tomasz Lubinski
//www.algorytm.org
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i, j;
double r[256], g[256], b[256], gray[256];
TColor color;

for (i=0; i<256; i++)
{
    r[i] = 0;
    g[i] = 0;
    b[i] = 0;
    gray[i] = 0;
}

for (i=0; i<ObrazKolor->Width; i++)
    for (j=1; j<ObrazKolor->Height; j++)
    {
        color = ObrazKolor->Canvas->Pixels[i][j];
        r[GetRValue(color)]++;
        g[GetGValue(color)]++;
        b[GetBValue(color)]++;
    }
HistogramKolor->SeriesList->Series[0]->Clear();
HistogramKolor->SeriesList->Series[1]->Clear();
HistogramKolor->SeriesList->Series[2]->Clear();
HistogramKolor->SeriesList->Series[0]->AddArray(r, 255);
HistogramKolor->SeriesList->Series[1]->AddArray(g, 255);
HistogramKolor->SeriesList->Series[2]->AddArray(b, 255);

for (i=0; i<ObrazMono->Width; i++)
    for (j=0; j<ObrazMono->Height; j++)
    {
        color = ObrazMono->Canvas->Pixels[i][j];
        gray[GetRValue(color)]++;
    }
HistogramMono->SeriesList->Series[0]->Clear();
HistogramMono->SeriesList->Series[0]->AddArray(gray, 255);
}
//---------------------------------------------------------------------------