Форум: "Основная";
Поиск по всему сайту: 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.71 MB
Время: 0.036 c
1-52563           greenrul              2001-12-26 21:57  2002.01.17  
Баннерный движок - посоветуйте, как осуществить


3-52494           Alex22                2001-12-15 11:12  2002.01.17  
BDE


1-52530           навичек               2001-12-27 07:41  2002.01.17  
Дурацкая пошаговая отладка :(


3-52464           Laimer                2001-12-14 14:08  2002.01.17  
функция Cast


4-52686           YUS                   2001-11-16 06:36  2002.01.17  
CreateDialog -????