PaintTo verunstaltet Label-Texte

[MasterEvil]

Hallo,

ich habe ein Panel auf dem mehrere Labels liegen. Nun versuche ich per Panel.PaintTo dies auf ein Bitmap-Canvas zu zeichnen. Ansich klappt das auch, nur der Text der Labels sieht danach gestaucht aus. Es wird aber nicht skaliert. Wenn ich z.B. ein Shape als Kreis mit auf das Panel packe, sieht dies danach richtig aus.
Mit Canvas.CopyRect habe ich das selbe Ergebnis.

Das Problem wird deutlich wenn ihr euch das Bild im Anhang anguckt.
Weiß jemand wodran das liegt?

Gruß,
Steffen

[NickelM]

Hm...ich würd sagen liegt einfach an der Farbe des Textes...mach mal bevor du den Text kopierst einfach Canvas.Font.Color := Label.Color.
Danach müsste es gehen. Ich vermute er hat noch als Fontfarbe die Farbe des Rahmens drin oder so.
Wenn net Font.Color geht vllt Brsuh.Color

Gruß NickelM

[himitsu]

nja, die Farbe scheint ja OK zu sein.

Aber die Idee war eventuell nicht schlecht

versuch mal (praktisch alles inklusive FontName und Co.)
Canvas.Font.Assign(Label.Font);

[MasterEvil]

Wirkt leider nicht
Er zeichnet ja glaube ich auch mit dem Canvas nicht den Text neu, sondern kopiert ihn nur von einem Canvas auf den anderen. Man erkennt ja auch noch, dass Schriftart etc stimmen, er wird nur so gestaucht und einzelne Buchstaben überlappen sich ...

Kann doch nicht sein, dass das nicht geht ...

[Medium]

Schaut mir eher danach aus, dass sich ClearType beim PaintTo nicht so recht traut. Wie schaut es denn aus, wenn du dir von Hand den DC holst und mit BitBlt kopierst? Oder macht PaintTo genau das (grad kein Delphi zur Hand)?

[iGoA]

Für mich sieht es so aus, als könne er auf dem Zielcanvas nur ganz weiße oder ganz schwarze Pixel darstellen. Die Abstufungen dazwischen, welche zur Glättung der Schrift benötigt werden, können irgendwie nicht übernommen werden und werden komplett schwarz. Prüf doch mal, ob das Grafikobjekt auf dem Du zeichnen willst, die benötigte Farbtiefe hat.

[MasterEvil]

Das wars!
Die Farbtiefe der Bitmap war zu gering.

Vielen Dank!