FiveTech Software tech support forums

... class I propose this solution for displaying the border in the presence of vertical scrolling if ::lDrawBorder // ::Box( 0, 0, ::nHeight - 1, ::nWidth - 1, IfNil( ::nClrBorder, ::hColPen ) ) ::Box( 0, 0, ::nHeight - 1, ::BrwWidth(), IfNil( ::nClrBorder, ::hColPen ) ) endif https://i.postimg.cc/vHytyBsS/ok.png ...

... Select(), it is equivalenf of doing oItem:oTree:Select( oItem ), so now you can simply do oItem:Select() * Enhancement: DEFINE WINDOW ... SIZE nWidth, nHeight is supported. * New: samples\winexpl.prg shows how to use EnumChildWindows() * Enhancement: XBrowse: now json file name can be specified ...

As of now the FWPDF class does not support the method SetSize( nWidth, nHeight ) This class supports only SetPage( nPageType ), same as TPrinter class. The permitted page sizes are:   { {  DMPAPER_LETTER,      HPDF_PAGE_SIZE_LETTER, ...

"SIZE " clause woks only when we create xbrowse from code, not when we create XBROWSE from resource, because RC file restricts the size of the control.

I have not yet tested it but try:
After redefining the xbrwose, set
oBrw:nWidth := ...
oBrw:nHeight := ...

... := "Est" oBrw:aCols[1]:nHeadStrAlign := AL_LEFT //LEFT oBrw:aCols[1]:bBmpData := { || iif( cTab_Art:opcion=.t., 1, 2) } oBrw:aCols[1]:nWidth := 20 oBrw:aCols[2]:cHeader := "Código" oBrw:aCols[2]:bStrData := { || cTab_Art:cod_art } oBrw:aCols[2]:nHeadStrAlign := AL_CENTER ...

... := "Est" oBrw:aCols[1]:nHeadStrAlign := AL_LEFT //LEFT oBrw:aCols[1]:bBmpData := { || iif( cTab_Art:opcion=.t., 1, 2) } oBrw:aCols[1]:nWidth := 20 oBrw:aCols[2]:cHeader := "Código" oBrw:aCols[2]:bStrData := { || cTab_Art:cod_art } oBrw:aCols[2]:nHeadStrAlign := AL_CENTER ...

... princfac CENTERED nowait ON INIT ( princfac:Move( 0, 0 ) ) //, oRich:LoadRtf( xobserva ), oRich:PostMsg( WM_KEYDOWN, VK_HOME, 0 )) oWndChild:nWidth := princfac:nWidth + 7 oWndChild:nHeight := princfac:nHeight + 32 ACTIVATE WINDOW oWndChild on init ( onrocli:setfocus() )

Gracias por responder, no me estaba funcionando el timer, lo declare así: ACTIVATE DIALOG oDlg ON INIT ( oDlg:SetPos( 0, 0 ), oDlg:nWidth := GetSysMetrics( 0 ), oDlg:nHeight := GetSysMetrics( 1 ), BuildTimer( oDlg, obrow )) function BuildTimer( oDlg, wobrow ) local oTmr DEFINE TIMER oTmr ...

... los registros oBrw:lContrastClr := .f. // quitar barra horizontal oBrw:lHScroll := .F. oBrw:aCols[ 4 ]:cDataType := "F" oBrw:aCols[ 2 ]:nWidth := 20 oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} oBrw:bLDblClick := { |nRow,nCol,nKeyFlags|/*EditCorrijo(.f.),*/oBrw:Refresh()} ...

Prueba asi:

oDlg:Move( 50, ( WndWidth( GetDesktopWindow() ) / 2 ) - ( oDlg:nWidth / 2 ), oDlg:nWidth, oDlg:nHeight, .T. )

y dime si el diálogo se posiciona hacia lo alto de la pantalla, gracias

Estimado José,

Prueba así:

oDlg:Move( oDlg:nTop, ( WndWidth( GetDesktopWindow() ) / 2 ) - ( oDlg:nWidth / 2 ), oDlg:nWidth, oDlg:nHeight, .T. )

... definitivo. Los controles que se quedaban fuera del tamaño original no se pintaban. Me costó mucho entender que no siempre el folder actualizaba nWidth y nHeight, aunque si actualizaba nRight y nBottom. Cambié el tamaño original ( a un tamaó muy grande 2000 x 2000 ) y entonces SI se "pintaban" ...

Dear Marc, I think Cristobal means this way: @ nRow, nCol GET aGets[ 1 ] VAR aData[ 1, 2 ] ; PICTURE aData[ 1, 3 ] SIZE nWidth - nCol * 2, 15 PIXEL OF oDlg ; COLOR nClrTxt, CLR_WHITE CUEBANNER "REQUIRED" BOTTOMBORDER ; INFIELD INFONT oFontI INCLRTXT CLR_GRAY ; INCLRBORDER ...

Dear Marc, I think Cristobal means this way: @ nRow, nCol GET aGets[ 1 ] VAR aData[ 1, 2 ] ; PICTURE aData[ 1, 3 ] SIZE nWidth - nCol * 2, 15 PIXEL OF oDlg ; COLOR nClrTxt, CLR_WHITE CUEBANNER "REQUIRED" BOTTOMBORDER ; INFIELD INFONT oFontI INCLRTXT CLR_GRAY ; INCLRBORDER ...

... get a syntax error at compiling This is from the sample Subscript0.prg @ nRow, nCol GET aGets[ 1 ] VAR aData[ 1, 2 ] ; PICTURE aData[ 1, 3 ] SIZE nWidth - nCol * 2, 15 PIXEL OF oDlg ; COLOR nClrTxt, CLR_WHITE CUEBANNER aData[ 1, 1 ] BOTTOMBORDER ; INFIELD INFONT oFontI INCLRTXT CLR_GRAY ; INCLRBORDER ...