hi ieva,
try this
hennep
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender) {
AnsiString as;
Image1->Picture->Bitmap->LoadFromFile( (AnsiString)"c:\\test.bmp" );
// read a pixel
for( int x=0; x<Image1->Picture->Bitmap->Width; x++ ) {
for( int y=0; y<Image1->Picture->Bitmap->Height; y++ ) {
as = "TColor = ";
as += (long)Image1->Picture->Bitmap->Canvas->Pixels[x][y];
Application->MessageBoxA( as.c_str(), "debug", 0 );
}
}
//write a pixel
for( int x=0; x<Image1->Picture->Bitmap->Width; x++ ) {
for( int y=0; y<Image1->Picture->Bitmap->Height; y++ ) {
Image1->Picture->Bitmap->Canvas->Pixels[x][y] = clRed;
}
}
}
//---------------------------------------------------------------------------