Mehrere Bilder in ein Bildfeld?

[MAD_87]

Hi @all..

Wollte mal wisssen wie ich in einem Bildfeld mehrere Bilder zufällig anzeigen lasse.
Das sollte ja irgendwie mit der random- Funktion gehn.. Wäre nett wenn jemand mal nen Beispielcode oder sowas hier rein postet. Schonmal thx..

[ipworks]

Hallo
Bilder = Bitmaps?
Bildfeld = ????...Timage, TCanvas, TPaintBox

Also "Bilder im Bildfeld" finde ich in meinem Delphi nicht.
Bitte etwas genauer :)
Peter

[dizzy]

Du lieferst dir die Antwort selbst, und fragst nach fertigem Code? :roll:

[MAD_87]

Zitat:

Zitat von dizzy

Du lieferst dir die Antwort selbst, und fragst nach fertigem Code? :roll:

Ja weil ich grad erstmal anfange mit Delphi. Ich weiss dass es ne Random Funktion gibt, aber ich weiss halt net wie man die so schreibt.
Mit Bildern mein ich die Bitmaps, bzw. Jpg, .. und mit Bildfeldern die Felder wo man das Image reinlädt. Man muss ja erstmal ein Feld markieren wo mann dann das Image reinlädt. Und ich bekomm halt immer nur ein Bild pro Bildfeld, obwohl ich mehrere in eins haben will.

[Matze]

Falls du in einem Image mehrere Bilder haben möchtest, kannsu du das mit Draw realisieren.

random
random

[MAD_87]

Zitat:

Zitat von Matze

Falls du in einem Image mehrere Bilder haben möchtest, kannsu du das mit Draw realisieren.

random
random

Wie läuft denn dieser Draw Befehl?

[Matze]

Delphi-Quellcode:

var Bild1: TBitMap;
begin
  Image1.Canvas.Draw(x-Koord, y-Koord, Bild1);
end;

Edit: Delphi-Tags vergessen :wall:

[PexxeR]

Sorry, das ich jetzt auf so einen alten Beitrag antworte, bzw eine Frage habe, aber ich hatte genau das selbe Problem. So, nun habe ich mir das durchgelesen und habe es auch verstanden. Aber wie bringe ich denn Delphi bei, das es sich bei Bild1 um pic1.jpg, bei Bild2 um pic2.jpg und so weiter handelt. Das versteh ich nicht ganz... :(

[DGL-luke]

erstens musst du dann die unit jpeg einbinden. du kannst es dann so machen:

Delphi-Quellcode:

var p: TPicture;
begin
p := TPicture.Create;
p.LoadFromFile('bild1.jpg');
Image1.Canvas.Draw(x-Koord, y-Koord, p); 
end;

[PexxeR]

hmmm... das geht leider nicht (vllt. mach ich auch was falsch)
Es kommt immer die Fehlermeldung

[Error] Galerie.pas(34): Incompatible types: 'TGraphic' and 'TPicture'

Was ist zu tun??