FiveTech Software tech support forums

... Notify(...)     ...      case nCode == DTN_CLOSEUP           ::lClosed = .T. Datepicker have VALID where can can place a ACTION into ::bValid Codeblock   if bValid != nil      ::bValid    = { || If( ::lClosed, Eval( bValid, Self ), .F. ) }   endif How ? @ nRow, ...

... Notify(...)     ...      case nCode == DTN_CLOSEUP           ::lClosed = .T. Datepicker have VALID where can can place a ACTION into ::bValid Codeblock   if bValid != nil      ::bValid    = { || If( ::lClosed, Eval( bValid, Self ), .F. ) }   endif

...   oDlg:Activate()Return ( Nil ) Thank you Enrico With Valid it works and this is how I usually implement it, but I consider that bValid is to "validate" the content of the get and for some use cases it is more correct to use the bLostFocus since they are actions to perform ...

... cSelected := oSelectedCol:Value } )if cSelected == nil   ? "none selected"else   ? cSelectedendif  bValid is the Valid clause of the dialog. { |oBrw| IsValid }

... tell me where I find function: XEval( bSetUp, oBrw ) Can you please post some sample code how these codeblocks could look like: bSetUp bSelect bValid Best regards, Otto XBrowse( uData, cTitle, lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit, ; bValid, cSerial, lNoModal, lAutoFit )

... variables? local cCode := 'XBrowse( uData , "This is my title, subtitle , test neu", .F. , bSetUp, aCols, bSelect, lExcel, lFastEdit,bValid, cSerial, lNoModal, lAutoFit )' Best regards, Otto https://mybergland.com/fwforum/acxbwfunc.jpg  #include "fivewin.ch"//XBrowse( ...

... First I extend Autocode to use xBrowser- funciton: //XBrowse( uData, cTitle, lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit, ; // bValid, "SlNo", lNoModal, lAutoFit ) Best regards, Otto

... oBrw:=xbrowse(xBrw->dbf,xBrw->title,xBrw->lSort,..... ) // XBrowse( uData, cTitle, lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit, bValid, cSerial, lNoModal, lAutoFit ) //more setup if possible if !empty(xBrw->Header) oBrw:setgroupheader("xBrw->header",xbrw->headerfrom,xBrw->headerto) ...

... the source code. But you can transfer all of these parameters. XBrowse( uData, cTitle, lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit, bValid, cSerial, lNoModal, lAutoFit ) It is also interesting that you can get the xBrowse object back and make further adjustments with it. e.g. size ...

on a dialog I insert ON INIT ( oDlg:bValid := { || !GetKeyState( VK_ESCAPE ) },; run ok but I wish block also alt+f4 (K_ALT_F4) GetKeyState accept more parameters ? I make ON INIT ( oDlg:bValid := { || !GetKeyState( VK_ESCAPE ) .and. !GetKeyState( ...

ACTIVATE VALID()

OU

bValid

... ! lChild DEFINE WINDOW s_oWndPDF TITLE cTitulo else DEFINE WINDOW s_oWndPDF MDICHILD of M->oWnd vscroll TITLE cTitulo endif if lChild s_oWndPDF:bValid := {|| HB_GCAll(.t.), s_oWndPDF := Nil , .t. } else s_oWndPDF:bPostEnd := {|| HB_GCAll(.t.), s_oWndPDF := Nil } endif ACTIVATE WINDOW s_oWndPDF ...

Bueno, para bAction y bValid lo que haria yo sería simplemente poner un if en el codeblock de la expresion del action y del valid porque yo no tocaria los codeblocks originales. Puede funcionar o no, dependerá si se han pasado a variables ...

... nLeft, nWidth, nHeight, cResName, cBmpFile, lNoBorder,; oWnd, bLClicked, bRClicked , lScroll, lStretch, oCursor,; cMsg, lUpdate, bWhen, lPixel, bValid, lDesign, cVarName ) CLASS TImage regards Uwe :D Uwe, Sorry on BTnBMP is possible to place sub-images inside on any position of the button you ...

... nLeft, nWidth, nHeight, cResName, cBmpFile, lNoBorder,; oWnd, bLClicked, bRClicked , lScroll, lStretch, oCursor,; cMsg, lUpdate, bWhen, lPixel, bValid, lDesign, cVarName ) CLASS TImage regards Uwe :D