FiveTech Software tech support forums

... I add only a line on METHOD PaintPopupSection() if ::oPopup != nil  .and.  GetClassName( GetParent( Self:hWnd ) ) = "TBAR" I don't understand why this command was canceled (.and. GetClassName( GetParent( Self:hWnd ) ...

... I read the owners of each of them (.getOwner()). If the user has administrator rights, everything is fine. Otherwise, when trying to execute the getParent of someone else's process, the application is automatically terminated. I do not know how to avoid this

... := {|nRow, nCol|... or is it possible to use : METHOD GotFocus( hCtlFocus ) INLINE ( ::oActive := Self, ::Super:GotFocus( hCtlFocus ),; If( GetParent( hCtlFocus ) != ::hWnd, ::Super:Refresh( .f. ),) ) METHOD LostFocus( hCtlFocus ) INLINE ( ::Super:LostFocus( hCtlFocus ),; If( GetParent( ...

... CLASS TBtnBmp local nWidth, nHeight, hDC local hBlackBrush, hOldBrush local hDarkPen, hLightPen, hOldPen if ::oPopup != nil .and. GetClassName( GetParent( Self:hWnd ) ) = "TBAR" this for erase the arrow on the left of btnbmp I use this png "c:\work\fwh\bitmaps\pngs\image5.png" ...

... For not show the black arrow On Btnbmp class I add on the method PaintPopupSection the bold string if ::oPopup != nil .and. GetClassName( GetParent( Self:hWnd ) ) = "TBAR" Now the final user can open the popupmenu but must click at the end of btnbmp, soon the final user not found ...

... when the btnbmp is not on tbar https://s8.postimg.cc/4ff0ggpsl/image.png We suggest if ::oPopup != nil .and. GetClassName( GetParent( Self:hWnd ) ) = "TBAR"

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

Silvio,

After this line:

oPadre := oLink:GetParent()

you should check if oPadre is nil

Can you put MsgInfo( type( oPadre:aItems ) ) after oPadre := oLink:GetParent() ?

Silvio,

Puedes poner que muestra xBrowse( oPadre ) despues de hacer oPadre := oLink:GetParent() ? Pon lo que se muestra cuando borras una subcategoria y una categoria

... GE->(DbGoto(nNext)) IF GE->(EOF()) .or. nNext == nRecno GE->(DbGoBottom()) ENDIF now try to del the item on tree oPadre := oLink:GetParent() TVDeleteItem(oTree:hWnd, oLink:hItem ) nPosHijoenPadre := Ascan( oPadre:aItems, {|o| o:hItem == oLink:hItem } ) IF nPosHijoenPadre > ...

...  WINDOW.PRG      934 GETNMHDRCODE()         (function  in ?)    WINDOW.PRG     1837 GETNMHDRHWNDFROM()     (function  in ?)    WINDOW.PRG     1838 GETPARENT()            (function  in ?)    WINDOW.PRG      532  3570  4060 GETPOPUP()             (function  in ?)    WINDOW.PRG     1495  3076  3083 ...

... local cPrompt := oLink:cPrompt local cCargo := oLink:Cargo local nLevel := INT(AT(" 0",cCargo)/2) local oParent := oLink:GetParent() local oLChild local oNewLink local cPCargo := oLink:cargo local cNewCargo := "" local lFrHoja local cResto

Silvio,

It seems as oLink has no parent so:

oLink:GetParent()

is returning nil

... local cPrompt := oLink:cPrompt local cCargo := oLink:Cargo local nLevel := INT(AT(" 0",cCargo)/2) local oParent := oLink:GetParent() local cPCargo := oLink:cargo // añadir cResto := SubStr(" 0 0 0 0 0",1,2*(5-nLevel)) oLChild := oParent:LastChild if nLevel == ...