Kling ein bisschen nach dem Problem, was häufig bei Kantenglättung und pixelgenauer Darstellung auftritt.
Hilft das?
Delphi-Quellcode:
p1.Create(I * (W + 1) + 10 + 0.5, I * W + 10 + 0.5); // 1 Pixel Abstand zwischen den Linien
p2.Create(I * (W + 1) + 10 + 0.5, I * W + 10 + 100 + 0.5);