Zitat von
Blup:
Erst Monochrome setzen, danach Pixelformat.
Delphi-Quellcode:
Bitmap.Monochrome := True;
Bitmap.Pixelformat := pf1Bit;
Danke! Grundsätzlich funktioniert das auch. Allerdings ist das Ergebnis von der Qualität her nicht ganz das, was ich brauche.
Ich habe jetzt die Feststellung gemacht, dass die Function PlgBlt() offensichtlich Probleme hat. Die Bilder werden - wie schon beschrieben - um den Scanner nicht zu beeinflussen, sofort nach dem Scannen erstmal in einer TObjectList als TBitmap abgelegt. Erst nach dem Scannen des letzten Bildes startet das Drehe, Stretchen und Speichern. Ich hatte deshalb zuerst die TObjectList als Übeltäter im Verdacht. Aber auch wenn ich das Bild sofort nach dem Scannen verarbeite, klappt das Drehen nicht. Und das obwohl ich von TDelphiTwain ein TBitmap mit pf1bit geliefert bekomme.
Ich habe aber die Feststellung gemacht, dass es auf
die Reihenfolge ankommt. Wenn ich das Bild zuerst mit StretchBlt() bearbeite, dann klappt das Drehen anschließend mit PlgBlt(). Aber viel besser ist es, dass er sich dann auch pf1bit merkt und ich nichts mehr machen muss. Mein Bild ist und bleibt monochrom.
---> Keine Ahnung warum. Aber wichtig ist das Ergebnis.
Danke an alle Mitdenker.