FiveTech Software tech support forums

... DM_PELSHEIGHT := nHex("100000") //Local DM_PELSWIDTH := nHex("100000") //Local DM_PELSHEIGHT := nHex("160000") Local oDevMode Local lPosible Local cBuffer Local lCamReso := .f. DEFAULT nAncho := GetSysMetrics(0), ; nAlto := GetSysMetrics(1) STRUCT oDevMode MEMBER cDevName ...

... ENDI RETU nil Function CamReso(nAncho, nAlto) Local DM_PELSWIDTH := nHex("80000") Local DM_PELSHEIGHT := nHex("100000") Local oDevMode Local lPosible Local cBuffer Local lCamReso := .f. DEFAULT nAncho := GetSysMetrics(0), ; nAlto := GetSysMetrics(1) STRUCT oDevMode MEMBER cDevName ...

... el código #define DM_PELSWIDTH nHex("80000") #define DM_PELSHEIGHT nHex("100000") Function CambiaResolucion( nAncho, nAlto, lPreguntar) Local oDevMode Local lPosible Local cBuffer Local lCamReso := .f. Default nAncho := GetSysMetrics( 0 ), nAlto := GetSysMetrics( 1 ), lPreguntar := .t. Struct ...

... el código #define DM_PELSWIDTH nHex("80000") #define DM_PELSHEIGHT nHex("100000") Function CambiaResolucion( nAncho, nAlto, lPreguntar) Local oDevMode Local lPosible Local cBuffer Local lCamReso := .f. Default nAncho := GetSysMetrics( 0 ), nAlto := GetSysMetrics( 1 ), lPreguntar := .t. Struct ...

... #Include "Struct.ch" Function CamReso(nAncho, nAlto, lPreguntar) Local DM_PELSWIDTH := nHex("80000") Local DM_PELSHEIGHT := nHex("100000") Local oDevMode Local lPosible Local cBuffer Local lCamReso := .f. DEFAULT nAncho := GetSysMetrics(0), ; nAlto := GetSysMetrics(1), ; lPreguntar := .t. STRUCT ...

Manuel,

Este valor parece que controla el número de colores:

oDevMode:nBitsPPel := 16 //(could be 8, 16, 32 or even 4)

... DISP_RESTART := 1 Local nOldX := WndWidth(GetDesktopWnd()) // GetSysMetrics(0) Local nOldY := WndHeight(GetDesktopWnd()) // GetSysMetrics(1) Local oDevMode Local uRet Local cBuffer Local lDone:=.F. DEFAULT nX := WndWidth(GetDesktopWnd()),; nY := WndHeight(GetDesktopWnd()),; lDireto:=.f. STRUCT ...