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

Вниз

Люди, профы, помогите. 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 и пиши на директХ - это проще (в конечном итоге)! Перемещается и вертиться все че хошь как хошь и куда хошь.



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

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

Наверх




Память: 0.46 MB
Время: 0.009 c
1-52581
ASV
2001-12-29 00:14
2002.01.17
PDF Russian fonts


1-52553
Flagman
2001-12-28 12:14
2002.01.17
Спрятать курсор в TRichEdit


1-52542
AVL
2001-12-21 11:32
2002.01.17
Вопрос по FastReport 4.2


7-52676
REL
2001-10-02 19:43
2002.01.17
Com порт


14-52665
Donal
2001-11-19 13:46
2002.01.17
кто стучится в дверь моя?