Quiero dibujar en un ScrollBox utilizando el canvas, dependiendo del tamaño de datos a incluir este se puede alargar y necesito precisamente la capacidad de desplazamiento que me ofrece el scrollbox.
Ahora mi primera duda: El scrollbox no se puede manejar con el canvas por lo que tengo que crear un PaintBox dentro de el para que funcione.
Por defecto el paintbox debe ser del mismo tamaño del scrollbox para que no muestre las barras de desplazamiento, hasta alli vamos bien. El problema esta que si igualo heigth y width de ambos controles me salen las barras, esto lo arreglo quitandole 10 a cada valor. Pero si hago esto no se me dibuja nada
Alguien sabe que puede estar pasando?
delphi
var Fondo: TPaintbox; i: Integer; begin //Si existe un componente en fondo lo borra I := 0; while Contenedor.ControlCount > 0 do begin Contenedor.Controls[I].Destroy; end; //Crea el lienzo donde se dibujara el grafico Fondo := TPaintbox.Create(Contenedor); Fondo.Parent := Contenedor; Fondo.Top := 0; Fondo.Left := 0; Fondo.Height := Contenedor.Height - 4; Fondo.Width := Contenedor.Width - 4; //Configura el tipo de las lineas Fondo.Canvas.Pen.Color := clBlack; Fondo.Canvas.Pen.Style := psSolid; //Comienza a dibujar en las posiciones Fondo.Canvas.MoveTo(20, 20); Fondo.Canvas.LineTo(100, Fondo.Height- 20); end;