Marja4ok
Создатель
- Регистрация
- 18 Ноя 2008
- Сообщения
- 27
- Реакции
- 0
- Автор темы
- #1
Есть программа которая разрезает картинку на 9ть частей в произвольном порядке (тоесть как несобраный пазл)(код разбиения картинки приведен ниже,а еще ниже программа) . Также есть код который позволяет "тягать" эти картинки по форме и т.д . Прошу помощи в связи с тем что незнаю как организовать правильность собрания картинки...Тоесть помогите сделать так чтобы при правильном собирании картинки программа выдавала сообщение "Вы выиграли". Также еще волнует вопрос ,как сделать так чтобы при перетягивании части картинки с одного имейджа на другой любой картинка как бы прилипала к имейджу тоесть четко становилась в его рамки... ато выстраивать по пикселю неочень удобно.
Посмотреть вложение 7.rar
Код:
void __fastcall TForm1::Open1Click(TObject *Sender)
{
TImage * Pict = new TImage(Form1);
Pict->AutoSize = true;
if(OpenDialog->Execute())
{
Pict->Picture->LoadFromFile(OpenDialog->FileName);
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));
}
}
Посмотреть вложение 7.rar