FiveTech Software tech support forums

... texto Fijo transparente pero también necesito colocar una variable que deberá actualizarse cada determinado tiempo por ejemplo: @ 5, 5 BITMAP oBmp2 FILENAME "c:\conteo\logo.bmp" SIZE 500, 400 OF oWnd NOBORDER oBmp:bPainted = { || SetBkMode( oBmp:hDC, 1 ),; SetTextColor( oBmp:hDC, ...

Dear All, The oBmp1 can not transparent on oBmp2. - oBmp1 = "LOGO3" is True Color + Alpha (32bits) in (RES). - oBmp2 is JPG file. How can I make oBmp1 as transparent?   DEFINE WINDOW oWnd  ICON oIcon ;                      MENU BuildMenu()  ...

... obl1:ledit:=.f. obl1:odlg:UPDATE() obl1:odlg:obar:AEVALwhen() return FUNCTION eng0504(itemid1,version1,ctable1,ctable2) local oWnd1, oTree, oBmp1, oBmp2, odb1 // private oImageList if ctable1==nil ctable1:="bom1" end if ctable2==nil ctable2:="bom2" end DEFINE WINDOW oWnd1 FROM ...

... oDlg Da error: Error FiveWin/3 Cannot create Dialog Box: Resource: MIDLG Pero si pongo al empezar: DEFINE WINDOW oWnd MENU buildmenu() @0,0 BITMAP oBmp2 FILE "" NOBORDER SIZE 0,0 OF oWnd ACTIVATE WINDOW oWnd MAXIMIZED Funciona perfectamente!!!!! El problema es si no se ha definido un ...

Joaquín,

Entonces elimina estas líneas pues son innecesarias, y posiblemente de ahi viene el problema:

oBmp1:End()
oBmp2:End()
oBmp3:End()
oBmp4:End()
oBmp5:End()
oBmp6:End()

... RESOURCE "ARBOLGRUPOS" FONT px:oDomiFont //oFnt1 REDEFINE BITMAP oBmp1 ID 109 OF oDlgarbol RESOURCE 1809 TRANSPARENT REDEFINE BITMAP oBmp2 ID 111 OF oDlgarbol RESOURCE 1807 TRANSPARENT REDEFINE BITMAP oBmp3 ID 112 OF oDlgarbol RESOURCE 1808 TRANSPARENT REDEFINE BITMAP oBmp4 ID 113 ...

Lorenzo, el código no es autocontenido, sin embargo, parece que no le estás pasando los parámetros a la Function Acciones():

Acciones(oBmp1,oBmp2)

Function Acciones(oBmp1,oBmp2)
...
...

... // oBmp1 = TBitmap():Define( , ".\BITMAPS\wdoc2.bmp" , oWnd ) oBmp1 = TBitmap():Define( , ".\BITMAPS\WDoc.bmp", oWnd ) oBmp2 = TBitmap():Define( , ".\BITMAPS\wFrmmask.bmp", oWnd ) oImageList:Add( oBmp1, oBmp2 ) // Image 0 = OMISION // 1 .. oImageList:Add( TBitmap():Define( ...

... segun sea llamada a ayudas o a formatear anteced/historias FUNCTION MAIN( cPar ) local oTree, bMasMeno local oBar, oItem, oItem1, oItem2, oBmp1, oBmp2, oImageList, oSplit, oComo, oTxt, wOk, bComo, lG32 := .f. local oItem3, oItem4, aItems := Array( 50 ), bResize, cTLee, oBrush, bLee2, cLee2, nOpc ...

... oImage:lTransparent:=.t. activate window oWnd; ON INIT ( FOLDER(), Show_Alpha(hDC) ) return nil // ------- Function Show_Alpha(hDC) LOCAL oBmp1, oBmp2, oBmp3 cALPHA1 := c_path + "\IMAGES\Image1.BMP" cALPHA2 := c_path + "\IMAGES\Image2.BMP" cALPHA3 := c_path + "\IMAGES\Image3.BMP" ...

Uwe,

You have to destroy oBmp2 after using it:

oBmp2:End()

Better if you keep it in a static variable and only load it once.

... := .F. oLbx3:lFooter := .T. oLbx3:bLClicked := { | nRow, nCol | ROW_POS2 := oLbx3:nRowSel, ; ( BR_COLOR2 := NEW_COLORE(), ; oLbx0:Refresh(), ; oBmp2:Refresh(), ; oBR_COLOR2:Refresh() ) } oLbx3:aCols[ 2 ]:AddResource("Black") oLbx3:aCols[ 2 ]:AddResource("White") oLbx3:aCols[ ...

... ; ON INIT ( MAKEBAR1( oWnd ) ) ; ON PAINT ( gradpaint1( hDC, oWnd ), ; ABPaint( hDC, 50, 10, oBmp1:hBitmap, 220 ), ; ABPaint( hDC, 380, 10, oBmp2:hBitmap, 220 ), ; ABPaint( hDC, 50, 220, oBmp3:hBitmap, 220 ), ; ABPaint( hDC, 380, 220, oBmp4:hBitmap, 220 ), ; ABPaint( hDC, 50, 430, oBmp5:hBitmap, ...

... oSay10, oSay11 local oGet1, oGet2, oGet3, oGet4, oGet5, oGet6, oGet7, oGet8, oGet9, oGet LOCAL oFont9, oBtm, oBtm2, oFont10 LOCAL oBmp, oBmp1, oBmp2 local oTbmp local oTbmp1 local oBtnBmp local oBtnBmp2 local oBtnBmp3 local oBtnBmp4 local oNlab local oIcono3 public oLBX aLab:={} aDes:={} cLab:=space(4) ...

... in the function ABPaint is nothing to define bottom and right only top and left. How can i adjust a Alpha-Bitmap ( stretch ) ? ABPaint( hDC, 2, 2, oBmp2:hBitmap, 255 ) Regards Uwe