FiveTech Software tech support forums

Buen día.. Esta función la obtuve de este foro y me funciona muy bien AjustaResolucion() // al inicio de la aplicacion FUNCTION AjustaResolucion() LOCAL nResoAncho := GetSysMetrics(0) IF nResoAncho > 1024 CamReso ( 1024, 768) ENDIf RETURN nil //***************************************************...

hola manuel: tu "ya está solucionado" realmente si funciona!!! usando tu ejemplo, he creado esta rutina: #include 'fivewin.ch' #Include "dll.ch" #Include "Struct.ch" FUNCTION MAIN() LOCAL nResoAncho := GetSysMetrics(0) IF nResoAncho > 800 CamReso ( 800, 600) MSGINFO(...

jaba; Disculpame que no te respondí en tiempo y forma pero tuve algunos inconvenientes con mi proveedor de internet. Aqui te mando el código #define DM_PELSWIDTH nHex("80000") #define DM_PELSHEIGHT nHex("100000") Function CambiaResolucion( nAncho, nAlto, lPreguntar) Local oDevMode Local lPosible Lo...

jaba; Disculpame que no te respondí en tiempo y forma pero tuve algunos inconvenientes con mi proveedor de internet. Aqui te mando el código #define DM_PELSWIDTH nHex("80000") #define DM_PELSHEIGHT nHex("100000") Function CambiaResolucion( nAncho, nAlto, lPreguntar) Local oDevMode Local lPosible Loc...

!!! YA ESTA SOLUCIONADO ¡¡¡ En primer lugar comentar que la función original ChangeRes corresponde a los brasileiros Marcelo Gomes y Yuri Marcelino, y se encuentra en el foro de FW-Brasil: http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=10465 En segundo lugar que en base a dicha función, he elabo...

Esta función no la probé pero imagino que es lo que necesitas #Include "Fivewin.ch" #Include "dll.ch" #Include "Struct.ch" Function ChangeRes(nX,nY,lDireto) Local CCDEVICENAME := 32 Local CCFORMNAME := 32 Local EWX_LOGOFF := 0 Local EWX_SHUTDOWN := 1 Local EWX_REBOOT := 2 Local EWX_FORCE := 4 Local ...