[FaRCReT]

Как сделать чтоб текст двигался на Image В нужном мне направлении
Я хочу чтобы у меня на Image Был текст (Белый) и двигался вправо
Помогите Пожалуйста!!! Очень надо!!!

[}{ОТТ@БЫЧ]

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Top:=Image1.Top+10;
Image1.Left:=Image1.Left+10;
end;

будет двигаться по диоганали.
Принцип думаю понял =)

[lmikle]

Если я правильно понял, то тебе надо поверх картинки двигать свой текст. Вариант действий такой:
1. Грузишь картинку в TImage и в буферный TBitmap (например).
2. Копируешь буфер в TImage и отрисовываешь на буфере текст в нужной позиции.
3. Меняешь координаты позиции и переходишь к шагу 2.

Можно использовать TPaintBox для вывода и буфер для картинки.

[FaRCReT]

Не вы меня не поняли я имел введу я пишу
Form1.Image1.Canvas.Brush.Color:=clBlack;
Form1.Image1.Canvas.Rectangle(0,0,180,180);
Form1.Image1.Canvas.Brush.Color:=clRed;
Form1.Image1.Canvas.TextOut(x,y,text);
где:
x := x+1;
y := 10;
Text := '';
1) Как сделать цвет текста ни черным а белым!
2)И Двигать его вправо!
Воть и все это на одном Image

[lmikle]

Понял правильно. Это ты не понял что я написал.

Текст белым - Form1.Image1.Canvas.Font.Color := clWhite;
Что бы двигался -выводи в цикле. Попростому

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  I : Integer;
begin
  Image1.Canvas.Font.Color := clWhite;
  For I := 10 To 100 Do
    Begin
      Image1.Refresh;
      Image1.Canvas.TextOut(I,50,'fff');
      Sleep(100);
    End;
end;

Правда такой фокус пройдет только если у тебя загружен битмап.

[FaRCReT]

Не пашет а за цвет текста спасибо!