Buenas Amigos...

Una pequena duda en la version 2.7 de FiveWin

Porque se uso una BITMAP y hago asi:

REDEFINE BITMAP ID 23 RESOURCE "ORGARQS" TRANSPARENT OF ODLG
//
REDEFINE BITMAP ID 24 RESOURCE "HAND" TRANSPARENT OF ODLG

Me retorna erro:

REINDEXA.prg(109) Warning W0001 Ambiguous reference: 'TRANSPARENT'

REINDEXA.prg(111) Warning W0001 Ambiguous reference: 'TRANSPARENT'

Se lo hago asi:

REDEFINE BITMAP ID 23 RESOURCE "ORGARQS" TRANSPAREN OF ODLG
//
REDEFINE BITMAP ID 24 RESOURCE "HAND" TRANSPAREN OF ODLG

Funciona Perfecto.

Donde esta el erro?

Muchas gracias.

Regards, saludos.

//-> Resuelto de esta Forma:

//-> Esto esta en C:\FWH27\INCLUDE\FIVEWIN.CH

xcommand REDEFINE BITMAP [ <oBmp> ] ;

         [ ID <nId> ] ;
         [ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
         [ <resource: NAME, RESNAME, RESOURCE> <cResName> ] ;
         [ <file: FILE, FILENAME, DISK> <cBmpFile> ] ;
         [ <lClick: ON ClICK, ON LEFT CLICK> <uLClick> ] ;
         [ <rClick: ON RIGHT CLICK> <uRClick> ] ;
         [ <scroll: SCROLL> ] ;
         [ <adjust: ADJUST> ] ;
         [ CURSOR <oCursor> ] ;
         [ MESSAGE <cMsg>   ] ;
         [ <update: UPDATE> ] ;
         [ WHEN <uWhen> ] ;
         [ VALID <uValid> ] ;
         [ <transparent: TRANSPARENT> ] ;
         [ <transparent: TRANSPAREN>  ] ;  //-> Modificado By Joao Santos
   => ;
      [ <oBmp> := ] TBitmap():ReDefine( <nId>, <cResName>, <cBmpFile>,;
         <oWnd>, [\{ |nRow,nCol,nKeyFlags| <uLClick> \}],;
                 [\{ |nRow,nCol,nKeyFlags| <uRClick> \}],;
         <.scroll.>, <.adjust.>, <oCursor>, <cMsg>, <.update.>,;
         <{uWhen}>, <{uValid}>, <.transparent.> )

xcommand DEFINE BITMAP [<oBmp>] ;

         [ <resource: RESOURCE, NAME, RESNAME> <cResName> ] ;
         [ <file: FILE, FILENAME, DISK> <cBmpFile> ] ;
         [ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
   => ;
      [ <oBmp> := ] TBitmap():Define( <cResName>, <cBmpFile>, <oWnd> )

/*----------------------------------------------------------------------------//

//-> Otro erro en FIVEWIN.CH de la Version 2.7
//-> Solo en RECURSOS en @...Say, Esta Correcto. ????

/----------------------------------------------------------------------------//
!short: SAY /

xcommand REDEFINE SAY [<oSay>] ;

         [ <label: PROMPT, VAR> <cText> ] ;
         [ PICTURE <cPict> ] ;
         [ ID <nId> ] ;
         [ <dlg: OF,WINDOW,DIALOG > <oWnd> ] ;
         [ <color: COLOR,COLORS > <nClrText> [,<nClrBack> ] ] ;
         [ <update: UPDATE > ] ;
         [ FONT <oFont> ] ;
         [ <lShaded: SHADED, SHADOW > ] ;   //-> Modificado Joao Santos
         [ <lBox:    BOX   >  ] ;
         [ <lRaised: RAISED > ] ;
   => ;
      [ <oSay> := ] TSay():ReDefine( <nId>, <{cText}>, <oWnd>,   ;
                    <cPict>, <nClrText>, <nClrBack>, <.update.>, ;
                    <oFont>, <.lShaded.>, <.lBox.>, <.lRaised.>  )

//
//-> Ahora Puedo hacer Igual como en la Classe SENSITIVE SAY.
//
For IDCor=601 TO 620
REDEFINE SAY oSay ID iDcor ;
OF oFld:aDialogs[1] ;
COLOR CLR_BLACK ;
UPDATE BOX RAISED ;
FONT oFnt
Next IDCor

Maestro Antonio... Estoy Cierto?

Regards, saludos.

João,

Deberías usar una versión más actualizada de Harbour ó xHarbour, ya que el preprocesador se cambió completamente.

De todas formas, podrias usar:
[ <lTransparent: TRANSPARENT> ] ;

Antonio Linares wrote:João,

Deberías usar una versión más actualizada de Harbour ó xHarbour, ya que el preprocesador se cambió completamente.

De todas formas, podrias usar:
[ <lTransparent: TRANSPARENT> ] ;

Gracias Maestro.

Ahora, uso las dos formas

Voy cambiar la version de XHARBOUR.EXE para el ultimo build.

Regards, saludos.