FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Problema version 15.04 TOUTLOOK:LLEGACYLOOK
Posts: 10
Joined: Fri May 08, 2015 03:42 PM
Problema version 15.04 TOUTLOOK:LLEGACYLOOK
Posted: Fri May 08, 2015 07:12 PM

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 )

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Problema version 15.04 TOUTLOOK:LLEGACYLOOK
Posted: Sat May 09, 2015 11:03 PM

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?

Regards



G. N. Rao.

Hyderabad, India
Posts: 10
Joined: Fri May 08, 2015 03:42 PM
Re: Problema version 15.04 TOUTLOOK:LLEGACYLOOK
Posted: Mon May 11, 2015 01:01 PM

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 ))
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Problema version 15.04 TOUTLOOK:LLEGACYLOOK
Posted: Mon May 11, 2015 01:31 PM
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 (fw): Select all Collapse
   if ::lBarBtn .and. ::oWnd:lLegacyLook .and. !::lAlpha .and. ( Empty( ::cCaption ) .or. ::cCaption == "..." ) .and. ;

Please replace "::lBarBtn" with "::IsKindOf( "TBAR" )"
The revised code looks like this:
Code (fw): Select all Collapse
   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.
Regards



G. N. Rao.

Hyderabad, India
Posts: 10
Joined: Fri May 08, 2015 03:42 PM
Re: Problema version 15.04 TOUTLOOK:LLEGACYLOOK
Posted: Mon May 11, 2015 02:24 PM

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

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Problema version 15.04 TOUTLOOK:LLEGACYLOOK
Posted: Mon May 11, 2015 03:14 PM
Please also change line no.1157 as
Code (fw): Select all Collapse
      aBmpRect    = IfNil( ::aBmpRect, If( ::oWnd:isKindOf( "TBAR" ), ::oWnd:aBmpRect, nil ) )
Regards



G. N. Rao.

Hyderabad, India
Posts: 10
Joined: Fri May 08, 2015 03:42 PM
Re: Problema version 15.04 TOUTLOOK:LLEGACYLOOK
Posted: Tue May 12, 2015 07:32 PM
Hi, very good :-)
But can you see this problem
Sorry but image don't see. In BtnBmp buttom appear "btnbmp" in image.

TIA
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Problema version 15.04 TOUTLOOK:LLEGACYLOOK
Posted: Wed May 13, 2015 02:18 AM

I can not see your images

Regards



G. N. Rao.

Hyderabad, India
Posts: 10
Joined: Fri May 08, 2015 03:42 PM
Re: Problema version 15.04 TOUTLOOK:LLEGACYLOOK
Posted: Wed May 13, 2015 11:46 AM


Here you are Mr Rao.
Thanks.
Posts: 10
Joined: Fri May 08, 2015 03:42 PM
Re: Problema version 15.04 TOUTLOOK:LLEGACYLOOK
Posted: Thu May 14, 2015 01:02 PM

Solucionado. :D
Muchas Gracias Mr Rao.

Continue the discussion