Danke, aber ich habe da immer noch einen Denkfehler. Das Bild wird noch nicht korr. gezeichnet...
// Edit:
Behoben, dank Hilfe von
Muetze1.
Delphi-Quellcode:
procedure WritePixelToMonoBitmap(bmp: TBitmap; x,y: Integer; Value: TDigits);
var
p: pByte;
lIndex, lBit: Integer;
begin
p := bmp.Scanline[y];
lIndex := x Div 8;
lBit := x Mod 8;
Inc(p, lIndex);
If Value = 1 Then
p^ := p^ Or ( 1 Shl (7-lBit) )
Else
p^ := p^ And ( Not ( 1 Shl (7-lBit) ) );
end;