Forum: Multimedia
by himitsu,
16. Jun 2020
Die Saftsäcke nutzen viele private Funktionen und die alle nachzubauen, das geht ja mal garnicht.
TBitmap.SetPixelFormat -> TBitmap.CopyImage, TBitMap.CopyPalette, TBitMap.CopyBitmap, ...
Die Palette um das PixelFormat := pf4bit; auszutauschen hat funktioniert, aber wegen dem DeleteObject (ohne ist alles Schwarz) ist das auch keine schöne Lösung.
const Grays: TArray<TColor> = ;
var OldPal...
Forum: Multimedia
by himitsu,
16. Jun 2020
Wie gesagt, ich hab bereits ein Graustufenbild (dessen 36864 Bits) mit 4 Bit pro Pixel.
Aber ja, die Pixel einzeln zu kopieren ginge auch, aber das wollte ich möglichst vermeiden, wenn es direkt ginge.
PixelColor = $00111111 * 4BitByte
Mit Paint kann ich ja auch ein Graustufenbild als 4-Bit abspeichern
und dann hat die Farbpalette nur noch bzw. mehr Grautöne.
Somit kann PixelFormat =...
Forum: Multimedia
by himitsu,
16. Jun 2020
Irgendwie bin ich zu doof das zu finden, wie man sowas macht.
Im Prinzip wollte ich einfach nur schnell einen 4-Bit-Stream in Bitmap.Scanline kopieren
und das als Graustufen sehen, ohne erst die Pixel einzeln umrechnen zu müssen,
aber aktuell sieht das Bild dann sehr farbenfroh aus, selbst wenn ich vorher das Monochrom-Property setze.
Inzwischen das Palette-Property entdekt, darüber mit...