FiveTech Software tech support forums

... why ? for now I resolve with oBrowse:bRClicked := {|nRow,nCol| ShellExecute( IfNil( oDlg:hWnd, GetWndDefault() ), "open",cFolderFiles+oBrowse:aArrayData[oBrowse:narrayat][2])} But I wish open the pdf in a dialog

Antonio, I have slill a problem. I have changed the MAK-file to #Microsoft Visual-Studio Community 2015, (c) FiveTech Software 2016HBDIR=C:\_vmsdata\FWH64\harbour64FWDIR=C:\_vmsdata\FWH64\fwh64VCDIR="c:\Program Files (x86)\Microsoft Visual Studio 14.0\VC"SDKDIR="c:\Program Fil...

Estoy teniendo problemas al enlazar la clase. xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 9445) Copyright 1999-2012, http://www.xharbour.org http://www.harbour-project.org/ Compiling 'D:\DSAY\SAMPLES\main.prg'... Lines 39, Functions/Procedures 1 Generating C source output to 'D:\DSAY\OBJ\main.hrb'...

... en el código del método redefine? METHOD ReDefine( nId, oWnd, nClrFore, nClrBack, lDesign, cMsg, bChange ) CLASS TTreeView    DEFAULT oWnd     := GetWndDefault(),;            nClrFore := oWnd:nClrText,;            nClrBack := oWnd:nClrPane,; // GetSysColor( COLOR_WINDOW ),;            lDesign ...

...  4088 GETWINDOWTEXT()        (function  in ?)    WINDOW.PRG      626  1443 GETWNDAPP()            (function  in ?)    WINDOW.PRG     2610  3798 GETWNDDEFAULT()        (function  in WINDOW.PRG)    WINDOW.PRG     3224! 3425  3426 GETWNDRECT()           (function  in ?)    WINDOW.PRG     1707 GLOBALFREE() ...

... para monitore y solo llega al pasa 2 te anexo el codigo. METHOD New( oWnd, cProgID, nRow, nCol, nWidth, nHeight ) CLASS TActiveX DEFAULT oWnd := GetWndDefault(), nRow := 0, nCol := 0, nWidth := 200,; nHeight := 200 ::nTop = nRow ::nLeft = nCol ::nBottom = nRow + nHeight ::nRight = nCol + nWidth ...

Antonio,

Antonio Linares wrote:Enrico,

function SetWndDefault() does not keep a stack, so we have to manage it ourselves:

Thank you. I already know that way. Ok, that's fine, no problem my friend.

EMG

...            CENTER    RETURN NILSTATIC FUNCTION TEST()    LOCAL oDlg, oDefault := GetWndDefault()    ? GETWNDDEFAULT():cCaption    DEFINE DIALOG oDlg TITLE "Two"    ? GETWNDDEFAULT():cCaption  ...

...            CENTER    RETURN NILSTATIC FUNCTION TEST()    LOCAL oDlg    ? GETWNDDEFAULT():ClassName    DEFINE DIALOG oDlg    @ 1, 1 BUTTON "Close";           ACTION ...

Adhemar, FiveWin llama a la función GetWndDefault() cuando no se le proporciona la claúsula OF ..., asi que no hay problema de omitirlo :-) oBrw:lWillShowABtn hace que las filas de un browse no se muevan de izquierda a derecha y viceversa cuando ...

... on a column footer. Now it is ok: http://forums.fivetechsupport.com/viewtopic.php?p=128842#p128842 * Fix: function XBrowseNew() was not calling GetWndDefault() by default. Now it is ok. * Fix: Print Preview zoom factor combobox was not issuing a zoom. Now it is ok. * Fix: TXBrowse: Methods ToExcel() ...

... New this way: METHOD New( oWnd, nBtnWidth, nBtnHeight, l3D, cMode, oCursor, l2007, l2010 ) CLASS TBar   local oRect   DEFAULT oWnd := GetWndDefault(), nBtnWidth := BAR_HEIGHT,;           nBtnHeight := BAR_HEIGHT, l3D := .f., cMode := "TOP", l2007 := .F.,;          ...

Antonio, and now there are a lot of Unresolved external symbol: xLINK: error: Unresolved external symbol '_HB_FUN_WNDMAIN referenced from (my_application.obj)'. xLINK: error: Unresolved external symbol '_HB_FUN_TXBROWSE referenced from (my_txbrowse.obj)'. xLINK: error: Unresolved external symbol '_H...

... "VLINE", "WBOX", "WBOX", "GBOX", "GBOX", "BBOX", "BBOX" } Default oWnd := GetWndDefault(), ; nClrLite := GetSysColor( COLOR_BTNHIGHLIGHT ), ; nClrDark := GetSysColor( COLOR_BTNSHADOW ), ; nClrText := GetSysColor( COLOR_BTNTEXT ...

... cFileBmp ) MsgAlert( 'Archivo: ' + cFileBmp + CRLF + ; 'NO Encontrado ..!', 'Atención !' ) // Ferase( cFileNm ) lBmps := .f. endif DEFAULT oWn := GetWndDefault() DEFAULT cBase := '' DEFAULT lVacio:= .f. //DEFAULT cMemb := 'X' membr0 := {} membr1 := {} membr2 := {} //oWnd := oWn //oWn := Nil oPrn ...