FW 2409, Message not found: TDIALOG:OGRPOPUP ( FIXED )

[elmoiquique]

Tengo el siguiente error, solo me pasa al compilar con el nuevo FIVEWIN 2409,ya que con el 1104 no pasa y funcion perfecto, envio el error paraver si alguien me puede ayudar

Application
===========
Path and name: C:\sistema\QAsve\QASVE.exe (32 bits)
Size: 7,214,592 bytes
Compiler version: xHarbour 1.3.1 Intl. (SimpLex) (Build 20241008)
FiveWin version: FWH 24.07
C compiler version: Borland/Embarcadero C++ 7.7 (32-bit)
Windows 10 64 Bits, version: 6.2, Build 9200

Time from start: 0 hours 0 mins 27 secs
Error occurred at: 03/03/2025, 15:21:28
Error description: Warning BASE/1004 Message not found: TDIALOG:OGRPOPUP

Stack Calls
===========
Called from: source\rtl\tobject.prg => TDIALOG:ERROR( 0 )
Called from: source\rtl\tobject.prg => TDIALOG:MSGNOTFOUND( 0 )
Called from: source\rtl\tobject.prg => TDIALOG:OGRPOPUP( 0 )
Called from: .\source\classes\trbtn.prg => TRBTN:LBUTTONUP( 865 )
Called from: .\source\classes\control.prg => TCONTROL:HANDLEEVENT( 1867 )
Called from: .\source\classes\trbtn.prg => TRBTN:HANDLEEVENT( 1576 )
Called from: .\source\classes\window.prg => _FWH( 257 )
Called from: => DIALOGBOX( 0 )
Called from: .\source\classes\dialog.prg => TDIALOG:ACTIVATE( 309 )
Called from: .\menu.PRG => SVEMENU( 0 )
Called from: .\menu.PRG => (b)MAIN( 0 )
Called from: .\source\classes\btnbmp.prg => TBTNBMP:CLICK( 816 )
Called from: .\source\classes\btnbmp.prg => TBTNBMP:LBUTTONUP( 1103 )
Called from: .\source\classes\control.prg => TCONTROL:HANDLEEVENT( 1867 )
Called from: .\source\classes\btnbmp.prg => TBTNBMP:HANDLEEVENT( 2143 )
Called from: .\source\classes\window.prg => _FWH( 1003 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\window.prg => TWINDOW:ACTIVATE( 1117 )
Called from: .\tmetro.PRG => TMETRO:ACTIVATE( 0 )
Called from: .\menu.PRG => MAIN( 0 )

System
======
CPU type: AMD E1-1500 APU with Radeon(tm) HD Graphics 1477 Mhz
Hardware memory: 3683 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Windows total applications running: 1
1 ,

Variables in use
================
Procedure Type Value
==========================
TDIALOG:ERROR
Param 1: C "Message not found"
Param 2: C "TDIALOG"
Param 3: C "OGRPOPUP"
Param 4: N 1004
Local 1: U
Local 2: O Class: TDIALOG
Local 3: N 13
TDIALOG:MSGNOTFOUND
Param 1: C "OGRPOPUP"
Local 1: O Class: TDIALOG
TDIALOG:OGRPOPUP
TRBTN:LBUTTONUP
Param 1: N 59
Param 2: N 41
Param 3: O Class: TRBTN
Local 1: O Class: TDIALOG
Local 2: L .T.
Local 3: L .F.
TCONTROL:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 3866665
Local 1: O Class: TRBTN
Local 2: U
TRBTN:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 3866665
Local 1: O Class: TRBTN
_FWH
Param 1: N 3866665
Param 2: N 514
Param 3: N 0
Param 4: N 3866665
Param 5: N 19
Local 1: O Class: TRBTN
DIALOGBOX
Param 1: N 16711680
Param 2: C "SVEMENU03"
Param 3: N 330954
Param 4: O Class: TDIALOG
TDIALOG:ACTIVATE
Param 1: U
Param 2: U
Param 3: U
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: U
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Param 12: L .F.
Param 13: O Class: TDIALOG
Param 14: U
Local 1: O Class: TDIALOG
Local 2: N 330954
Local 3: U
Local 4: O Class: TDIALOG
SVEMENU
Param 1: N 3
Local 1: O Class: TDIALOG
Local 2: O Class: TIMAGE
Local 3: O Class: TRBTN
Local 4: U
Local 5: U
Local 6: C "\QAsve\config\bmp2\svemen03.jpg"
Local 7: C "SVEMENU03"
Local 8: C ""
Local 9: C ""
Local 10: C " "
Local 11: L .T.
Local 12: N 15
(b)MAIN
Param 1: O Class: TBTNBMP
TBTNBMP:CLICK
Local 1: O Class: TBTNBMP
TBTNBMP:LBUTTONUP
Param 1: N 106
Param 2: N 93
Param 3: O Class: TBTNBMP
Local 1: U
Local 2: L .T.
Local 3: N 0
TCONTROL:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 6946909
Local 1: O Class: TBTNBMP
Local 2: U
TBTNBMP:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 6946909
Local 1: O Class: TBTNBMP
_FWH
Param 1: N 6946909
Param 2: N 514
Param 3: N 0
Param 4: N 6946909
Param 5: N 4
Local 1: O Class: TBTNBMP
WINRUN
Param 1: N 330954
TWINDOW:ACTIVATE
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: U
Param 6: B {|| ... }
Param 7: U
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: U
Param 18: U
Param 19: U
Param 20: L .F.
Local 1: O Class: TWINDOW
Local 2: U
Local 3: U
TMETRO:ACTIVATE
Local 1: O Class: TMETRO
MAIN
Local 1: O Class: TMETRO
Local 2: C "IMPORT-EXPORT RAUL MENESES BARRIOS EIRL"

Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFNTX
DBFCDX

DataBases in use
================

Classes in use:
===============
1 ERROR
2 HASHENTRY
3 HBCLASS
4 HBOBJECT
5 TWINDOW
6 TCONTROL
7 TGET
8 TDATABASE
9 TDIALOG
10 TBRUSH
11 TCOMBOBOX
12 GET
13 TCLIPGET
14 TBUTTON
15 TBITMAP
16 TFONT
17 TRECT
18 TINI
19 TMETRO
20 TREG32
21 TBTNBMP
22 TRBTN
23 TMENU
24 TMENUITEM
25 TIMAGE
26 TCHECKBOX
27 TRADMENU
28 TRADIO
29 TMETER
30 TSTRUCT

Memory Analysis
===============
943 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes

[Antonio Linares]

Por la información del error parece que estas usando un botón TRBtn en una caja de diálogo.

De ser asi, prueba a hacer esto después de DEFINE DIALOG oDlg:

__objAddData( oDlg, "OGRPOPUP" )

[elmoiquique]

Estimado Antonio

El problema persiste, pero he logrado identificarlo pero no solucionarlo te explico donde esta el problema, en el RBBTN ,al usar el TYPE SPLITPOPUP, da el error de MESSAGE NOT FOUND: TDIALOG:OGROUP, el solo desplegarlo y salir de el. Al usar untipo distinto no emite ningun error, por lo que deduzco que el problema esta ahi, en la version FW11,07, lo compilo y no da ningun error,

REDEFINE RBBTN [ <oBtn> ] ;
[ ID <nID> ];
[ PROMPT <cCaption> ];
[ BITMAP <cBitmap> ] ;
[ ACTION <uAction> ] ;
[ <of: OF, DIALOG, WINDOW> <oWnd> ] ;
[ WHEN <WhenFunc> ] ;
[ <lBorder: BORDER> ] ;
[ <lRound: ROUND> [ <rs: RSIZE, ROUNDSIZE><nRound> ] ] ;
[ <lAdjust: ADJUST> ] ;
[ <layout: TOP, LEFT, BOTTOM, RIGHT, MOSTLEFT, MOSTRIGHT, CENTER> ] ;
[ <type: NORMAL, POPUP, SPLITPOPUP, SAYBUTTON> ] ;
[ <lGrouping: GROUPBUTTON> [<lFirstElm: FIRST>][ <lEndElm: END> ] ];
[ MENU <oPopup> ];
[ MESSAGE <cMsg> ] ;
[ TOOLTIP <cToolTip> ];
[ FONT <oFont> ];
[ <lTrans: TRANSPARENT> ];
[ GRADIANT <aGradiant> ];
[ LINECOLORS <nClrBoxIn>, <nClrBoxOut> ]

[Antonio Linares]

Puedes proporcionar un pequeño PRG autocontenido que lo reproduzca ?

gracias

[elmoiquique]

Hola Antonio

Este es Testrbtn.Prg, lo unico que cambie fue el POPUP por SPLITPOPUP, y ahi puedes reproducir el error

FW24.09 Borland 770

quedo atento

Code: Select all | Expand

#include "FiveWin.ch"
#include "Ribbon.ch"

function Main()

   local oDlg, oPopup, oBtn

   DEFINE DIALOG oDlg RESOURCE "Test"

   REDEFINE RBBTN oBtn ID 100 OF oDlg SPLITPOPUP ;
      MENU BuildPopup() ROUND ACTION MsgInfo( "click" ) ;
      PROMPT "Class TRBtn" BITMAP "..\bitmaps\16x16\fivetech.bmp" LEFT

   ACTIVATE DIALOG oDlg CENTERED

return nil

function BuildPopup()

   local oPopup
   
   MENU oPopup POPUP 2007
      MENUITEM "One" ACTION MsgInfo( "One" ) FILE "..\bitmaps\16x16\fivetech.bmp"
      MENUITEM "Two" ACTION MsgInfo( "Two" ) FILE "..\bitmaps\16x16\fivetech.bmp"
      SEPARATOR
      MENUITEM "Three" ACTION MsgInfo( "Three" ) FILE "..\bitmaps\16x16\fivetech.bmp"
   ENDMENU
   
return oPopup      

[cnavarro]

Si usas un .rc, adjunta su contenido también

[elmoiquique]

Este ejemplo viene en el fivewin junto con .rc, por eso no lo adjunte, es un ejemplo propio de fivewin

[cnavarro]

Dime cual es

[elmoiquique]

Testrbtn.rc

[cnavarro]

Si, disculpa, ya habías puesto el nombre del prg antes
Acabo de probar el ejemplo y funciona correctamente con la version actual, veré de probarlo con la version que indicas

[elmoiquique]

Lo probaste con SPLITPOPUP, entras al menú desplegable y al salir da el error

[cnavarro]

Mira, edita la clase TRBTN.PRG, y modifica lo que te indico

Code: Select all | Expand

METHOD LButtonUp( nRow, nCol )  CLASS TRBtn

.../...

                        // Modified to handle Codeblock as oPopup 2014-10-10
                        if oWnd:oPopup == nil
                           oWnd:oPopup = XEval( ::oPopup, Self )
                           oWnd:oPopup:Activate( ::nTop + ::nHeight(), ::nLeft, oWnd, .F. )
                       
                           // ESTA ES LA LINEA QUE HAS DE MODIFICAR
                           if oWnd:ClassName() == "TRBGROUP" .and. oWnd:oGrPopup != nil
                        
                              Eval( oWnd:oGrPopup:bLostFocus )
                           endif   
                        endif

De todas formas miraré más profundamente el problema

[elmoiquique]

modifique la clase donde me indicaste,, igual me sigue saliendo el error, quedare atento, gracias por tu ayuda

[cnavarro]

Asegúrate de incluir el rbtn.prg modificado en tu proyecto, porque efectivamente, comprobé que el ejemplo que pusiste daba el error, pero modificando la clase tal y como te he indicado el error ya no aparece

[elmoiquique]

Efectivamente Cristobal, lo agregue a mi proyecto y se soluciono el problema,,,,,

Gracias por la ayuda y tiempo

Saludos