FiveTech Software tech support forums

... de la pantalla GetSysmetrics(1) ---> para obtener el alto de la pantalla No siempre vas a obtener el mismo valor que con Sí existen y se llaman ScreenWidth() y ScreenHeight() Ya he tenido algún problemilla por mezclarlas en un mismo programilla

Sí existen y se llaman ScreenWidth() y ScreenHeight()

... center everything horizontal on screen, but the calculation doesn't work For the moment, I'm using fixed values needed for the calculation using ScreenWidth() : hDC := oDlg:GetDC() nWidth1 := GetTextWidth( hDC, "Bitte Zugangsdaten eingeben", oFont1 ) nWidth2 := GetTextWidth( hDC, "Benutzername-Name ...

... You resolved the navigation in touch.prg with image. How can we reach the navigation by keyboard? Thanks in advance Otto DEFINE DIALOG oDlg SIZE ScreenWidth(), ScreenHeight() + 100 ; STYLE nOr( WS_CHILD, WS_POPUP ) ; COLOR CLR_BLUE, CLR_DIALOGS @ 20, 20 IMAGE oImgBack FILENAME "..\bitmaps\metro\back-black-48.png" ...

... in oResolucion sMensaje += "Alto: " + cValToChar ( oDatos:ScreenHeight ) + " * " + ; "Ancho: " + cValToChar ( oDatos:ScreenWidth ) + CRLF NEXT * --------------------------- // -------------------------- * * --------------------------- // -------------------------- ...

... in oResolu MsgInfo("Trabajando a Resolución de Alto: " + cValToChar(oDatos:ScreenHeight) + " y Ancho: " + cValToChar(oDatos:ScreenWidth),"Resolucion de Panralla") NEXT FOR Each oDatos In oSistem MsgInfo(oDatos:InstallDate,"Fecha de Instalación de Windows XP") ...

... layout. We use this layout in samples\sciedit2.prg to avoid the use of a MDI frame but keep managing multiple editors. * New: functions ScreenWidth() and ScreenHeight() return the width and height of the main desktop in pixels. * Fix: Class TDatePick was not paiting properly on TRANSPARENT ...

... yoyo(ownd) local oView1, oView2, oView3 local oView:=tView():resources(ownd,"tabbar") local oTab oView1 = TView():New( oView,0, 0, ScreenWidth(), ScreenHeight() - 69) oView1:SetBkgColor( 0, 255, 0, 255 ) oView2 = TView():New( oView, 0, 0, ScreenWidth(), ScreenHeight() - 69 ) oView2:SetBkgColor( ...

... nRight Please keep in mind that nBottom is closer to the top of the screen. OSX uses 0, 0 in left, bottom position of the screen. * New: functions ScreenWidth() and ScreenHeight() returns the width and height of the entire desktop. * New: Class TWBrowse Methods SetIndicatorDescent(), SetIndicatorAscend(), ...

... nRight Please keep in mind that nBottom is closer to the top of the screen. OSX uses 0, 0 in left, bottom position of the screen. * New: functions ScreenWidth() and ScreenHeight() returns the width and height of the entire desktop. * New: Class TWBrowse Methods SetIndicatorDescent(), SetIndicatorAscend(), ...

... para que me ocupe la imagen en toda la pantalla cuando utilizo el brush. Este es el codigo que tengo. DEFINE WINDOW oWnd FROM 0,0 TO ScreenHeight, ScreenWidth PIXEL MDI; TITLE "Sistema ; MENU BuildMenu( ); COLOR "W+/B" ICON oIco DEFINE BRUSH oBrush99 NAME "logo2" // STYLE ...

Marco Augusto wrote:DEFINE WINDOW oWndX STYLE WS_POPUP FROM 0, 0 TO ScreenHeight, ScreenWidth PIXEL NOSYSMENU NOICONIZE
*
@ 0, 0 IMAGE oImage SIZE ScreenWidth,ScreenHeight OF oWNDX ADJUST
ACTIVATE WINDOW oWndX RETURN NIL

SALUDOS

Y si usara BRUSH como lo haria, tienes un ejemplo

DEFINE WINDOW oWndX STYLE WS_POPUP FROM 0, 0 TO ScreenHeight, ScreenWidth PIXEL NOSYSMENU NOICONIZE
*
@ 0, 0 IMAGE oImage SIZE ScreenWidth,ScreenHeight OF oWNDX ADJUST
ACTIVATE WINDOW oWndX RETURN NIL

SALUDOS

Maestro Antonio, desculpe por el post, solo una dúda: És posible hacer esto en FIVEWIN, ahora ó en el futuro?? Gracias. ************************************************************************************ ************************************************************************************ ** ** ** V...

... so que nao recomendo pois irá // reiniciar oDevMode:nFields := nOr(DM_PELSWIDTH, DM_PELSHEIGHT /* , DM_BITSPERPEL */) oDevMode:nPelWidth := nX //ScreenWidth oDevMode:nPelHeight:= nY //ScreenHeight // Descomente esta linha para trocar as cores so que nao recomendo * oDevMode:nBitsPPel := 16 //(could ...