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??

[BenjaminH]

Nunja, was steht denn in dieser "Zeile 34"?

[Hawkeye219]

Willkommen in der Delphi-PRAXiS, PexxeR!

Die Draw-Methode benötigt ein TGraphic-Objekt, erhält aber in p ein TPicture-Objekt. Das Bild sollte zudem freigegeben werden, wenn es nach dem Zeichnen nicht mehr benötigt wird:

Delphi-Quellcode:

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

Gruß Hawkeye

[PexxeR]

mhhhh... I LOVE YOU

DANKE !!!!!!!!!!
GEILES FORUM!!!!!!

waaaahhh halt!!!
Jetzt funktioniert es ja, aber anstatt mir das korrekte Bild anzuzeigen, wird nur ein weißes Feld angezeigt. Wo muss denn das eigentliche Bild abgespeichert sein? Ich habe es zusammen mit allen Projektdateien in einem eigenen Ordner gesaved, aber Delphi zeigt es wie gesagt nicht korrekt an...

[3_of_8]

Nanana, gleich so euphorisch...

[semo]

wenn du das so aufrufst:

p.LoadFromFile ('bild1.jpg');

dann muss das Bild im Ordner der *.exe-Datei liegen.

[PexxeR]

ok, es klappt jetzt!!! keine Ahnung was da jetzt noch falsch war, aber es funzt!!!

DANKÖ!!

[3_of_8]

Zitat:

Zitat von computer-glossar.de

wenn du das so aufrufst:

p.LoadFromFile ('bild1.jpg');

dann muss das Bild im Ordner der *.exe-Datei liegen.

Eher im aktuellen Arbeitsverzeichnis, oder?

[EDatabaseError]

Zitat:

Zitat von 3_of_8

Zitat:

Zitat von computer-glossar.de

wenn du das so aufrufst:

p.LoadFromFile ('bild1.jpg');

dann muss das Bild im Ordner der *.exe-Datei liegen.

Eher im aktuellen Arbeitsverzeichnis, oder?

jub 3_of_8
wenn du jetzt im Prog. eine Datei z.B. via Open oder savedialog öffnest oder speicherst dann wechselt sich das arbeitsverzeichnis und dann bekommst du ne exception bei deinem aufruf.
Deshalb:
OnCreate beim Haupform:
GetDir(0,workdir); //Dabei ist workdir eine GLOBALE Variable

und dann einfach

p.LoadFromFile (workdir + '\bild1.jpg');

[3_of_8]

Oder einfach:

Delphi-Quellcode:

var AppPath: String;

//...

initialization
AppPath:=ExtractFilePath(ParamStr(0));

[EDatabaseError]

oder so ;-) :lol:

[PexxeR]

öhm ja... :gruebel:
auch wenn ich davon sogut wie kein wort geschnallt habe... WEITER SO!! :stupid:

[Nils_13]

Hi,

1. Kommt drauf an, wie groß die Bilder sein sollen. --> falls klein kannst du eine ImageList benutzen.
2. Falls es dich nervt Bilder immer mitzuschicken, kannst du dies benutzen.

Zitat:

Zitat von PexxeR

öhm ja... :gruebel:
auch wenn ich davon sogut wie kein wort geschnallt habe... WEITER SO!! :stupid:

Dann lass es dir von uns erklären, benutze die Forensuche oder (immer zuerst) die Delphi-Hilfe (Quelltexteditor --> F1 oder einfach im Hauptmenü unter Hilfe --> Delphi-Hilfe).