Hola amigos,
Estoy haciendo un programa de graficos grandes en Delphi 6, donde tengo un ScrollBox y dentro un PaintBox
Asimismo inicializo con
ScrollBox1.HorzScrollBar.Range := 10000;
ScrollBox1.VertScrollBar.Range := 10000;
PaintBox1.Align := alClient;
Por otra parte he hecho el procedimiento:
procedure TForm1.MoverXY(x, y: integer);
//Ubica el punto x, y en la posición del Mouse
var
p: TPoint;
begin
GetCursorPos(p);
p:= ScrollBox1.ScreenToClient(p);
ScrollBox1.HorzScrollBar.Position := x - p.X;
ScrollBox1.VertScrollBar.Position := y - p.Y;
end;
Este procedimiento lo utilizo para mover el grafico con el mouse,
trabaja muy bien, pero tiene un defecto que grafica dos veces, primero desplaza horizontalmente el grafico y luego verticalmente, lo cual ocasiona en maquinas lentas un efecto de salto.
La pregunta es ¿Existe alguna instruccion para que ambas barras se muevan al mismo tiempo?
Gracias por sus comentarios...