DUDA: COMANDO TRANSPARENT EN UNA BITMAP

[karinha]

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.

[karinha]

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

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

[karinha]

//-> 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.

[Antonio Linares]

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

[karinha]

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.