Deutsches Lazarusforum

Hallo Theo,

Danke für Deine schnelle und fleißige Hilfe!

Es ist ja nun nicht so, das gleich eine fertige Lösung wünsche, wenn ich mal Frage. Auch ist es nicht meine Art die Hände in den Schoß zu legen zun zu warten bis das Problem gelöst ist. Soll heißen ich habe weiter probiert und gesucht. dann ...

Ja, das stimmt, aber das war ein versehen - Entschuldigung!! - , so wie der code jetzt aussieht macht auch nur das war ich zu beginn schon beschrieben habe.

So sieht es jetzt ja im Code aus, aber es erscheint immernich das graue Rechteck.

procedure TForm1.FormCreate(Sender: TObject);
var Bmp1 :TBitmap;
Bmp :TJPEGImage;


begin
Bmp1 := TBitmap.Create;
Bmp := TJPEGImage.Create;


Bmp1.Height:=200;
Bmp1.Width:=200;
Bmp.LoadFromFile('C:\Beispiel1.jpg ...

Also ich habe jetzt folgendes eingefügt

Bmp.Canvas.Draw(10,10,Bmp1); Image1.Picture.Assign(Bmp);

Es erscheint weiterhin nur ein graues Rechteck oben links in der Ecke.

Wie müsste der Code oben denn aussehen, damit es wirklich funktioniert?

Gruß
Eckhard!

Hallo Theo,

zunächst vielen Dank für Deine schnelle Antwort!

Das verstehe ich jetzt aber nicht.

Ich möchte doch nicht Bmp auf Bmp zeichnen sondern Bmp1 soll oben links auf Bmp gezeichnet werden.Was habe ich da falsch verstanden?

Sorry wegen der Variablennamen, aber das ist nur ein Beispiel, da ...

Hallo,

ich bin ganz neu hier, und wie das so ist habe ich auch gleich eine Frage.

ich versuche ein Bild auf ein vorhandenes Bild zu zeichen. Mit folgenden Code klappt das nicht. Dort wird zwar auf das vorhandene bild gezeichnet, aber eben nicht das angegebene Bild sondern nur ein graues Rechteck ...