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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 02.02.2015, 21:33   #1
LibKing
Новичок
Джуниор
 
Регистрация: 02.02.2015
Сообщений: 1
По умолчанию Очень нужно сделать новый или отредактировать уже существующий рисунок PascalABC:GraphABC

PascalABC:GraphABC
Помогите сделать рисунок в окне с разрешением 1280x720
Надо сделать домик и снеговика рядом с домиком,рисунок не маленький
Я сам попытался сделать рисунок,у меня получилось,но нужно сделать рисунок крупнее и с размером окна указанным выше. Помогите pls,буду благодарен.
Вот то, что получилось у меня,можно как то увеличить рисунок?

Код Pascal
Код:
program home;
uses GraphABC;
begin
floodfill(228,228,clskyblue);
setbrushcolor(clbrown);
rectangle(50,300,250,500);
line(50,300,151,200);
line(250,300,149,200);
floodfill(150,220,clmaroon);
setbrushcolor(clsilver);
rectangle(100,400,150,450);
rectangle(150,400,200,450);
rectangle(100,350,150,400);
rectangle(150,350,200,400);
SetBrushcolor(clsilver);
circle (600,50,40);
FloodFill (600,50,clyellow);
circle (400,330,20);
circle (400,380,30);
circle (400,450,40);
SetPixel(395,325,clblack);
SetPixel(405,325,clblack);
line(395,340,405,340);
end.

Последний раз редактировалось Stilet; 02.02.2015 в 21:40.
LibKing вне форума
Старый 04.02.2015, 08:56   #2
FPaul
Форумчанин
 
Регистрация: 25.01.2015
Сообщений: 472
По умолчанию

Можно определить в самом начале масштабный коэффициент Mxy как соотношение 1280 к 480 (или в каком окне ваша прога). Далее все линейные размеры умножать на Mxy с округлением прямо по ходу программы.
FPaul вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Объединить две графические программы в одну. Модуль GraphABC. PascalABC Blatota Помощь студентам 1 19.07.2012 00:50
PascalABC - использование graphabc: нужно разработать динамическую рекламу товара или услуги Tomaa Паскаль, Turbo Pascal, PascalABC.NET 2 18.07.2012 17:34
GraphABC + процедуры и функции (PascalABC.NET) Vova_P Помощь студентам 1 11.12.2011 18:33
Запустить чужую программу со своей dll библиотекой или внедрить в уже существующий процесс Человек_Борща Общие вопросы Delphi 5 23.01.2011 21:20
Проверка файла на уже существующий Serjuk Помощь студентам 10 18.11.2010 21:46