Как прочитать и загрузить в paintBox изображение?

[NickForm]

Не влезает код.
http://www.delphisources.ru/pages/so.../neuro_40.html
Когда загружаю сторонний bmp он отображается в paintbox но программа этого не видет, только то что я сам нарисую. В чем может быть проблема?

[Пепел Феникса]

Смотрите по коду, что именно нужно программе, ибо PaintBox есть холст, но не контейнер.
То есть не хранит изображение, а лишь рисует(событие OnPaint)

[NickForm]

Ну вот я нашел контейнер. Получается что сохранить я могу то что я нарисовал а загрузить для анализа нет.

Result := ((PByte(P1)^*idX + PByte(P1+1)^*dX)*idY + dY*(PByte(P2)^*idX + PByte(P2+1)^*dX))*OneDiv256;

вот на этом у меня возникает ошибка.
Как такое может быть если VScreen описан лишь однажды в коде? По сути он должен же распознавать то что сохраняет и грузить все правильно, разве нет?

Вот функция

function T8Bit.GetPix(AX, AY: Single): Single;
const OneDiv256=0.00390625;
var dX, dY, idX, idY: Single;
    X,Y, P1, P2:Integer;
begin
  X:=Trunc(AX+16384)-16384;
  Y:=Trunc(AY+16384)-16384;
  dX:=AX-X;
  idX:=1.0-dX;
  dY:=AY-Y;
  idY:=1.0-dY;

  if (X<0) or (X > BitWidth-2) or
     (Y<0) or (Y > BitHeight-2)
   then
     begin
       Result:=1.0;
       EXIT;
     end;

  P1:=Integer(Scan[Y])+X;
  P2:=Integer(Scan[Y+1])+X;
  Result := ((PByte(P1)^*idX + PByte(P1+1)^*dX)*idY + dY*(PByte(P2)^*idX + PByte(P2+1)^*dX))*OneDiv256;
end;

[Человек_Борща]

хм а може стоит подойти к вопросу с др. стороны?

Я кинул панельку, внутрь впихнул паинтбокс.. и код батона:

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.LoadFromFile(ExtractFilePath(ParamStr(0)) + '1.bmp');
    Panel1.Width := bmp.Width;
    panel1.Height := bmp.Height;
    PaintBox1.Canvas.Draw(0,0, BMP);
    PaintBox1.Update;
  finally
    FreeAndNil(bmp);
  end;
end;

Все успешно грузитсо.

Правда я не знаю почему с первого раза не срабатывает отрисовка.
Нужно 2-ой раз нажать на кнопку чтобы сработала PaintBox1.Update;.
Ну или sleep пихните туда.

[NickForm]

У меня получается загрузить и с этим кодом и со своим, но программа как бы не видет. Такое ощущение что еще куда то рисование сохраняется, вернее хранится. Не опознает за картинку, пишет что ничего не нарисовал, пусто.