Форум: "Основная";
Текущий архив: 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 и пиши на директХ - это проще (в конечном итоге)! Перемещается и вертиться все че хошь как хошь и куда хошь.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.003 c