Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Вниз

Люди, профы, помогите. Help me! 


Cyber   (2001-12-25 21:44) [0]

Как поместить стрелку на картинку (TImage) и в runtime ее перемещать?



ЗЛОБНЫЙ КАРЛИК   (2001-12-29 08:48) [1]

Вот процедура, которая рисует круг и в нем вертится линия, если надо по часовой пиши -sin. А еще в uses пиши Math.
procedure TForm1.Timer1Timer(Sender: TObject);
var x,y:Variant;
begin
Image1.Canvas.Rectangle(0,0,500,500);

if k=360 then k:=0;
k:=k+0.1;
x:=Sin(K)*50;
y:=Cos(K)*50;

Image1.Canvas.Ellipse(50,50,150,150);

Image1.Canvas.MoveTo(100,100);
Image1.Canvas.LineTo(x+100,y+100);
end;

Вроде тебе это надо было, как я понял!



pasha676   (2001-12-29 12:10) [2]

Скачай DelphiX и пиши на директХ - это проще (в конечном итоге)! Перемещается и вертиться все че хошь как хошь и куда хошь.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.012 c
1-52538           $Hic0                 2001-12-27 18:56  2002.01.17  
Еще раз про TMemo :(


14-52643          Андрей Сенченко       2001-11-19 17:13  2002.01.17  
Зачем нужны DLL ?


3-52462           Knyaz17               2001-12-14 10:04  2002.01.17  
Как использовать отладчик ХП?


1-52591           Zabrodin_Lex          2001-12-27 12:37  2002.01.17  
проблема с reset() в методе OBJECTа


4-52680           Art                   2001-11-16 15:13  2002.01.17  
А как добавить свой пункт в меню свойства файла или отправить???