|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.09.2010, 22:23 | #1 |
Пользователь
Регистрация: 19.04.2010
Сообщений: 80
|
дана цепочка, нужно ее нарисовать в делфи 7
Думаю вот на фото будет всю понятно, просто побыстрому рисовал...http://www.programmersforum.ru/attac...1&d=1284920575
From Stilet: За кросспосты буду наказывать! Последний раз редактировалось Stilet; 20.09.2010 в 08:11. |
20.09.2010, 07:28 | #2 |
Форумчанин
Регистрация: 08.09.2010
Сообщений: 880
|
Один из вариантов:
Код:
|
20.09.2010, 19:11 | #3 |
Пользователь
Регистрация: 19.04.2010
Сообщений: 80
|
procedure TForm1.FormPaint[formpaint- что это за компонент и как приминить?](Sender: TObject);
procedure _ChainLoop[- тоже не понятно](Y : Integer); Offs := 20; //начало цепочки от верхнего края формы for I := 1 to C do begin _ChainLoop(Offs); - что это? Inc(Offs, W+H);-? |
20.09.2010, 20:46 | #4 |
Негодник
Форумчанин
Регистрация: 10.11.2009
Сообщений: 880
|
procedure TForm1.FormPaint[formpaint- что это за компонент и как приминить?](Sender: TObject);
--->щёлкни на форму один разок. Далее в объектном инспекторе(такая табличка слева внизу) выбери вкладку Events. Найди там строку OnPaint и напротив этой строки(там где пустая клеточка) левой кнопкой мыши шёлкни два раза А отвечает этот "компонент"(правильней будет процедура) за прорисовку твоей формы. procedure _ChainLoop[- тоже не понятно](Y : Integer); ---> блин, пройди понятие процедуры и функции. Их структуру, чем отличаются друг от друга, как вызывать. Offs := 20; //начало цепочки от верхнего края формы for I := 1 to C do begin _ChainLoop(Offs); - что это? ---> это процедура, которую "ты" описал раньше. В общем прочти про процедуры и поймёшь, что это. Inc(Offs, W+H); стандартная процедура , которая увеличивает первый параметр\переменную на величину, указанную во втором параметре\переменной. Если второй параметр не указан: "inc(offs)" - , то увеличивает на 1. если ты на прогера учиться пошёл , то завязывай х** пинать и учись, а то протрёшь штаны 5 лет, а толку от этого нуль. Если не внемлешь щас, сам жалеть будешь. Я сам проверял))))
Если помог, проси поставить минус. Будь оригинален!
Последний раз редактировалось Rin; 20.09.2010 в 20:49. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
нужно нарисовать алгоритмы | Berehuli4ka | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 27.08.2010 12:18 |
нужно нарисовать 3 блок-схемы.. | ilnar21 | Помощь студентам | 2 | 15.06.2010 14:24 |
нужно нарисовать петуха в паскале | ddeman666 | Фриланс | 4 | 08.06.2010 10:51 |
нарисовать стрелку на делфи | studentOne | Помощь студентам | 7 | 17.11.2009 07:36 |
плз помогите нарисовать в делфи... | sp.caster | Общие вопросы Delphi | 5 | 30.01.2009 20:51 |