Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.11.2015, 20:33   #1
Игорь_Алексеевич
Новичок
Джуниор
 
Регистрация: 22.01.2015
Сообщений: 2
Вопрос Операция копирования в ABC.net

Доброго времени суток! Подскажите как в Pascal ABC.net реализовать операцию копирования? В "Хэлпе" описана процедура CopyRect(dst: System.Drawing.Rectangle; p: Picture; src: System.Drawing.Rectangle); но я не понимаю какие данные туда вводить.

Практически, мне нужно реализовать копирование облака в этой программе. Заранее благодарю!

код:

Код:
Program pass1;
uses graphABC;
var pic:integer;

begin

Rectangle(10,10,1590,870);
line (450,500,1000,500);
line (500,420,1000,420);
line (500,420,390,470);
line (450,500,390,470);
line (420,485,420,457);

line (437,450,480,450);

line (480,450,480,430);

line (1000,420,1100,435);
line (1000,500,1100,435);
line (1130,350,1188,350);
line (1130,350,1055,427);

line (1000,420,1100,330);
line (1210,330,1100,435);

line (1100,330,1210,330);


rectangle(510,430,535,480); 

Ellipse(710,478,850,490);{крыло}

Ellipse(570,435,593,470);
Ellipse(600,435,623,470);
Ellipse(630,435,653,470);
Ellipse(660,435,683,470);
Ellipse(690,435,713,470);
Ellipse(720,435,743,470);
Ellipse(750,435,773,470);
Ellipse(780,435,803,470);
Ellipse(810,435,833,470);
Ellipse(840,435,863,470);
Ellipse(870,435,893,470);   {окна}

Ellipse(920,435,1020,470);  {ТРД} 
 
arc(250,220,20,170,310); {облако}
arc(240,200,20,120,242);
arc(250,180,20,45,190);
arc(280,180,20,45,140);
arc(310,180,20,40,140);
arc(280,230,20,200,320);
arc(310,230,20,220,360);
arc(340,180,20,-70,140);
arc(340,215,20,-130,60);

floodfill(9,9, clBlack);
floodfill(419,483, clBlack); {заливка носовой части}
floodfill(444,448, clLightBlue); {заливка переднего окна}
floodfill(419,483, clBlack);
floodfill(950,460, clBlack);
floodfill(515,435, clDarkGray);{заливка двери}
floodfill(720,485, clDarkGray);{заливка крыла}


floodfill(575,444,clLightBlue);
floodfill(605,444,clLightBlue);
floodfill(635,444,clLightBlue);
floodfill(665,444,clLightBlue);
floodfill(695,444,clLightBlue);
floodfill(725,444,clLightBlue);
floodfill(785,444,clLightBlue);
floodfill(815,444,clLightBlue);
floodfill(845,444,clLightBlue);
floodfill(875,444,clLightBlue);
floodfill(925,444,clLightBlue);
floodfill(755,444,clLightBlue);{заливка окон}
floodfill(749,438,clDarkGray);
floodfill(1110,332,clDarkGray);
floodfill(1105,380,clDarkGray);
floodfill(50,50, clDeepSkyBlue);

end.
Игорь_Алексеевич вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
паскаль ABC.NET nata1 Помощь студентам 1 04.12.2013 19:45
Pascal ABC.NET gogomon93 Помощь студентам 4 01.12.2013 17:56
Pascal ABC Net sarkisova_elena Паскаль, Turbo Pascal, PascalABC.NET 2 07.02.2012 00:40
Pascal ABC.NET BuTaJI Помощь студентам 1 26.04.2011 20:10
Pascal ABC net DiLLe Паскаль, Turbo Pascal, PascalABC.NET 1 08.06.2010 23:20