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;