Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.24;
Скачать: CL | DM;

Вниз

Про радар.   Найти похожие ветки 

 
Карлсон ©   (2002-06-28 00:07) [0]

Здравствуйте!
Поискал на сайте, нашел ответ на сабж. в форуме.
Вот ссылка http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1016984862&n=7
Конечно выглядит хорошо, но.
Кто-нибудь делал радар используя просто Image а не канвас?
Ну т.е. есть картинка радара, есть картинка линейки, которая крутится по нему, есть картинка с объектом для появления на радаре.
Те механизмы поворотов изображения, которые я нашел, не подходят, т.к. либо нету транспарента, либо при повороте картинки наблюдается очень сильное мигание изображения, особенно в быстром режиме работы.
Поделитесь своими мнениями плиз, т.к.очень хочется сделать игрушку с радаром.


 
MBo ©   (2002-06-28 06:23) [1]

Стартовые принципы я там показал, а уж на canvas формы рисовать или на image, или вообще свой компонент сделать - дело хозяйское.


 
Карлсон ©   (2002-06-28 18:43) [2]

2 MBo: а можешь пояснить буквально каждую строчку кода, а то я плохо понимаю, как рисуется эта линия.
я в коде кое-что подредактировал, ну чтобы можно было выводить просто на канвас картинки одну лишь линию.
вот какой у меня получился код:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
DoubleBuffered:=True;
x0:=205;
y0:=205;
r:=200;
phi:=0;
oldx:=355;
oldy:=205;
with Image1.canvas do begin
for i:=5 downto 1 do
moveto(x0,y0);
pen.color:=clAppWorkSpace;
pen.mode:=pmNotXor;
lineto(oldx,oldy);
end;
timer1.enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(phi,1);
if phi=360 then phi:=0;
with Image1.canvas do begin
moveto(x0,y0);
lineto(oldx,oldy);
oldx:=x0+trunc(r*cos(degtorad(phi)));
oldy:=y0-trunc(r*sin(degtorad(phi)));
moveto(x0,y0);
lineto(oldx,oldy);
end;
end;

И еще одно.
Я так и не понял, каким образом появляются мишени.
У меня почему-то ничего не появляется для ОнМаусАп.
Буду очень благодарен за разьяснение вопроса.



Страницы: 1 вся ветка

Текущий архив: 2002.10.24;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
3-78210
surkis
2002-10-04 11:58
2002.10.24
Помогите с плиз Access-овским паролем


1-78355
X_Key
2002-10-14 20:43
2002.10.24
Прога с параметрами


14-78589
Cobalt
2002-10-02 16:04
2002.10.24
Может кто знает, чья это фраза?


1-78402
amo
2002-10-14 16:33
2002.10.24
раскладка клавиатуры


1-78346
saxon
2002-10-11 15:52
2002.10.24
Clipboard