FiveTech Software tech support forums

... <oDlg>, <lMnu>, <pDoc>, <nLex>, <bSetup>,; <nSizeFont>, <lBold>, <bInit>, <lLoad>, <lModal>, <bExec>, <oMenu> ) lLoad : load Dll need lModal : Show dialog in modal mode bExec : Function user defined for build prgs oMenu ...

... Pages() * Function SourceEdit ( MemoEdit.prg ) - Bug fixed in "Save" action button * TDIALOG: - Methods End() and Destroy() assume DATA lModal was already initialized. Calling these methods without calling Activate() results in runtime error. Fixed. * TGET: - Fix: Due to a bug introduced ...

... fast an easy. But... in one of them I need to put lines, like in formal report with CELLVIEW(). xBrowse:Report( cTitle, lPreview, lModal, bSetUp, aGroupBy, cPDF ) bSetup is for that, How? Thanks in advance From Chile Adolfo

... Best regards, Otto oVRD.prg after: ::oPrn := PrintBegin( ::cTitle,, ::lPreview, ; IIF( EMPTY( ::cPrinter ), NIL, ::cPrinter ), ; IIF( ::lPreview, lModal, .F. ) ) insert: //kein Drucker gefunden if ::oPrn:hDC = 0 RETURN ( Self ) Endif in my program: EASYREPORT oVRD NAME ".\xVrd\kabrg.vrd" ...

... de diálogo y se mete la ventana dentro de ella. Algo asi: DATA oModal METHOD Activate() CLASS TWindow // mdichild, o lo que sea ... ... ... if ::lModal Modaliza( self ) endif return 0 Function modaliza( o ) // quitar los bordes y el título a la ventana DEFINE DIALOG o:oModal .... ACTIVATE DIALOG ...

... 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 command. * Enhancement: ...

Hola, En source/printer.prg hay que usar FWStrings en : METHOD New( cDocument, lUser, lPreview, cModel, lModal, lSelection, cFile ) CLASS TPrinter MsgStop( "There are no printers installed!" + CRLF + ; "Please exit this application and install a printer." ...

... comando es: EASYREPORT <oVRD> ; NAME <cRptFile> ; [ PREVIEW <lPreview> ] ; [ TO <cPrinter> ] ; [ OF <oWnd> ] ; [ <lModal: MODAL> ] ; [ <lPrintIDs: PRINTIDS> ] ; [ <lNoPrint: NOPRINT> ] ; [ <lNoExpr: NOEXPR> ] ; [ CHECK <lCheck> ] ; [ AREAPATH ...

...    WINDOW.PRG     2465 LMAX                    WINDOW.PRG      487  1115  1124  1133 LMIN                    WINDOW.PRG      487  1115  1124  1132 LMODAL                  WINDOW.PRG     2141  2614 LNEW                    WINDOW.PRG     1875  1885  1893  3326 LOADFILE()             (function  in ...

Try
oPrn := PrintBegin( cTitle, lUser, lPrintPreview, cPrintModel, lModal, lSelection )
if Empty( oPrn:hDC )
return( .f. ) // Printer was not installed or ready
endif
oPrn:SetCopies( ::nNoCopies )
or
PrnSetCopies( nNoCopies )

... .not. fTeclaCombinacion(@nkey,@nTeclaCombinacion) .and. nkey > 0, (msgalert(str(nTeclaCombinacion)+' '+str(nkey)), nLastkey:=nKey, fpx:= nKey, lModal:=.F., oDlg:End() ), ) } Function fTeclaCombinacion(nkey,nTeclaCombinacion) Local lRetorno:=.F. if ascan({K_HOME,K_END,K_PAGEUP,K_PAGEDOWN,K_UP,K_DOWN,K_TAB,K_LEFT,K_RIGHT,K_DEL,K_BS,K_SHIFT,K_RSHIFT,K_CTRL,K_UPPER,K_KEYPAD0,K_ALT,K_ALT_GR,K_F_ESPECIAL},nkey)>0 ...

... como cuando uno preciona Control + A, Alt + B, pero con inkey() siempre me entrega un valor 65453, para cualquier tecla especial. Local fpx:=0, lModal:=.T., oGet, cPaso:=' ' DEFINE DIALOG oDlg TITLE " " SIZE 350, 60 @2,1 say hb_strtoutf8(padc(alltrim(cMsg),50)) OF oDlg SIZE 330,nAltoLetra ...

... ( vdbf_[ oBrw:nRowPos ][ 1 ] := ! vdbf_[ oBrw:nRowPos ][ 1 ], oBrw:Refresh() ) @31, 19 BUTTON "Aceptar" OF oDlg SIZE 120, 33 ACTION ( lModal:=.F., aSeleccion := {cValor}, oDlg:End() ) @31, 36 BUTTON "Cancelar" OF oDlg SIZE 120, 33 ACTION ( lModal:=.F., lRetorno:=.F., aSeleccion:={}, ...

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].

... me estoy peleando con los reportes, con listados básicos no he tenido ningún problema pues lo hago mediante el método ::Report( cTitle, lPreview, lModal, bSetUp, aGroupBy ) de la Clase XBrowse y no me he preocupado de los recorridos del recordset ni nada, ya está automatizado. Como puedes darte ...