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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.10.2008, 23:55   #1
StakanpORTvejna
Пользователь
 
Регистрация: 31.08.2007
Сообщений: 37
По умолчанию можно ли вычеслять координаты просто?

Код:
uses Graph,crt;
var a,b,n,l:integer;
c:longint;
Function del(c,b:longint):longint;
begin
for c:=1 to b do
delay(3);
end;

Begin
l:=1;
n:=25;
a:=Detect;
 initGraph(a,b,' ');
SetBkColor(8);
Line(100,50,100,80);
    del(l,n);
Line (100,65,120,65);
  del(l,n);

Line(120,50,120,80);
del(l,n);

Line(125,80,140,50);
      del(l,n);
      Line(140,50,155,80);
      del(l,n);
      Line(130,69,150,69);
readln;

CloseGraph;

end.
Вообщем это только начала Happy birthday to you...+ сюда будет вставлена мелодия)но дело не в этом...можно ли как-нибудь быстро просчитать все координаты по которым будут буквы вычерчиваться..?потому что я столько врядли смогу просчитать,или на это надо столько времени убить,а его и так с трудом хватает
или может можно как-нибудь выводить буквы,чтобы они какбы рисовались?
StakanpORTvejna вне форума Ответить с цитированием
Старый 02.10.2008, 08:24   #2
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Если Вы хотите чтобы каждая буква рисовалась, то только вручную, иначе только выводить готовые буквы по одной, с задержкой. А координаты нужно заранее на бумажке подсчитать. Нарисовать в масштабе экран, нанести свою надпись, и определить примерно нужные координаты, затем в процессе отладки программы внести поправки.
puporev вне форума Ответить с цитированием
Старый 02.10.2008, 18:19   #3
StakanpORTvejna
Пользователь
 
Регистрация: 31.08.2007
Сообщений: 37
По умолчанию

а как посмотреть какой из шрифтов юзаеться,потому что в папке лежит около 50 штук и кто его знает какой из них..и как заюзать отдельный?
StakanpORTvejna вне форума Ответить с цитированием
Старый 02.10.2008, 19:09   #4
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Вы пытаетесь что-то делать и ничего не хотите сами искать и читать. Вот для начала хотя бы прочитайте.
Вложения
Тип файла: doc 1.doc (41.0 Кб, 8 просмотров)
puporev вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Координаты клика snake-as JavaScript, Ajax 0 24.02.2008 15:44
Координаты окон Лубышев Общие вопросы Delphi 6 22.01.2008 19:40
Координаты ОУ? Fainder Общие вопросы Delphi 9 15.10.2007 20:59
координаты Aram Общие вопросы C/C++ 5 08.06.2007 20:03
RichEdit. как можно вставлять картинку туда? как можно Скрол програмно вниз двигать? Svop Компоненты Delphi 7 28.11.2006 21:07