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
| void __fastcall TForm1::Binarisation1Click(TObject *Sender)
{
Graphics::TBitmap* Image;
Image = new Graphics::TBitmap();
Image->Height = Image1->Picture->Height;
Image->Width = Image1->Picture->Width;
StringGrid1->RowCount = Image->Height;
StringGrid1->ColCount = Image->Width;
for (int j = 1; j <=Image1->Picture->Width ; j++)
Image->Canvas->Pixels[i][j] = RGB( (int) GetRValue(ColorToRGB(Image1->Canvas->Pixels[i][j])), (int) GetRValue(ColorToRGB(Image1->Canvas->Pixels[i][j])), (int) GetRValue(ColorToRGB(Image1->Canvas->Pixels[i][j])));
if(Image->Canvas->Pixels[i][j] <= 128)
{
StringGrid1->Cells[j][i] = 0;
Image->Canvas->Pixels[i][j] = RGB( (int) GetRValue(ColorToRGB(0)), (int) GetRValue(ColorToRGB(0)), (int) GetRValue(ColorToRGB(0)));;
}
else
{
StringGrid1->Cells[j][i] = 255;
Image->Canvas->Pixels[i][j] = RGB( (int) GetRValue(ColorToRGB(255)), (int) GetRValue(ColorToRGB(255)), (int) GetRValue(ColorToRGB(255)));
}
for (int i = 1; i <=Image1->Picture->Height ; i++)
{
}
Image2->Picture->Bitmap->Assign(Image);
} |
Partager