Есть программа которая разрезает картинку на 9ть частей в произвольном порядке (то есть как несобранный пазл) нужно чтобы при правильном сборе картинки программа выдавала сообщение: "вы выиграли!"
Код разбиения картинки ниже, также еще само собой имеется код который позволяет перетягивать по форме отрезаные части.
Код:
void __fastcall TForm1::FormCreate(TObject *Sender) { TImage * Pict = new TImage(Form1);
Pict->AutoSize = true;
/* В следующем операторе указано имя загружаемого файла */
Pict->Picture->LoadFromFile("CUS6.BMP"); Image1->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas, Rect(0,0,Pict->Width / 3,Pict->Height / 3)); Image3->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas, Rect(Pict->Width / 3,0,Pict->Width *2/ 3,Pict->Height / 3)); Image2->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas, Rect(Pict->Width *2/ 3,0,Pict->Width,Pict->Height / 3)); Image5->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas, Rect(0,Pict->Height / 3,Pict->Width / 3,Pict->Height *2/ 3)); Image4->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas, Rect(Pict->Width / 3,Pict->Height / 3,Pict->Width *2/ 3,Pict->Height *2/ 3)); Image6->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas, Rect(Pict->Width *2/ 3,Pict->Height / 3,Pict->Width,Pict->Height *2/ 3)); Image9->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas, Rect(0,Pict->Height *2/ 3,Pict->Width / 3,Pict->Height)); Image7->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas, Rect(Pict->Width / 3,Pict->Height *2/ 3,Pict->Width *2/ 3,Pict->Height)); Image8->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas, Rect(Pict->Width *2/ 3,Pict->Height *2/ 3,Pict->Width,Pict->Height));