FiveTech Software tech support forums

... not any more necessary to define bar and buttons in ON INIT clause. sample: barondlg.prg * Enhancement: dialog.prg: Data or codeblocks assigned to lCentered, lCenterInWnd, lModal, bLClicked, bRClicked, bWhen, bValid, bInit, bPainted are used by Activate() method if not overriden in the ACTIVATE ...

... .t. ) // ntop,nleft,nbottom,nright end case next // aRect = GetWndRect( ::hWnd ) ::Move( ntop,nleft,::nWidth*rsl0, ::nHeight*rsl1, .T. ) if ::lCentered WndCenter( ::hWnd ) else if Empty( ::cResName ) ::Move( ::nTop, ::nLeft ) endif endif return in prg: ACTIVATE DIALOG odlg ON INIT (odlg:autoresize())

Alfonso

pasas el codeblock no el "eval" de ellos, la clase se encarga internamente de evaluarlos

oDlg:Activate( , , ,lCentered, bValid, lSel, bInit )

... bValid:={|| (NoEscape() .AND. CierraCli(dCli,dAge,dBco,dGpo,dFpg,oBrw)) } lCentered:=.t. oDlg:Activate( , , ,lCentered,EVAL(bValid),lSel,EVAL(bInit) ) Gracias de antemano.

El botón HELP (?) se que se quita así: oDlg:lHelpIcon:=.F.

La clase DIALOG tiene ademas estas otras datas: lResize16, lCentered, lModal, lModify

Aunque he probado esto y funciona: DEFINE WINDOW soWnd TITLE "..." MDI ICON soIco STYLE 255 quita el botón [X].

... CLASS TDialog FROM TWindow CLASSDATA lRegistered AS LOGICAL DATA cResName, cResData DATA hResources DATA lCentered, lModal, lModify DATA bStart DATA lHelpIcon // Windows 95 help icon pressed DATA lResize16 // resize 32 bits resources to look like 16 bits ...

... Len( oWnd:aDialogs ) Auto800( oWnd:aDialogs[nContador], .F. ) EndFor EndIf EndIf EndIf If lRepaint If( ( "DIALOG" $ oWnd:Classname() ) .and. oWnd:lCentered, WndCenter( oWnd:hWnd ) , Nil ) oWnd:Show() EndIf EndIf Return Nil ////////////////////////////////// Una vez que incluyas esta función en ...

... 0, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), SRCCOPY ) SelectObject( hDCMem, hOldBmp ) DeleteDC( hDCMem ) */ ::Say( ::nHeight / 4 - 2,; If( ::lCentered, ( ::nWidth / 2 ) - ( GetTextWidth( ::hDC,; If( Empty( ::cMsg ), ::cMsgDef, ::cMsg ),; ::oWnd:oFont:hFont ) / 2 ), 4 ), If( Empty( ::cMsg ...

... DATA oTimer DATA lScroll, lHorizontal, nSpeed, lWrap // nSpeed: 0 to 100 DATA lBlink, lView METHOD New( nRow, nCol, bText, oWnd, cPicture, oFont,; lCentered, lRight, lBottom, lBorder, lPixels, nClrText, nClrBack,; nWidth, nHeight, cScroll, nSpeed, lWrap, lBlink,; lDesign, lUpdate, lShaded, lBox, ...

... tengo. Muchas gracias Manuel, Busca: If lRepaint oWnd:Show() EndIf y sustitúyelo por: If lRepaint If( ( "DIALOG" $ oWnd:Classname() ) .and. oWnd:lCentered, WndCenter( oWnd:hWnd ) , Nil ) oWnd:Show() EndIf creo que ahora debería centrar los DIALOG (el nativo de FiveWin TDIALOG, y los propios tipo ...

... .t. ) // ntop,nleft,nbottom,nright end case next aRect = GetWndRect( ::hWnd ) ::Move( ntop,nleft,::nWidth*rsl0, ::nHeight*rsl1, .T. ) if ::lCentered WndCenter( ::hWnd ) else if Empty( ::cResName ) ::Move( ::nTop, ::nLeft ) endif endif return Shuming Wang

... estas líneas, no sería posible crear una cláusula AUTOWIDTH para los SAY? Algo así como: "METHOD New( nRow, nCol, bText, oWnd, cPicture, oFont,; lCentered, lRight, lBorder, lPixels, nClrText, nClrBack,; nWidth, nHeight, lDesign, lUpdate, lShaded, lBox, lRaised, lAutoWidth ) CLASS TSay .../... ...

... (aRect[3] - aRect[1])*rsl1, .t. ) end next aRect = GetWndRect( ::hWnd ) ::Move( ntop,nleft,::nWidth*rsl0, ::nHeight*rsl1, .T. ) if ::lCentered WndCenter( ::hWnd ) else if Empty( ::cResName ) ::Move( ::nTop, ::nLeft ) endif endif return 2. on app activate dialog mydialog on init mydialog:autoresize() ...

... (aRect[3] - aRect[1])*rsl1, .t. ) end next aRect = GetWndRect( ::hWnd ) ::Move( ntop,nleft,::nWidth*rsl0, ::nHeight*rsl1, .T. ) if ::lCentered WndCenter( ::hWnd ) else if Empty( ::cResName ) ::Move( ::nTop, ::nLeft ) endif endif return In you app define dialog odlg redefine controls ...

... TDIAG OF TDIALOG CLASSDATA lRegistered AS LOGICAL DATA lSomb AS LOGICAL INIT .F. DATA hFond,hPen,nDif METHOD Activate( bClicked, bMoved, bPainted, lCentered, bValid, lModal, bInit, bRClicked, bWhen, nClrShadow ) METHOD Initiate( hWndFocus, hWnd ) METHOD Paint() METHOD StartPaint() METHOD PintSombra() ...