KOD cpp: UKRYJ
int x, y;
int width, height;
Graphics::TBitmap* tmpBMP = new Graphics::TBitmap;
tmpBMP->Height = Image->Width;
tmpBMP->Width = Image->Height;
width = Image->Width-1;
height = Image->Height-1;
for (y = 0; y <= height; y++)
for (x = 0; x <= width; x++)
{
tmpBMP->Canvas->Pixels[y][width-x] = Image->Canvas->Pixels[x][y];
Application->ProcessMessages();
}
Image->Width = tmpBMP->Width;
Image->Height = tmpBMP->Height;
Image->Picture->Bitmap->Assign(tmpBMP);
delete tmpBMP;
int width, height;
Graphics::TBitmap* tmpBMP = new Graphics::TBitmap;
tmpBMP->Height = Image->Width;
tmpBMP->Width = Image->Height;
width = Image->Width-1;
height = Image->Height-1;
for (y = 0; y <= height; y++)
for (x = 0; x <= width; x++)
{
tmpBMP->Canvas->Pixels[y][width-x] = Image->Canvas->Pixels[x][y];
Application->ProcessMessages();
}
Image->Width = tmpBMP->Width;
Image->Height = tmpBMP->Height;
Image->Picture->Bitmap->Assign(tmpBMP);
delete tmpBMP;




