Bilder ersetzen!

[maximi]

Hallo zusammen.
Mir ist aufgefallen, dass ich mit diesem Code
  Bild1.Picture.Bitmap.LoadFromFile(); keine vorhandenen Bilder ersetzen, sondern nur noch ein zweites hinzufügen kann. Dies kann man am besten an dem unten angehängten Bild erkennen.
Wie kann ich also Bilder ersetzen?

Danke!


Max

[Michael Leyhe]

HI

Versuche mal vorher ein weißes Rechteck in das image zu zeichnen

Bild1.canvas.rectangle (0,0,xmax, ymax); Vorher natürlich noch die Füllfarbe auf weiß stellen und dann müsste es funktionieren.
Bei mir hat es auf jedenfall geklappt.

[MikeS]

du könntest es auch erst mit

bild1 := nil; leeren und dann ein neues reinladen!

[maximi]

Achso. Ich dachte da gibts ne bessere Lösung!

Danke!

[hboy]

Zitat von MikeS:

du könntest es auch erst mit

bild1 := nil; leeren und dann ein neues reinladen!

bloß nicht! sonst ist ganz schnell der Speicher weg...

bild1.free;

oder FreeAndNil(bild1);

[hboy]

wenn das bild durch ein anderes ersetzt werden soll mal Canvas.CopyRect oder BitBlt aus der API versuchen um Bildinhalte rüberzukopieren.

[maximi]

Ich weiß das Thema ist schon wieder etwas älter, aber ich habe noch eine Frage.
Wenn ich das hinschreibe:

Zitat:

Bild1.canvas.rectangle (0,0,xmax, ymax);

flimmert mein Bild.
Wie kann ich denn das verhindern?

[Matze]

Vielleicht nützt's was:

DoubleBuffered := true

[maximi]

hab ich auch schon drin. die bilder wechseln alle 10 Millisekunden.

[zappel]

Wäre es nicht sowieso sinnvoller, die die Datei in eine Variable zu laden und dann die Variable dem Bild zuzuweisen? Die Variable kann dann wieder freigegeben werden. Wenn du nämlich viele größere Bilder mit deiner Methode lädst, ist der Speicher bald voll. Hatte das Problem mit einem Programm, das eine Art Diashow ermöglicht...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
begin
  bmp:=TBitmap.Create;
  bmp.LoadFromFile('bild.bmp');
  Image1.Picture.Assign(bmp);
  bmp.Free;
end;