Форум: "Основная";
Поиск по всему сайту: 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.027 c
1-52535           tovSuhov              2001-12-27 16:04  2002.01.17  
Люди! Совсем запутался.


1-52589           vlv                   2001-12-28 14:51  2002.01.17  
Иерархическая структура


1-52613           Трынкин Сергей        2001-12-27 14:07  2002.01.17  
Как использовать свой курсор во время выполнения SQL запроса?


6-52633           maxi                  2001-10-23 11:45  2002.01.17  
Как передать серверу интерфейс клиента


1-52578           bit                   2001-12-29 09:59  2002.01.17  
ScanLine