Delphi-Quellcode:
procedure WritePixelToMonoBitmap(bmp: TBitmap; x,y: Integer; Value: TDigits);
var
p: PByte;
lIndex, lsBit: Integer;
begin
p := pByteArray(bmp.Scanline[y]);
// hier fehlt noch die umrechnung auf ein BIT
lIndex := x Div 8;
lBit := x Mod 8;
Inc(p, lIndex);
If ( PixelSetzen ) Then
p^ := p^ Or ( 1 Shl lBit )
Else
p^ := p^ And ( Not ( 1 Shl lBit ) );
end;
Ohne zu testen einfach mal so schnell getippt, sollte
theoretisch genau das gesuchte machen...
Du musst natürlich noch dein Value vom Typ TDigits auf die If Abfragebedingung "PixelSetzen" ummünzen...