scroll Horizonta y Vertical en una Window

[infosys]

Necesito mostrar una imagen en formato bmp cuyo tamano es mayor que la capacidad de la pantalla del Pocket Pc. Mi idea es mediante una Window con barras de desplazamiento vertical y horizontal, pero no logro que la imagen se desplace al mover las barras, alguien tiene algun ejemplo o alguna idea sobre este tema?

Gracias
Miguel

[Antonio Linares]

Miguel,

Vamos a intentar proporcionarte un ejemplo lo antes posible. Disculpa nuestro retraso en responderte. Gracias.

[infosys]

Antonio, Gracias de todos modos ya logre resolverlo.

Saludos

Miguel

[Antonio Linares]

Miguel,

Te importaría mostrarnos el código en un pequeño ejemplo para que le sirva así a otros usuarios ? Gracias.

[infosys]

Si Antonio, disculpa, es que se me paso.

El codigo es mas simple de lo que parece y resulta de maravillas.

#include "FWCE.ch"
#include "WINAPI.ch"

Static oWnd

Function Main()
local oBmp

DEFINE WINDOW oWnd TITLE "GRILLA DE PERFORACION";
MENU BuildMenu()

@ 1, 1 BITMAP oBmp FILENAME Curdir() + "\malla.bmp" SIZE 230,255 SCROLL of oWnd

ACTIVATE WINDOW oWnd

oBmp:End()

Return Nil

//------------------------------------------
Function BuildMenu()
//------------------------------------------

Local oMenu

DEFINE oMenu RESOURCE 102
REDEFINE MENUITEM ID 100 of oMenu ACTION .....
REDEFINE MENUITEM ID 110 of oMenu ACTION oWnd:End()

Return oMenu



Espero que les sirva

Saludos

[Antonio Linares]

gracias