Versuche es mal mit einer PaintBox. Die ist von TGraphicControl abgeleitet, also könnte das folglich klappen:
Zeichne im OnPaint einfach folgendes Raster:
Delphi-Quellcode:
var i, j: Integer;
begin
for i := 0 to PaintBox1.Width div 2 do
for j := 0 to PaintBox1.Height div 2 do
begin
PaintBox1.Canvas.Pixels[i*2, j*2] := clBlack;
PaintBox1.Canvas.Pixels[i*2+1, j*2+1] := clBlack;
end;
end;
Das sieht zwar nicht so ganz professionell aus, weil man eben doch ein Raster erkennt, aber so geht es am einfachsten.