Mehrere Bilder in ein Bildfeld?

[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: