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

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

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.09.2010, 22:23   #1
xJohnx
Пользователь
 
Регистрация: 19.04.2010
Сообщений: 80
По умолчанию дана цепочка, нужно ее нарисовать в делфи 7

Думаю вот на фото будет всю понятно, просто побыстрому рисовал...http://www.programmersforum.ru/attac...1&d=1284920575
From Stilet: За кросспосты буду наказывать!
Изображения
Тип файла: jpg Безымянный.jpg (29.0 Кб, 177 просмотров)

Последний раз редактировалось Stilet; 20.09.2010 в 08:11.
xJohnx вне форума Ответить с цитированием
Старый 20.09.2010, 07:28   #2
Прик
Форумчанин
 
Регистрация: 08.09.2010
Сообщений: 880
По умолчанию

Один из вариантов:

Код:
var
  W : Integer = 30;  //ширина цепочки
  H : Integer = 50;  //высота вертикальной линии цепочки
  C : Integer = 3;   //количество звеньев

procedure TForm1.FormPaint(Sender: TObject);
var
  I, Offs : Integer;

  procedure _ChainLoop(Y : Integer);
  begin
    with Canvas do begin
      MoveTo(20, Y);
      LineTo(20+W, Y+W);
      LineTo(20+W, Y+W+H);
      MoveTo(20+W, Y);
      LineTo(20, Y+W);
      LineTo(20, Y+W+H);
    end;
  end;

begin
  Offs := 20; //начало цепочки от верхнего края формы
  for I := 1 to C do begin
    _ChainLoop(Offs);
    Inc(Offs, W+H);
  end;
end;
Прик вне форума Ответить с цитированием
Старый 20.09.2010, 19:11   #3
xJohnx
Пользователь
 
Регистрация: 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);-?
xJohnx вне форума Ответить с цитированием
Старый 20.09.2010, 20:46   #4
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 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.
Rin вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужно нарисовать алгоритмы 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