Да...понятно
Но это все сделать надо))(это тоже понятно)...при моей структуре программы это довольно проблематично((..Тем более для меня верхом было создание 123 управления...а такое...это что-то на грани с фантастикой (пока))...

Тут такой вопрос "созрел"...На сколько важно это управление (стрел-ми)??

Тема в "даун" ушла... Может я чего-то не так ляпнул ???

Нет, не волнуйся, с этим все в порядке . Просто вопрос про стрелки - это не по адресу. Задавай его либо себе, либо тому, от кого задание. Если ты считаешь, что я слишком нажимал по поводу стрелок - это чисто мое мнение. Оно не относится к программированию .
У тебя вообще много еще времени до ее сдачи?

Тот кому это надо .... зовет меня завтра на консультацию (я узнаю по подробнее=)). А время до сдачи до СЕССИИ (чтобы ей пусто было!) то есть до где-то 1 июня (я уже сдать вроде как должен)))

Это я))

Сообщение отредактировано: Needhelp - 16.05.2007 13:52

Сегодня на консультации ... На все мои вопросы были получены "+" ответы... Допустим, Управление "123" устроит... "Ага"... Дисков у меня до 9... "Ого"=)) В общем все

Плохо что тема закончилась...Мне всё то же самое нужно только диски тягать мышкой помогите а?

Почему закончилась???... Lapp же сказал "Нет, не волнуйся, с этим все в порядке..." Ну вот))) А вот с управлением... основной принцип ТВОЕГО управления уже был озвучен...

Сообщение отредактировано: Needhelp - 21.05.2007 12:17

Точно!
А что тебе еще требуется сделать? графику? Уточни, плз.

Ага 3D и ВСЕ А дальше мне уже думать, как сдать курсовик)))

UP ... чтобы помнили ... Как дела с 3D? Что скажешь? А то в четверг иду на зачет по курсовику))) Я не сильно достал?

Нет, не сильно. Но все же я бы на твоем месте все же сделал попытку самому нарисовать диск, по крайней мере. Используй процедуру FillEllipse. Попробуй и покажи, что получается.

Спасибо за наводку, пойду чертить

Сделал вот так...

 
Driver := Detect;   
 InitGraph(Driver, Mode, '');
 if GraphResult < 0 then
 Halt(1);
  Help := true;
  repeat
    MainDialog (Help,Number,t1,t2,t3,Automatic);
    Help := false;
    if Automatic
      then ReBuild (Number,t1,t2,t3)
      else Interactive (t1,t2,t3)
  until not Again;
  CloseGraph;
END.

Column := DiskColumn (1,Width) из Процедуры (InitDisks) заменил FillEllipse (520, 90, 2, 2) (координаты для проверки брал) ... Программа при запуске показывает серый экран и все (повисает)... В игре использую символьный режим (CRT), а для работы с FillEllipse требуется графический (Graph)... Может тормоза из-за этого? В Uses Graph прописал...

Сообщение отредактировано: Needhelp - 28.05.2007 17:46

- Может я чего не допонимаю?

Разобрался прописал DirectVideo:=false;
Но теперь фоны накладываются друг на друга..

Карау! завтра показывать а с 3d какая-то....

ВСЕ!!!
Курсовую сдал на ОТЛИЧНО!!! Lapp Большущие СПАСИБО! За ту помощь и поддержку,которую ты оказывал мне в теме=)) В будущем может кому-то тоже понадобится программа Берите , разбирайтесь...

П/с Разработку 3D оставляю следующим поколениям =)))

Сообщение отредактировано: Needhelp - 5.06.2007 13:20

Поздравляю!
Извини, не сложилось тебе помочь в конце - был сильно занят, на форум почти не заходил..
Ты как планируешь - продолжать программирование? Если да, то можно продолжить и эту тему. Не прямо сейчас - когда будет желание. Там есть, что сказать еще - не только про 3Д, а про общую организацию и т.п.