|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
25.05.2007, 16:14 | #11 |
ObjectPascal,CISCO
Форумчанин
Регистрация: 22.05.2007
Сообщений: 294
|
Да кстати. Как это она ваще работает?
Правда я на листинг смотрел 2сек. |
25.05.2007, 17:09 | #12 |
Пользователь
Регистрация: 09.02.2007
Сообщений: 18
|
1.Поменяв координаты фигура и вставляя Uses Graph; фигура не поворачивается.
2 . Программа загружается, как и должно быть. Открывается окно с фигурой но как только я нажамаю кл. „V“ или „H“окно закрывается. 3.Режим включился но ('Ошибка драйвера') не вывел в окне. |
25.05.2007, 17:15 | #13 |
Форумчанин
Регистрация: 18.04.2007
Сообщений: 135
|
убери строчку CloseGraph из своих процедур
Последний раз редактировалось НЕ_АЙС; 25.05.2007 в 17:40. |
25.05.2007, 18:35 | #14 |
Пользователь
Регистрация: 09.02.2007
Сообщений: 18
|
Рисунок неподвижен.
|
26.05.2007, 12:12 | #15 |
Пользователь
Регистрация: 09.02.2007
Сообщений: 18
|
Я ввела некоторые изменения и рисунок поворачивается. Но появилась другая проблема вид не реагирует на кл. „V“ и „H“ , то есть рисунок меняет вид при нажатии любой кл.
procedure task_4; var graphdriver, graphmode, x1, x2, y1, y2:integer; FuncKey : boolean; ch:char; {----------------------------------------} procedure view; begin setbkcolor(green); cleardevice; x1:=120; y1:=150; x2:=360; y2:=210; setfillstyle(4, yellow); bar3d(x1,y1,x2,y2,10,true); readln; end; {----------------------------------------} procedure view_h; begin setbkcolor(blue); cleardevice; bar3d(130,120,210,360,10,true); setfillstyle(4, yellow); readln; end; {----------------------------------------} procedure view_v; begin setbkcolor(green); cleardevice; x1:=220; y1:=250; x2:=460; y2:=310; setfillstyle(4, yellow); bar3d(x1,y1,x2,y2,10,true); readln; end; {----------------------------------------} begin graphdriver:=detect; initgraph (graphdriver,graphmode,''); view; view_h; view_v; repeat if keypressed then ch:=readkey; until (ch='h') or (ch='H') or (ch='v') or (ch='V'); if (ch='h') or (ch='H' ) then view_h; if (ch='v') or (ch='V') then view_v; readln; end; Последний раз редактировалось Рената; 26.05.2007 в 12:21. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите найти ошибку | Максим_Леонидович | БД в Delphi | 4 | 20.08.2008 23:23 |
Помогите найти ошибку | Dmitriy | Общие вопросы Delphi | 4 | 01.08.2008 23:32 |
Помогите найти ошибку | N!ckeL | Общие вопросы Delphi | 9 | 05.05.2008 14:15 |
Помогите найти ошибку | NeiL | Общие вопросы Delphi | 7 | 04.03.2008 07:14 |
Помогите найти ошибку | Рената | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 05.01.2008 04:29 |