Рисование поверх TImage

[mrbadge]

В TImage загружена bmp, поверх рисуется объект (постоянно перемещается). Свойство кисти NotXor теперь не помогает - траектория движения остается все равно (с пустым Image'м работало). Собственно вопрос: как от этого избавиться?

Заранее спасибо

[Delphi_ProGer]

Предложите, пожалуйста, свой код.

[Arigato]

Не понятно, чего вы хотите добиться, но могу предложить вариант рисовать не на TImage, а на TPaintBox.

[mrbadge]

Загрузка картинки:

 OpenPictureDialog1.InitialDir:=GetCurrentDir;
  if OpenPictureDialog1.Execute then
  begin
    Fname:=OpenPictureDialog1.FileName;
    with Form1 do
    begin
      img1.AutoSize:=True;
      img1.Picture.LoadFromFile(Fname);
      img1.Picture.Bitmap.Canvas.Brush.Style:=bsClear;
       ...
   end;

После различных вычислений и тд рисование:

 //fld.Canvas.FillRect(Rect(0,0,wdth,hght));
  fld.Canvas.MoveTo(ship_back.X,ship_back.Y);
  fld.Canvas.LineTo(ship_front.X,ship_front.Y);
  fld.Canvas.Ellipse(ship_front.X-2,ship_front.Y-2,ship_front.X+2,ship_front.Y+2);

Без картинки можно было использовать филлрект, но теперь это вызовет белый прямоугольник. Нужно именно перерисовывать объект поверх картинки, удаляя его предыдущее положение.
Можно, конечно, каждый раз заново грузить картинку, но это ерунда
(fld и img1 - один и тот же TImage)

[Stilet]

Можно, конечно, каждый раз заново грузить картинку, но это ерунда

А грузить и не надо. Один раз загрузи, а потом несколько раз на канве в OnPaint отрисовывай. Аригато правильно говорит - прислушайся к его словам.