FiveTech Software tech support forums

Júlio, Then try to use: oBitmap:Say( nRow, nCol, cText, ... ) METHOD Say( nRow, nCol, cText, nClrFore, nClrBack, oFont, lPixel,; lTransparent, nAlign ) Antonio, I tried with this implementation, but not works! oBitmap := TBitmap():redefine( ...

Júlio,

Then try to use:

oBitmap:Say( nRow, nCol, cText, ... )

METHOD Say( nRow, nCol, cText, nClrFore, nClrBack, oFont, lPixel,;
lTransparent, nAlign )

... when fl:del update Then when you change fl:del you'll need to issue a ftdetdlg:AEvalWhen(). In the mean time I got an even simpler solution, oBitmap:Show() & oBitmap:hide(). But thanks anyway. --------------------------------------------------------------------------------

... MAXIMIZED; ON PAINT (showBitmaps( oWnd, hDC, oBmpSFONDO:hBitmap,oBmpSFONDO ) ) // this is good for BMPs STAT FUNC shwBitmaps( oWnd, hDC, hBmp, oBitmap ) LOCAL nTop := 0 LOCAL nLeft := 0 LOCAL nWidth := oWnd:nWidth() LOCAL nHeight := oWnd:nHeight() Local oSay IF hBmp = 0 RETURN NIL ENDIF PalBmpDraw( ...

... ::hDC, Self ) // Use cargo or add a new DATA to the class where ::Cargo may contain: { | hDC | If( lWaterMark, PalBmpDraw( hDC, nRow, nCol, oBitmap:hBitmap, oBitmap:hPalette, nWidth, nHeight ),) }

Ricardo,

Tienes que definir ese código para ser llamado desde:

oBitmap:bPainted = { | hDC | ...tu código... }

así cada vez que se repinte el bitmap, volverá a dibujar las líneas.

Si la tercera aparece, las otras tambien deben aparecer, salvo que te estés equivocando en las coordenadas. Revísalas

... OA("C¢digo Postal"),OA("Ciudad"),OA("Tel‚fono"); ID 300; SIZES 96,250,288,288,112,248,128; ON CHANGE Veo_Mensa(@oGets,Recno(),@lFoto,oBitmap); OF oDlgMensa

... Tengo un problema cuando en cualquier aplicacion pongo un fondo en la ventana principal. Cuando lo pongo lo hago con la instrucción @ 0, 0 BITMAP obitmap FILE "ascwin.bmp" of oVentPrinc:owndclient() SIZE 800,600 NOBORDER Y cuando la aplicacion abre un dialog y pinchas sobre la imagen no sobre ...

Antonio,

REDEFINE BITMAP ::oBitmap ID 200;
OF ::oDlg;
RESOURCE "MIBITMAP"

::oBitmap:lTransparent := .T.

Esto sí me funciona en FWH.


Un Saludo,
Joaquín

Hola,

He intentado mostrar un bitmap transparente y da error en el método paint.

oBitmap:lTransparent := .T. después de definirlo


¿ No se puede poner transparente en una pocket ?

Un Saludo,
Joaquín

... bitmap transparente, siendo el efecto que se quiere conseguir precisamente el contrario. No obstante, lo he solucionado de la siguiente manera: ::oBitmap:SetColor( , ::oFrame1:nClrPane ) Con esto ha tomado el color del control de fondo perfectamente. Pero ahí dejo la duda, ¿por qué la clausula ...

Hola, Hasta esta versión, lo siguiente se veía bien: REDEFINE BITMAP ::oBitmap ID 114 OF ::oDlg RESOURCE "PDAFONDO" En esta versión, se ve un recuadro blanco alrededor, por lo que le añadido la clausula TRANSPAREN y también he probado con oBmp:lTransparent ...

Tampoco esta:

@ 1,1 SAY oSay PROMPT "PROBANDO" OF oBitmap


Help please !!!

Amigos, ninguna forma fucionó!

SetBkMode( oBitmap:hDC, 1 )
TextOut( oBitmap:hDC, 1, 1, "PROBANDO EL TEXTO" )
DrawText( oBitmap:hDC, "OTRA PRUEBA DEL TEXTO", { 1,1,500,500 } )


Alguna otra alternativa ???

Tengo la siguiente Ventana: DEFINE WINDOW oWnd FROM 0,0 TO 45,90 TITLE NAMEPROGRAM ICON oIcon COLOR CLR_BLACK,RGB(172,194,139) DEFINE BITMAP oBitmap FILE ".\BMPS\FONDO.BMP" ACTIVATE WINDOW oWnd MAXIMIZED ; ON PAINT ColocaBitmaps( oWnd, hDC, oBitmap:hBitmap, oBitmap ) STAT FUNC ColocaBitmaps( ...