Power Builder - resolucion de pantalla

Buena tarde, mi inquietud es la siguiente, tengo un aplicacion en P.B 7.x y el diseño fue realizado en una resolucion de 1024 x 768 lo que deseo hacer es cambiar la resolucion de la pantalla a 800 x 600 inmediatamente el usuario entre a la aplicacion.

Estoy un poco urgido con este problema por que de lo contrario me tocara rediseñar todo y no tengo tanto tiempo.

Les agradecedira si me envia los pasos a seguir.

Gracias
Ricardo.

mira en http://powerbuilder.iespana.es en activex ressolucion , hay un ocx q puedes utilizar para ello

suerte

Gracias por tu aporte Amilcar, resulta que neesito como serian los pasos para hacerlo; y segundo si es mejor desde Power sin utilziar OCX mucho mejor. en todo caso lo voy a buscar. y lo probare.
gracias.

Hola

Nativo de PB no hay
La opcion mas facil es la que te propone Ricardo

caso contrario es via APis.

Alterando a resolucion de monitor
[ Declare a function externa ]

FUNCTION long ChangeDisplaySettingsA (ref devmode lpst, ulong Flags) &
LIBRARY "USER32.DLL"

[Definicion de la estructura de variable : devmode]

character dmdevicename[32]
integer dmspecversion
integer dmdriverversion
integer dmsize
integer dmdriverextra
long dmfields
integer dmorientation
integer dmpapersize
integer dmpaperlength
integer dmpaperwidth
integer dmscale
integer dmdefaultsource
integer dmprintquality
integer dmcolor
integer dmduplex
integer dmresolution
integer dmttoption
integer dmcollate
character dmformname[32]
integer dmlogpixels
long dmbitsperpel
long dmpelswidth
long dmpelsheight
long dmdisplayflags
long dmdisplayfrequency
long dmicmmethod
long dmicmintent
long dmmediatype
long dmdithertype
long dmreserved1
long dmreserved2

[Declare as Instance variable ]

Ulong CDS_FORCE = 8*16*16*16*16*16*16*16
long DM_BITSPERPEL_H = 4*16*16*16*16
long DM_PELSWIDTH_H = 8*16*16*16*16
long DM_PELSHEIGHT_H = 16*16*16*16*16
long DM_DISPLAYFLAGS_H = 2*16*16*16*16*16

[ en PowerScript ] para 800x600]

devmode dm
long a

dm.dmPelsWidth = 800
dm.dmPelsHeight = 600
dm.dmBitsPerPel = 16
dm.dmFields = DM_PELSWIDTH_H + DM_BITSPERPEL_H
dm.dmSize = 188
a = ChangeDisplaySettingsA(dm, CDS_FORCE)

[ en PowerScript] para 1024x768]

devmode dm
long a

dm.dmPelsWidth = 1024
dm.dmPelsHeight = 768
dm.dmBitsPerPel = 16
dm.dmFields = DM_PELSWIDTH_H + DM_BITSPERPEL_H
dm.dmSize = 188
a = ChangeDisplaySettingsA(dm, CDS_FORCE)

Saludos

Jorge, buena tarde te cuento que el ejemplo que expusiste no me funcionó, ya como comente anteriormente ya lo probe con OCX y no funcionó; por favor podria alguien decirme si le ha sucedido algo parecido ya que no funciona con ninguno de los dos.

Att, Ricardo

Hola

Parece ser que es asi... La API con XP no esta funcionando

Pero el OCX si..
Registralo
Insertalo en tu Windows

Scrip.
ole_1.Object.ChangeResol(1024,768,16)

Saludos y si encontramos el porque de la API lo comento

Bune dia, Jorge te cuento que de esa forma , es decir, con el los parametros predefinidos funciona perfecto.

claro que no logro entender el por que ? quizas sea el tipo de dato que le estoy pasando, intentare probar cambiando esto.

Muchas gracias por la ayuda .