FiveTech Software tech support forums

I made

oImageList = TImageList():New()

oBmp1 := TBitmap():Define( "open",, oDlg )
oBmp2 := TBitmap():Define( "close",, oDlg)


@ 5, 1 TREEVIEW oTree OF oDlg SIZE 80, 80 COLOR 0, GetSysColor( 15 )
oTree:SetImageList( oImageList )

https://i.postimg.cc/T32NLcbh/tt.png

Why I not see the bmps ...

... 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, CLR_YELLOW ...

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() @ 0, 0 BITMAP oBmp1 RESOURCE "LOGO3" OF oWnd NOBORDER oBmp:nAlphaLevel := 150 ...

... 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 3, 0 TO 30 ...

... 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 control en ...

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

... oDlgarbol 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 OF ...

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

... TImageList():New()

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

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

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

// Left / Top ...

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[ 2 ]:AddResource ...

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

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