PngDelphi - Transparent wird schwarz gedruckt.

[bernau]

Hi,

wer von euch nutzt die Komponente PngDelphi.

Ich stoße damit grade auf einen eigenartigen Fehler. Wenn ich eine PNG-Grafik mit transparenten Bereichen lade, wird diese korrekt auf dem Bildschirm-Canvas gezeichnet. Aber wenn ich den Printer-Canvas benutze, dann werden die transparenten Stellen schwarz gezeichnet.

Hatt jemand eine Idee, woran das liegen könnte?

[matashen]

Hallo,

printer.canvas ist so eine Sache. Das Teil zickt und ist auch nicht gedacht so angesteuert zu werden wie ein Bildschirm.

Hast du einen Brocken Code für mich?

Gruß
Matthias

[Pfaffe]

Ich kenne das Problem und gehe davon aus, dass es sich um Druckertreiberbugs handelt. Es hat nichts mit pngDelphi zu tun. Meine prakmatische Lösung: Für den Ausdruck ein Bild mit weißem Hintergrund verwenden.

[nuclearping]

Zitat von Pfaffe:

Für den Ausdruck ein Bild mit weißem Hintergrund verwenden.

Das klappt nur solange, wie die Bilder nicht irgendwo drüberliegen.

@bernau:
Eine andere Möglichkeit wäre, statt die Ausgabe auf den Printer.Canvas zu zeichnen, alles in eine Puffer-Bmp zu zeichnen und diese dann an den Drucker zu schicken.

[matashen]

vieleicht hilft das

Code:

PROCEDURE PrintBitmap(Canvas:  TCanvas; DestRect:  TRect;  Bitmap:  TBitmap);
  VAR
    BitmapHeader:  pBitmapInfo;
    BitmapImage:  POINTER;
    HeaderSize: Cardinal;
    ImageSize   :  DWORD;
BEGIN
  GetDIBSizes(Bitmap.Handle, HeaderSize, ImageSize);
  Bitmapheader := VirtualAlloc(nil, HeaderSize, MEM_COMMIT, PAGE_READWRITE);
  BitmapImage := VirtualAlloc(nil, ImageSize, MEM_COMMIT, PAGE_READWRITE);

  TRY
    GetDIB(Bitmap.Handle, Bitmap.Palette, BitmapHeader^, BitmapImage^);

    StretchDIBits(Canvas.Handle,
                  DestRect.Left, DestRect.Top,     // Destination Origin
                  DestRect.Right  - DestRect.Left, // Destination Width
                  DestRect.Bottom - DestRect.Top,  // Destination Height
                  0, 0,                            // Source Origin
                  Bitmap.Width, Bitmap.Height,     // Source Width & Height
                  BitmapImage,
                  TBitmapInfo(BitmapHeader^),
                  DIB_RGB_COLORS,
                  SRCCOPY)
  FINALLY
    VirtualFree(Bitmapheader, 0, MEM_FREE);
    VirtualFree(bitmapimage, 0, MEM_FREE);
  END
END {PrintBitmap};

[bernau]

Zitat von matashen:

vieleicht hilft das

Nicht ganz. PngObject ist ja kein Bitmap und kann deiner Funktion somit nicht übergeben werden.