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

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

FW 2409, Message not found: TDIALOG:OGRPOPUP ( FIXED )
Posted: Mon Mar 03, 2025 06:33 PM

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

Fivewin-Xharbour 24.09, Iquique, Chile

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: FW 2409, Message not found: TDIALOG:OGRPOPUP
Posted: Mon Mar 03, 2025 07:32 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

elmoiquique

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

Re: FW 2409, Message not found: TDIALOG:OGRPOPUP
Posted: Fri Mar 07, 2025 07:37 PM

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

Fivewin-Xharbour 24.09, Iquique, Chile

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: FW 2409, Message not found: TDIALOG:OGRPOPUP
Posted: Fri Mar 07, 2025 09:41 PM

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

gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com

elmoiquique

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

Re: FW 2409, Message not found: TDIALOG:OGRPOPUP
Posted: Sat Mar 08, 2025 06:23 PM

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 Collapse

#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

Fivewin-Xharbour 24.09, Iquique, Chile

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: FW 2409, Message not found: TDIALOG:OGRPOPUP
Posted: Sat Mar 08, 2025 09:41 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

elmoiquique

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

Re: FW 2409, Message not found: TDIALOG:OGRPOPUP
Posted: Sat Mar 08, 2025 09:46 PM

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

Fivewin-Xharbour 24.09, Iquique, Chile

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: FW 2409, Message not found: TDIALOG:OGRPOPUP
Posted: Sat Mar 08, 2025 09:47 PM

Dime cual es

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

elmoiquique

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

Re: FW 2409, Message not found: TDIALOG:OGRPOPUP
Posted: Sat Mar 08, 2025 09:48 PM

Testrbtn.rc

Fivewin-Xharbour 24.09, Iquique, Chile

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: FW 2409, Message not found: TDIALOG:OGRPOPUP
Posted: Sat Mar 08, 2025 09:51 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

elmoiquique

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

Re: FW 2409, Message not found: TDIALOG:OGRPOPUP
Posted: Sat Mar 08, 2025 09:54 PM

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

Fivewin-Xharbour 24.09, Iquique, Chile

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: FW 2409, Message not found: TDIALOG:OGRPOPUP
Posted: Sat Mar 08, 2025 10:06 PM

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

Code: Select all Collapse

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

elmoiquique

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

Re: FW 2409, Message not found: TDIALOG:OGRPOPUP
Posted: Sat Mar 08, 2025 10:29 PM

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

Fivewin-Xharbour 24.09, Iquique, Chile

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: FW 2409, Message not found: TDIALOG:OGRPOPUP
Posted: Sat Mar 08, 2025 10:31 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

elmoiquique

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

Re: FW 2409, Message not found: TDIALOG:OGRPOPUP
Posted: Sat Mar 08, 2025 10:44 PM

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

Gracias por la ayuda y tiempo

Saludos

Fivewin-Xharbour 24.09, Iquique, Chile

FiveTech Support Forums