Desplazamiento dentro de un PaintBox

[ecfisa]

Hola Gonza10.

Empezado por Gonza10

claro, son 120 paginas en las que se puedan cargar imágenes dibujar y escribir texto.

En realidad, Casimiro sabe perfectamente que se puede graficar en ellas, lo que deseaba saber es de que tipo eran esas páginas.

Con esa respuesta quedamos como entonces... Pero si se trata de un sólo gráfico que has dividido en páginas de tamaño arbitrario, una opción es hacer que el Parent del TPainBox sea un TScrollBox para así usar los TScroolBar de este componente (con el detalle que tendrás que repintar el gráfico en el evento OnPaint del TPainBox).

Un ejemplo de lo que te comento:

Código Delphi [-]
...
implementation

var
  Picture: TPicture;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Picture:= TPicture.Create;
  Picture.LoadFromFile('Las_120_Páginas.JPG');
  PaintBox1.Width := 2000;   // Ancho de la página en píxels (Ej.)
  PaintBox1.Height:= 16000;  // Largo de las páginas en píxeles (Ej.)
  PaintBox1.Canvas.Draw(0,0, Picture.Graphic);
  PaintBox1.Parent:= ScrollBox1;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  PaintBox1.Canvas.Draw(0, 0, Picture.Graphic);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Picture.Free;
end;

Si no es lo que buscas, quedamos a la espera de tu respuesta a la consulta del mensaje #2

Saludos