Ohh, da hab ich dich wohl falsch verstanden.
Delphi-Quellcode:
XY := 50;
Image1.Canvas.Rectangle( XY, 0, 2 * XY + 1, XY + 1); {1}
Image1.Canvas.Rectangle( XY, XY, 2 * XY + 1, 2 * XY + 1); {2}
Image1.Canvas.Rectangle( XY, 2 * XY, 2 * XY + 1, 3 * XY + 1); {3}
Image1.Canvas.Rectangle( XY, 3 * XY, 2 * XY + 1, 4 * XY + 1); {4}
Image1.Canvas.Rectangle( 0, XY, XY + 1, 2 * XY + 1); {5}
Image1.Canvas.Rectangle(2 * XY, XY, 3 * XY + 1, 2 * XY + 1); {6}
{ 1 }
{ 5 2 6 }
{ 3 }
{ 4 }
{...
} => Position (siehe Bildchen)
XY => Grösse
+ 1 => Ausgleich, da Rectangle immer je ein Pixel schmaler und flacher gezeichnet werden