Вращение креста

[Roberto]

Подскажите пожалуйста как вращать крест, без разницы в каком направлении, в центре экрана, ну или хотя бы на форме для начала???

[Карась]

Какой крест? Как и чем он нарисован?

[Roberto]

Сообщение от Карась

Какой крест? Как и чем он нарисован?

В виде плюсика наверно, в задании написано из двух отрезков линии. Значит рисуем программно 2 линии; к примеру, я думаю LineTo и MoveTo подойдут для этих целей. Вот не знаю только как это реализовать на Delphi

[Карась]

Для начала научимся вращать линию.
Надо задать начальную координату и конечную.
Если начинать с горизонтального положения то координаты моожно определить так:
x := R * cos(a * Pi/180);
y := R * sin(a * Pi/180);

Конечная координата линии будет находиться так:
x := R * cos((a + 180) * Pi/180);
y := R * sin((a + 180) * Pi/180);

Теперь у нас есть координаты начала и конца линии.

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

[Roberto]

Сообщение от Карась

Для начала научимся вращать линию.
Надо задать начальную координату и конечную.
Если начинать с горизонтального положения то координаты моожно определить так:
x := R * cos(a * Pi/180);
y := R * sin(a * Pi/180);

Конечная координата линии будет находиться так:
x := R * cos((a + 180) * Pi/180);
y := R * sin((a + 180) * Pi/180);

Теперь у нас есть координаты начала и конца линии.

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

Супер!! Работает, спасибо!! Горизонтальную линию сделали, вертикальную я тоже сделал аналогично, все работает, вращается плюсик.. Щас проблема заключается в следующем, я то на форме это реализовал, сделал чтоб следы не оставались на форме, а моя задача сделать так чтоб не на форме, а на экране вращался и при том никаких следов не оставалось?? Помоги пожалуйста, а то я не знаю как сделать

[eoln]

Вызов процедуры - рисуем, повторный вызов с теми же координатами - стираем

procedure Lin(x1, y1, x2, y2: integer);
var dtc:tcanvas;
begin
  dtc:=tcanvas.create;
  dtc.handle:=getdc(hwnd_desktop);
  dtc.Pen.Mode:=pmXor;
  dtc.Pen.Color:=clred;
  dtc.moveto(x1,y1);
  dtc.lineto(x2,y2);
  releasedc(dtc.handle,hwnd_desktop);
  dtc.free;
end;