verhindern das bereits vorhandenes bild überschrieben wird

[mcfit]

hi mal ne frage kann mir jemand befehle nennen mit denen ich verhindere das ein bereits vorhandes bild im timage überschrieben wird wenn ich ein zweites bild öffnen will??

mfg

[DeddyH]

Du wirst das 2. Bild ja wohl irgendwie selber laden. Dann lass das doch einfach, wenn die vorhandene Grafik nicht leer ist (Eigenschaft "Empty"). Oder hab ich die Frage mal wieder nicht verstanden?

[toms]

Zitat:

Zitat von mcfit

hi mal ne frage kann mir jemand befehle nennen mit denen ich verhindere das ein bereits vorhandes bild im timage überschrieben wird wenn ich ein zweites bild öffnen will??

mfg

Möchtest du vielleicht, dass das 2. Bild über dem ersten erscheint?

[mcfit]

genau das erste soll noch zu sehen sein und das zweite bild welches kleiner ist soll einfach darüber kommen.

[Neutral General]

Hi,

Du musst/kannst das neue Bild in ein temporäres Bitmap laden und dann auf das Bitmap im Image malen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var tmp: TBitmap;
begin
  if Opendialog1.Execute then
  begin
    if Image1.Picture.Bitmap.Empty then
      Image1.Picture.Bitmap.LoadFromFile(Opendialog1.FileName)
    else
    begin
      tmp := TBitmap.Create;
      try
        tmp.LoadFromFile(Opendialog1.FileName);
        Image1.Picture.Bitmap.Canvas.Draw(0,0,tmp);
      finally
        tmp.Free;
      end;
    end;
  end;
end;

[mcfit]

erstmal danke für die lösung problem ist ich möchte bereits fertige bilder rüberlegen.
achso und mir ist noch grad ein weiteres problem aufgefallen meine bilder dich ich rüberlegen will sind rund^^
wie krieg ich dann eigentlich diesen schwarzen rand um das bild weg???

mfg