FiveTech Software tech support forums

Dear Lailton,

We use a FWH new control class:

@ 0, 0 ACTIVEX oActiveX PROGID "Shell.Explorer" OF oWnd

MsgInfo( GetClassName( oActiveX:hWnd ) ) // TACTIVEX

MsgInfo( GetClassName( hWnd ) )

... November 2021) https://i.postimg.cc/9fZ4VhQt/ultima.png 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( ...

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

... not the popupsection 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"

... == BN_CLICKED, nID != IDCANCEL, .f. )           ::oMenu:Command( nID )      case GetClassName( hWndCtl ) == "ToolbarWindow32"           oWndFromHwnd( hWndCtl ):Command( ...

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

...      195! GETCLASSINFO()         (function  in ?)    WINDOW.PRG      945 GETCLASSLONG()         (function  in ?)    WINDOW.PRG     3652 GETCLASSNAME()         (function  in ?)    WINDOW.PRG     1393  3237  3286  4061 GETCLIENTRECT()        (function  in ?)    WINDOW.PRG     1284  1291 ...

... la ventana principal ? Esto es lo más importante Si tienes un timer (podrias usar el de la barra de mensajes) puedes probar a hacer oWnd:SetText( GetClassName( GetFocus() ) ) y asi saber la Clase del control que tiene el foco. Otra forma seria: oWnd:SetText( oWndFromHwnd( GetFocus() ):ClassName()

... the result of unmodified control.prg http://i208.photobucket.com/albums/bb82/fraxzi/FWxHarbour/ActiveObjectOrg.png I used MsgInfo( GetClassName( GetFocus() ) ) for both window/dialog Using:        oObj := oWinMDI:oWndClient:GetActive()       msginfo( oObj:CtrlFocus() ...

Frances,

Please run this:

MsgInfo( GetClassName( GetFocus() ) )

and let me know what you get

... sin corregir, desde los chm de FiveWin. Ahora ya está bien. GetActiveWindow() GetAllWin() GetASyncKey() Getbkcolor() GetCapture() GetCaretPos() GetClassName() GetClientRect() GetClpData() GetCommError() GetCoors() Getcpu() GetCpuSpeed() GetCtrlId() Getcurdir() GetCursorPos() GetDatas() GetDC() ...

... nID ) case hWndCtl == 0 .and. ::oMenu != nil .and. ; If( nNotifyCode == BN_CLICKED, nID != IDCANCEL, .f. ) ::oMenu:Command( nID ) case GetClassName( hWndCtl ) == "ToolbarWindow32" oWndFromHwnd( hWndCtl ):Command( nWParam, nLParam ) case nID != 0 do case case nNotifyCode == ...

Tim,

As I commented you, I would suggest to use a timer that you could activate in your app and that shows or stores in a logfile (LogFile()) the GetClassName( GetFocus() ), so you will know in every moment where the focus is.