[Jawakharlal]

в общем задание к лабораторной работе не могу осилить...
задание все же простое, но ниасилил...
требуется всего лишь сделать так:
1. Создать приложение для перемещения по периметру области рисования прямоугольника. При нажатии кнопки Enter фигура должна остановиться, при повторном нажатии – продолжить свое движение.



просто там есть методичка, в ней используется вспомогательный модуль CALL... есть описание, но блин все так урезано., что не получается догнать как все расписать.....


кто чем может помогите )))


Aristarh Dark: Албанский в названии темы и в сообщении, строгое предупреждение!!!

[Alexo]

не слышал о таком модуле, а чем вас рисование на канве не устраивает?

[Burka]

в таймере очищаешь конфу рисуешь прямоугольник по координатам х и у, изменяешь координаты, по нажатию Энтера останавливаешь таймер, еще раз по нажатию энтара... да да =)

[Jawakharlal]

Сообщение от Alexo

не слышал о таком модуле, а чем вас рисование на канве не устраивает?

да там просто напросто используется второй модуль.. его так назвали ))

суть в том что не могу написать разделы операторов..
не понимаю принципов рисования, и одновременного управления обьектом.. хоть и читал стока всего

[SergeNik]

К примеру есть у тебя некая процедура прорисовки чего либо зависящее
от параметров DX и DY к примеру.
Пусть прцедура называется
SomeDraw(DX, DY : Integer); // Это только к примеру
Тебе надо теперь просто навсего менять значения DX и DY и вызывать свою процедуру рисования. Например это можно сделать в таймере:

Procedure Timer1OnTimer(Sender: TObject);
begin
Inc(DX); // увеличиваем значение DX
if (DX mod 2) = 0 then Inc(DY); // увеличиваем значение DY если DX четное.
SomeDraw(DX,DY);
IF DX > SomeValue then DX = 0; // здесь следим чтобы значния не улетели
в вечность=)
IF DY > SomeValue then DY = 0;
end;

Затем чтобы отследить нажатия клавиш (Enter) к примеру - выставь значения для свойства формы KeyPreview в True. И отслеживай нажатие клавиш в событии формы OnKeyPress, OnKeyUp, OnKeyDown например:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
//Если нажат Enter то Запускаем/Останавливаем таймер
if Key = #13 then Timer1.Enabled := not Timer1.Enabled;
end;

Вот и все пожалуй =)