Rectangle im Image zeichnen

[renekr]

Hi,
Danke.
Ich habe es vorserst mal mit einem TShape gemacht.
Ds passt ganz gut.

Nun habe ich ein Problem.
Wenn ich das Image DesignTime reinmache und dann die Positionen bestimme passt alles.

Wenn ich nun das selbe Image per Filestream zur Runtime reinlade stimmen sie nciht mehr die Positionen.

An was kann das liegen ?

File Load Code:

Delphi-Quellcode:

if FileExists(remotehost+Bilder_KA_Share+'\TechPL\'+bild_name+'.jpg')  then
begin
  try
    OleGraphic := TOleGraphic.Create;
    fs         := TFileStream.Create(remotehost+Bilder_KA_Share+'\TechPL\'+bild_name+'.jpg', fmOpenRead or fmSharedenyNone);
    OleGraphic.LoadFromStream(fs);
    form3.Image1.Picture.Assign(OleGraphic);
    form3.Shape1.Left:= dmstart.adoquery19.fieldbyname('X_Left').asinteger;      //272
    form3.Shape1.top:= dmstart.adoquery19.fieldbyname('Y_Top').asinteger;        //256
    form3.Shape1.Height:= dmstart.adoquery19.fieldbyname('X_Right').asinteger;   //20
    form3.Shape1.Width:= dmstart.adoquery19.fieldbyname('Y_Bottom').asinteger;   //113
  finally
    fs.Free;
    OleGraphic.Free
  end;
end else
begin
  try
    OleGraphic := TOleGraphic.Create;
    fs         := TFileStream.Create(remotehost+Bilder_KA_Share+'\TechPL\Leer.jpg', fmOpenRead or fmSharedenyNone);
    OleGraphic.LoadFromStream(fs);
    form3.Image1.Picture.Assign(OleGraphic);
  finally
    fs.Free;
    OleGraphic.Free
  end;
end;