mover ScrollBox para centrar un TImage en pantalla

[Snaked]

oye gracias hombre...... lo estaba haciendo de una manera similar aunque no tan sencilla como tu la has hecho

muchas gracias.....voy a probarlo a ver que tal funciona

[Snaked]

pues no me funciona correctamente ecfisa......

[Snaked]

mira ecfisa... yo lo estoy haciendo asi de esta manera para controlar los desplazamientos del Scrollbox

moveticks y paginas son variables int globales

al principio pongo el cursor del raton encima de las barras del Scrollbox para que actualice inmediatamente si se produce la condicion

el área de visualizacion en pantalla de la imagen es de unos 960x290 pixeles asi que si quiero ver mas imagen es cuando hago esto en el Form1 evento KeyDown

Código PHP:

  SetCursorPos(20, 325);
  switch(Key)
  {
    case VK_UP:
                moveticks_y -= 1;
                if(moveticks_y < 0) moveticks_y = 0;
                if(ceil(moveticks_y / 8) > 1)
                 {
                  sScrollBox1->VertScrollBar->Position = 290 * pagina_y;
                 }
                 else { sScrollBox1->VertScrollBar->Position = 0; }
          //ShowMessage("UP");
    break;

    case VK_DOWN:
                moveticks_y += 1;
                if(moveticks_y > Image1->Height / 32) moveticks_y = Image1->Height / 32;
                if(ceil(moveticks_y / 8) > 1)
                 {
                  sScrollBox1->VertScrollBar->Position = 290 * pagina_y;
                 }
                 else { sScrollBox1->VertScrollBar->Position = 0; }
          //ShowMessage("DOWN");
    break;

    case VK_LEFT:
                moveticks_x -= 1;
                if(moveticks_x < 0) moveticks_x = 0;
                if(ceil(moveticks_x / 29) > 1)
                 {
                  sScrollBox1->VertScrollBar->Position = 960 * pagina_x;
                 }
                 else { sScrollBox1->VertScrollBar->Position = 0; }
          //ShowMessage("LEFT");
    break;

    case VK_RIGHT:
                moveticks_x += 1;
                if(moveticks_y > Image1->Width / 32) moveticks_y = Image1->Width / 32;
                if(ceil(moveticks_x / 29) > 1)
                 {
                  sScrollBox1->VertScrollBar->Position = 960 * pagina_x;
                 }
                 else { sScrollBox1->VertScrollBar->Position = 0; }
          //ShowMessage("RIGHT");
    break;


  } 


[ecfisa]

Hola.

Empezado por Snaked

pues no me funciona correctamente ecfisa......

Que extraño... como te muestro en la animación, me funciona correctamente. Te adjunto los archivos fuente para que los revises y pruebes con tranquilidad.

Ejecuté tu código, pero no desplaza la imágen en absoluto.

Saludos

[Snaked]

gracias ecfisa.... mañana lo revisare y lo adaptaré al codigo a ver si funciona

mira el ejemplo de Wifi Detection que he puesto en el foro

[Snaked]

por alguna misteriosa razon que no logro comprender (creo que es el GetSystemmetrics ese) cuando me salgo del borde de la imagen.....la imagen cursor se me descuadra de la rejilla virtual de 32x32 pixeles y pinto los graficos descuadrados .....

necesito que el cursor se mueva 32 pixeles en cada movimiento de las flechas pero que no se descuadre ecfisa

a ver si me echas una mano, el scroll ya lo hace bien