Delphi - Delphi, figuras geometricas

Hola chicos, espero puedan ayudarme, quiero hacer figuras geometricas con Canvas, y la verdad les soy honesta, las figuras no me salen en donde las quiero, es decir las figuras no salen en las coordenadas o pixeles donde yo quiero, aqui esta el cogido que yo tengo hasta el momento:

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,w:Integer;

begin
for w := 30 to 60 do
begin
i := 60;
begin
for j := w to 60 do
begin
image1.Canvas.Pixels[i,j]:=rgb(0,0,0);
i:=i-1;
end;
end;

end;
for I := 60 to 90 do
begin
for j := 30 to 60 do
begin
image1.Canvas.Pixels[i,j]:=rgb(0,0,0);
end;
end;
end;

Pues pon que dibuje en otro sitio.... Sl le pones Canvas.Pixels[1,1] va a dibujar en la esquina superior izquierda de la pantalla. Canvas.Pixels[1,2] dibuja en la siguiente línea.

Te dejo este codigo de ejemplo, lo unico que debes cambiar son estas lineas


debes de poner las coordenadas donde deseas que aparesca la figura, si lo dejas como está se dibuja en el centro de la form

• dibuja_poligonos.zip(8,5 KB)

Hola, este es un viejo código que me resultó muy útil para dibujar en el canvas, lo reescribí en Embarcadero XE, el original pertenece a Víctor Moral, del libro Delphi 4.

Espero te resulte útil.

• Poligonos.rar(2,0 MB)