Главная страница
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.011 c
3-52498
HrUsT
2001-12-13 22:00
2002.01.17
Добавление картинки в БД


1-52602
ЗЛОБНЫЙ КАРЛИК
2001-12-27 13:11
2002.01.17
String-TStrings. String-PChar. PChar-TStrings!!!! HEEEEELP!


1-52606
Yaro
2001-12-30 14:11
2002.01.17
TRegistry.SaveKey - ???


4-52689
Вадим
2001-11-16 17:31
2002.01.17
Имя компьютера


3-52512
ASDS
2001-12-14 12:58
2002.01.17
Нумерация результатов запроса