FiveTech Software tech support forums

... sobre qué DIÁLOGO "Cargar"? Estoy creando varios DIÁLOGOS para diferentes resoluciones de pantalla. Gracias, Regards, saludos. Busca ScrResolution() Creo que te servirá. FiveWidi, ScrResolution()? No he encontrado nada en este sentido que me funcione o no lo entiendo. Lo que quiero ...

... sobre qué DIÁLOGO "Cargar"? Estoy creando varios DIÁLOGOS para diferentes resoluciones de pantalla. Gracias, Regards, saludos. Busca ScrResolution() Creo que te servirá.

Hi Natter,

Because of Display Setup (Scale and Layout is 125%)

Natter wrote:Hi,

The resolution of my monitor is 1920 x 1080. However, the ScrResolution() function returns
{ 1536, 864 }. Why ?

Hi,

The resolution of my monitor is 1920 x 1080. However, the ScrResolution() function returns
{ 1536, 864 }. Why ?

tente isso: ScrResolution( @nWidth, @nHeight ) // referencia If lAutoresize .and. nOriHeight+nOriWidth != nHeight+nWidth // altera essa linha, como mostra agora ... .. . If lRepaint // referencia oWnd:Hide() // referencia EndIf ...

For converting pixels to inches/mm we can use these functions. The results vary on the basis of physical size of monitor. ScrResolution() --> { nWidth, nHeight } in Pixels ScreenHeightMM() --> Screen height in Millimeters (/25.4 --> inches) ScreenWidthMM() --> Screen width ...

Noe, Antonio tiene razón, la única solución es el ON INT. Normalmente creo mis diálogos asi: LOCAL aCtrl[10]*DEFINE DIALOG oDlg ...   @ 0,0 SAY oCtrl[1] ....   @ 0,0 SAY oCtrl[2] ....   ...   @ 0,0 SAY oCtrl[10] ....ACTIVATE DCIALOG oDLg ON INIT IniDiag(oCtrl)...

Noe buen dia

Yo he utilizado con exito pero en ventanas
nResoancho := GetSysMetrics(0)
nResoAlto := GetSysMetrics(1)

Si te puedo colaborar en algo cuenta conmigo con gusto

Jairo

Noe, Tienes que modificar la posición del diálogo desde la claúsula ON INIT: ACTIVATE DIALOG oDlg ON INIT ... ya que en ese momento el diálogo ha sido creado por Windows y las coordenadas ya estan basadas en pixeles y no en "units": https://msdn.microsoft.com/en-us/library/wind...

Saludos Estimados, uso la funcion ScrResolution() para poder ubicar la ventana principal en cierto lugar de la pantalla (ejemplo abajo). Pero al usarla, algunos dialogos que creo posterior a la funcion ScrResolution() ya no me funcionan igual. ...

... := 800 // Source Width sSouHeight := 600 // Source Height sRowFactor := 0 // Factor for new Width sColFactor := 0 // Factor for new Height ScrResolution(@sSysWidth,@sSysHeight) sRowFactor := sSysWidth / sSouWidth sColFactor := sSysHeight / sSouHeight So if dialog/window is based on 800/600 ...

... := 800 // Source Width sSouHeight := 600 // Source Height sRowFactor := 0 // Factor for new Width sColFactor := 0 // Factor for new Height ScrResolution(@sSysWidth,@sSysHeight) sRowFactor := sSysWidth / sSouWidth sColFactor := sSysHeight / sSouHeight And after to use changed .CH files For ...

... := 800 // Source Width public sNovVis := 600 // Source Height public sSir := 0 // Factor for new Width public sVis := 0 // Factor for new Height ScrResolution(@sSysSir,@sSysVis) sSir := sSysSir / sNovSir sVis := sSysVis / sNovVis //------------------------------------------------------------------------// ...

... METHOD OUTPUTW_( vWnd ) LOCAL nRet LOCAL cFarProc ///LOCAL oRect := vWnd:GetCliRect() LOCAL cFunc := "PEOutputToWindow" LOCAL aScreen := ScrResolution( 800, 600 ) ::lError := .F. IF ::l32 cFarProc := GetProc32( ::hDll, cFunc, .T., _INT,; // nRetVar LONG,; // nHandle LPSTR,; // cReport ...

... ) Local nOriWidth := 800, nOriHeight := 600, nWidth := 0, nHeight := 0, ; nContador, nRancho, nRalto DEFAULT lRepaint := .T., lFolder := .t. ScrResolution( @nWidth, @nHeight ) // importante If nOriHeight < nHeight nRancho := nWidth / nOriWidth nRalto := nHeight / nOriHeight // solo para ...