Cita:
Empezado por coso
Hola,
de todas maneras, por lo que parece lo que quieres hacer es una cuadrícula. Lo mejor seria algo asi:
Código Delphi [-]
canvas.Pen.Color := clBlack;
for i := 0 to (Canvas.Width div 10) - 1 do
begin
Canvas.MoveTo(i*10,0);
Canvas.LineTo(i*10,Height-1);
end;
for i := 0 to (Canvas.Height div 10) - 1 do
begin
Canvas.MoveTo(0,i*10);
Canvas.LineTo(Width-1,i*10)
end;
Y aun puedes usar el brush style y mas maneras... Saludos
|
Ta muy bueno ese fuente ;D, pero ve si lo que quieres solo es hacer el plano nomas puedes usar:
Código Delphi
[-]
Image1.Canvas.MoveTo(0, Image1.Height div 2);
Image1.Canvas.LineTo(200, Image1.Height div 2);
Image1.Canvas.MoveTo(Image1.Height div 2, 0);
Image1.Canvas.LineTo(Image1.Height div 2, 200);
Image1.Canvas.LineTo(Image1.Height div 2, Image1.Height div 2);
P.D.Mi imagen esta de dimensiones iguales, osea 200x200.