Coloca este codigo en el evento OnPaint de tu
PaintBox
:
Código Delphi
[-]procedure TForm1.PaintBox1Paint(Sender: TObject);
var f,i:Integer;
begin
i:=0;
f:=PaintBox1.Height;
while ( i < PaintBox1.Width ) do
begin
PaintBox1.Canvas.Pen.Color:=clRed;
PaintBox1.Canvas.MoveTo(i,0);
PaintBox1.Canvas.LineTo(i,f);
Inc(i,5);
end;
end;
Espero te sea de utilidad
.
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
