Problema version 15.04 TOUTLOOK:LLEGACYLOOK

[lelu]

Hola Antonio, con la version 15.02 compilo perfectamente pero con esta version me surgio este problema, alguna idea ?
Saludos

Application
===========
Path and name: C:\credil\credix32.exe (32 bits)
Size: 3,987,968 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
FiveWin Version: FWHX 15.04
Windows version: 5.1, Build 2600 Service Pack 3

Time from start: 0 hours 1 mins 33 secs
Error occurred at: 08/05/15, 15:10:42
Error description: Warning BASE/1004 Message not found: TOUTLOOK:LLEGACYLOOK

Stack Calls
===========
Called from: source\rtl\tobject.prg => TOUTLOOK:ERROR( 0 )
Called from: source\rtl\tobject.prg => TOUTLOOK:MSGNOTFOUND( 0 )
Called from: source\rtl\tobject.prg => TOUTLOOK:LLEGACYLOOK( 0 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:PAINTBITMAP( 1132 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:PAINT( 1453 )
Called from: .\source\classes\BTNBMP.PRG => (b)TBTNBMP:TBTNBMP( 131 )
Called from: => TBTNBMP:DISPLAY( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1549 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3355 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 289 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 421 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: source\rtl\tobject.prg => TOUTLOOK:ERROR( 0 )
Called from: source\rtl\tobject.prg => TOUTLOOK:MSGNOTFOUND( 0 )
Called from: source\rtl\tobject.prg => TOUTLOOK:LLEGACYLOOK( 0 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:PAINTBITMAP( 1132 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:PAINT( 1453 )
Called from: .\source\classes\BTNBMP.PRG => (b)TBTNBMP:TBTNBMP( 131 )
Called from: => TBTNBMP:DISPLAY( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1549 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3355 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 289 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 421 )

[nageswaragunupudi]

May we know if you created this button (btnbmp) with the command
DEFINE BUTTON OF ...........
or
@ x,y BTNBMP ......
?
Can you please provide the program code creating this button?

[lelu]

Hi, thanks you attention.


@ -1, -1 OUTLOOK oOut ;
SIZE 100, oWMain:nHeight() ;
PIXEL ;
FONT oFont ;
OF oWMain


DEFINE GROUP OF OUTLOOK oOut PROMPT "&Principal"

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "EXIT" ;
PROMPT "Salir de la aplicaciَn" ;
ACTION fnQuit()

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "PERSONA" ;
PROMPT "Cerrar Sesiَn" ;
ACTION ( fnLogin(), WndRef() )

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "CLIENTE" ;
PROMPT "Nueva solicitud" ;
ACTION fnAddSoli( 1 )

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "FACTU" ;
PROMPT "Nuevo crédito" ;
ACTION fnExeCred()

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "BILLETES" ;
PROMPT "Cobrar cuota" ;
ACTION fnCobCta()

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "NEWS" ;
PROMPT "Novedades";
ACTION AltaNov()

if OPV:lCrd


DEFINE GROUP OF OUTLOOK oOut PROMPT "&Ventas"

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "NEW" ;
PROMPT "Productos.." ;
ACTION FnMsgArray( fnSqlStock(), "Articulo", 4 )

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "NEW" ;
PROMPT "Venta directa.." ;
ACTION fnSaleArt(2)

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "NEW" ;
PROMPT "Devoluciَn Anulaciَn" ;
ACTION fnSaleArt(1)

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "BROWSE" ;
PROMPT "Operaciones";
ACTION BrwMovArt()

end //lCrd

DEFINE GROUP OF OUTLOOK oOut PROMPT "&Mas opciones"

/*
DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "MANO" ;
PROMPT "Autorizar";
ACTION FnAutoCom()

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "BROWSE" ;
PROMPT "Localidades";
ACTION BrwPostal()
*/

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "CALEND" ;
PROMPT "Feriados";
ACTION BrowseFer()

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "FIRMA" ;
PROMPT "Promesas" ;
ACTION BrwCall()

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "FACE" ;
PROMPT "Morosos" ;
ACTION BrowseLex()

DEFINE GROUP OF OUTLOOK oOut PROMPT "&Estadisticas"


DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "BROWSE" ;
PROMPT "Total Consultas";
ACTION MsgRun("Consultas","Favor de Esperar !", {|| FnSqlCliente("vTotal") } )

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "BROWSE" ;
PROMPT "Créditos no Vendidos";
ACTION MsgRun("No Vendidos","Favor de Esperar !", {|| FnSqlNoVen("vNoven") } )


DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "PERSONA" ;
PROMPT "Entrevistar";
ACTION ( BrwSoli() )


DEFINE GROUP OF OUTLOOK oOut PROMPT "&Morosos x Internet"

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "BROWSE" ;
PROMPT "Morosidad Central";
ACTION FnDoMoraSuc()

//DEFINE BITMAP OF OUTLOOK oOut ;
//RESOURCE "XLS" ;
//PROMPT "Transferencias";
//ACTION FnDoTranfer()

DEFINE GROUP OF OUTLOOK oOut PROMPT "&Envia y Sale"

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "MAIL" ;
PROMPT "Envio Outlook";
ACTION fnSendOut()

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "CAFE" ;
PROMPT "Trasmite FTP" ;
ACTION ( fnDoGrb(TRUE) ) ; //ftpGetPlan(); //fnGetPlanes();

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "INTERNET" ;
PROMPT "Informe Histَrico" ;
ACTION FnBrwCrd()

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "NEWS" ;
PROMPT "Activa Histَrico !" ; //InfoInforme de ROL Externo" ;
ACTION FnActivar() //FnRunRol()


DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "EXIT2" ;
PROMPT "Salir del sistema";
ACTION fnQuit()

@ 0, 100 SPLITTER oSpl ;
VERTICAL ;
PREVIOUS CONTROLS oOut ;
LEFT MARGIN 70 ;
RIGHT MARGIN 200 ;
SIZE 4, nil PIXEL ;
OF oWMAin ;
_3DLOOK ;
UPDATE

//oOut:nClrPane := nRGB( 255, 255, 235 )
oOut:SetColor( nRGB( 46, 84, 73 ), nRGB( 255, 255, 235 ))

[nageswaragunupudi]

Thanks for pointing out the problem.
This requires a fix.

Please make this modification in your btnbmp.prg.

This is the code at line no.1130 in method PaintBitmap() of tbtnbmp class.

Code: Select all  Expand view

  if ::lBarBtn .and. ::oWnd:lLegacyLook .and. !::lAlpha .and. ( Empty( ::cCaption ) .or. ::cCaption == "..." ) .and. ;
 

Please replace "::lBarBtn" with "::oWnd:IsKindOf( "TBAR" )"
The revised code looks like this:

Code: Select all  Expand view

  if ::oWnd:IsKindOf( "TBAR" ) .and. ::oWnd:lLegacyLook .and. !::lAlpha .and. ( Empty( ::cCaption ) .or. ::cCaption == "..." ) .and. ;
 

We are including this fix for the next release.
Again thanks for pointing out the problem.

[lelu]

Thanks, but now this happens

Application
===========
Path and name: C:\credil\credix32.exe (32 bits)
Size: 3,987,456 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
FiveWin Version: FWHX 15.04
Windows version: 5.1, Build 2600 Service Pack 3

Time from start: 0 hours 0 mins 17 secs
Error occurred at: 11/05/15, 10:21:12
Error description: Warning BASE/1004 Message not found: TOUTLOOK:ABMPRECT

Stack Calls
===========
Called from: source\rtl\tobject.prg => TOUTLOOK:ERROR( 0 )
Called from: source\rtl\tobject.prg => TOUTLOOK:MSGNOTFOUND( 0 )
Called from: source\rtl\tobject.prg => TOUTLOOK:ABMPRECT( 0 )
Called from: btnbmp.prg => TBTNBMP:PAINTBITMAP( 1157 )
Called from: btnbmp.prg => TBTNBMP:PAINT( 1453 )
Called from: btnbmp.prg => (b)TBTNBMP:TBTNBMP( 131 )
Called from: => TBTNBMP:DISPLAY( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
Called from: btnbmp.prg => TBTNBMP:HANDLEEVENT( 1549 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3355 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 289 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 421 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: source\rtl\tobject.prg => TOUTLOOK:ERROR( 0 )
Called from: source\rtl\tobject.prg => TOUTLOOK:MSGNOTFOUND( 0 )
Called from: source\rtl\tobject.prg => TOUTLOOK:ABMPRECT( 0 )
Called from: btnbmp.prg => TBTNBMP:PAINTBITMAP( 1157 )
Called from: btnbmp.prg => TBTNBMP:PAINT( 1453 )
Called from: btnbmp.prg => (b)TBTNBMP:TBTNBMP( 131 )
Called from: => TBTNBMP:DISPLAY( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
Called from: btnbmp.prg => TBTNBMP:HANDLEEVENT( 1549 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3355 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 289 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 421 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: source\rtl\tobject.prg => TOUTLOOK:ERROR( 0 )
Called from: source\rtl\tobject.prg => TOUTLOOK:MSGNOTFOUND( 0 )
Called from: source\rtl\tobject.prg => TOUTLOOK:ABMPRECT( 0 )
Called from: btnbmp.prg => TBTNBMP:PAINTBITMAP( 1157 )
Called from: btnbmp.prg => TBTNBMP:PAINT( 1453 )
Called from: btnbmp.prg => (b)TBTNBMP:TBTNBMP( 131 )
Called from: => TBTNBMP:DISPLAY( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
Called from: btnbmp.prg => TBTNBMP:HANDLEEVENT( 1549 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3355 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 289 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 421 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: source\rtl\tobject.prg => TOUTLOOK:ERROR( 0 )
Called from: source\rtl\tobject.prg => TOUTLOOK:MSGNOTFOUND( 0 )
Called from: source\rtl\tobject.prg => TOUTLOOK:ABMPRECT( 0 )
Called from: btnbmp.prg => TBTNBMP:PAINTBITMAP( 1157 )
Called from: btnbmp.prg => TBTNBMP:PAINT( 1453 )
Called from: btnbmp.prg => (b)TBTNBMP:TBTNBMP( 131 )
Called from: => TBTNBMP:DISPLAY( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
Called from: btnbmp.prg => TBTNBMP:HANDLEEVENT( 1549 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3355 )
Called from: => UPDATEWINDOW( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1037 )
Called from: main.prg => MAIN( 428 )

System
======
CPU type: Pentium(R) Dual-Core CPU E5400 @ 2.70GHz 2700 Mhz
Hardware memory: 1981 megs

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

Windows total applications running: 8
1 ,
2 , C:\WINDOWS\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.5512_x-ww_35d4ce83
3 , C:\WINDOWS\system32\SHLWAPI.dll
4 , C:\credil\credix32.exe
5 DDE Server Window, C:\WINDOWS\system32\OLE32.DLL
6 GDI+ Window, C:\WINDOWS\WinSxS\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.2600.5660_x-ww_e0385ec6\GDIPLUS
7 M, C:\WINDOWS\system32\msctfime.ime
8 MCI command handling window, C:\WINDOWS\system32\WINMM.DLL

Variables in use
================
Procedure Type Value
==========================
TOUTLOOK:ERROR
Param 1: C "Message not found"
Param 2: C "TOUTLOOK"
Param 3: C "ABMPRECT"
Param 4: N 1004
Local 1: U
Local 2: O Class: TOUTLOOK
Local 3: N 13
TOUTLOOK:MSGNOTFOUND
Param 1: C "ABMPRECT"
Local 1: O Class: TOUTLOOK
TOUTLOOK:ABMPRECT
TBTNBMP:PAINTBITMAP
Local 1: O Class: TBTNBMP
Local 2: O Class: TRECT
Local 3: U
Local 4: N 0
Local 5: N 0
Local 6: U
Local 7: U
Local 8: U
Local 9: U
Local 10: U
Local 11: U
Local 12: U
Local 13: U
Local 14: L .F.
Local 15: U
Local 16: U
Local 17: U
Local 18: U
Local 19: U
TBTNBMP:PAINT
Local 1: O Class: TBTNBMP
Local 2: A Len: 5
(b)TBTNBMP:TBTNBMP
Param 1: O Class: TBTNBMP
TBTNBMP:DISPLAY
TCONTROL:HANDLEEVENT
Param 1: N 15
Param 2: N 0
Param 3: N 0
Local 1: O Class: TBTNBMP
Local 2: U
TBTNBMP:HANDLEEVENT
Param 1: N 15
Param 2: N 0
Param 3: N 0
Local 1: O Class: TBTNBMP
_FWH
Param 1: N 0
Param 2: N 15
Param 3: N 0
Param 4: N 0
Param 5: N 14
Local 1: O Class: TBTNBMP
DIALOGBOXINDIRECT
Param 1: N 4194304
Param 2: C "€ ب€  د‏Yےâ ° F i v e W i n f o r H a r b o u r پ P 4  u  · S T A T I C E r r o r d e s c r i p t i o n : W a r n i n g B A S E / 1 0 0 4 M e s s a g e n o t f o u n d : T O U T L O O K : A B M P R E C T

P   H  ¸ S T A T I C & S t a c k L i s t پ ،P  ! ـ { ¹ L I S T B O X

P a ‍   ؛ B U T T O N & Q u i t
P ¯  /  » B U T T O N S e e e r r o r . l o g f i l e "
Param 3: N 4196886
Param 4: O Class: TDIALOG
TDIALOG:ACTIVATE
Param 1: U
Param 2: U
Param 3: B {|| ... }
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
Local 1: O Class: TDIALOG
Local 2: N 4196886
Local 3: U
Local 4: U
Local 5: U
Local 6: O Class: TDIALOG
ERRORDIALOG
Param 1: O Class: ERROR
Local 1: O Class: TDIALOG
Local 2: O Class: TLISTBOX
Local 3: U
Local 4: U
Local 5: C " Called from: source\rtl\tobject.prg => TOUTLOOK:ERROR( 0 )"
Local 6: N 9
Local 7: C " Error description: Warning BASE/1004 Message not found: TOUTLOOK:ABMPRECT
"
Local 8: A Len: 41
Local 9: O Class: TSAY
Local 10: N 1275404578
Local 11: N 1
Local 12: C "Application

[nageswaragunupudi]

Please also change line no.1157 as

Code: Select all  Expand view

     aBmpRect    = IfNil( ::aBmpRect, If( ::oWnd:isKindOf( "TBAR" ), ::oWnd:aBmpRect, nil ) )
 

[lelu]

Hi, very good
But can you see this problem
Sorry but image don't see. In BtnBmp buttom appear "btnbmp" in image.

TIA

[nageswaragunupudi]

I can not see your images

[lelu]

Here you are Mr Rao.
Thanks.

[lelu]

Solucionado.
Muchas Gracias Mr Rao.