FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Desplazar Grafico en un ScrollBox
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... |
#2
|
||||
|
||||
Cita:
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
Desplazamiento Corregido
He corregido el procedimiento a:
procedure TForm1.MoverXY(x, y: integer); //Ubica el punto (x, y) del grafico en la posición del Mouse var p: TPoint; begin GetCursorPos(p); p:= ScrollBox1.ScreenToClient(p); LockWindowUpdate(ScrollBox1.Handle); ScrollBox1.HorzScrollBar.Position := x - p.X; ScrollBox1.VertScrollBar.Position := y - p.Y; LockWindowUpdate(0); end; Ahora ya funciona perfectamente, Gracias Saludos!! |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Desplazar ScrollBar de TDBGrid | eureka | Conexión con bases de datos | 8 | 20-09-2005 19:54:32 |
Desplazar DBgrid hacia la derecha | amadis | OOP | 0 | 22-08-2005 14:39:34 |
comparacion con tablas y desplazar cursor combobox | ercrizeporta | Conexión con bases de datos | 3 | 27-06-2005 02:33:39 |
ScrollBox | altp | Varios | 0 | 16-09-2004 11:55:48 |
Como ajustar y/o desplazar texto | judoboy | Impresión | 3 | 21-07-2003 20:08:50 |
|