Frame auf TImage32 "zeichnen"

[Array]

Hallo Leute!

Ich habe folgendes Problem ich möchte ein Frame auf ein TImage32 der Komponente Graphics32 "zeichnen".

Wenn ich es "normal" ohne Graphics32 mache:

Delphi-Quellcode:

Form2.image1.Canvas.Pixels[0,0] := clWhite;
Form2.image1.Canvas.Lock;
Frame1.PaintTo(Form2.image1.Canvas.Handle,0,0);
Form2.image1.Canvas.UnLock;
Form2.image1.Invalidate;
Form2.image1.SaveToFile(Dateipfad);

dann gibt es keine Probleme. Allerdings ist die Qualität dann sehr schlecht. Darum möchte ich es mit Graphics32 machen.

Und zwar so:

Delphi-Quellcode:

Form2.image1.Canvas.Pixels[0,0] := clWhite;
Form2.image1.Canvas.Lock;
Frame1.PaintTo(Form2.image1.Canvas.Handle,0,0);
Form2.image1.Canvas.UnLock;
Form2.image1.Invalidate;
Form2.image1.bitmap.SaveToFile(Dateipfad);

jedoch wird mir das Frame nicht auf das Image32 gezeichnet.

Weiß jemand von euch wie das funktionieren könnte?

Liebe Grüße

Array :)

[Jens01]

kann gerade nicht gucken, aber GR32 geht nicht über das Canvas sondern über Bitmap.

[nuclearping]

Ja, bei Image32 musst du mit der Bitmap32-Property arbeiten. Image321.Bitmap....

[Array]

Delphi-Quellcode:

  Form2.image321.bitmap.Pixels[0,0] := clWhite;
Form2.image321.bitmap.Lock;
Frame1.PaintTo(Form2.image321.bitmap.Handle,0,0);
Form2.image321.bitmap.UnLock;
Form2.image321.Invalidate;

Auch wenn ich die Bitmap-Property verwende, zeichnet mir Delphi einfach nicht das Frame auf das TImage32.

Hat nicht jemand einen konkreten Lösungvorschlag?

[nuclearping]

Hast du dem Bitmap eine Größe zugewiesen? .Width, .Height?

[Jens01]

So hasts funktioniert!
Self = TForm
img1 = TImage32

Delphi-Quellcode:

  img1.Bitmap.Clear(clWhite32);
  img1.Bitmap.SetSize(Self.Width, Self.Height);
  img1.Bitmap.Lock;
  try
    Self.PaintTo(img1.Bitmap.Handle, 0, 0);
  finally
    img1.Bitmap.Unlock;
  end;

[Array]

Danke nuclearping = Höhe und Breite hat gefehlt; manchmal sieht man vor lauter Zeilen den Code nicht mehr :)

Danke Jens01 = deine Methode ist einen Ticker sauberer als meine.


Lg