FiveTech Software tech support forums

... are OK because they are visible at the bottom on xBrowse row-selection http://www.pflegeplus.com/IMAGES/Xbrwimg5.jpg saved like oBmp1:SaveToBmp( c_path2 + "Img64_" + ALLTRIM(STR(nCount[1])) + ".bmp" ) in xBrowse WITH OBJECT:aCols[ 1 ] :cDataType := 'F' :nDataBmpAlign ...

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

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

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

... esa carga y descarga de bitmaps desde recursos? DEFINE DIALOG 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 ...

... resources. @ 30, 20 RADIO oRadio1 VAR nValue1 ITEMS "&No" OF oFld:aDialogs[1] SIZE 30, 10 PIXEL ; ON CHANGE { || ; IIF( nValue1 = 1, oBmp1:LoadImage( "IMAGE1" ), NIL ), ; IIF( nValue1 = 2, oBmp1:LoadImage( "IMAGE2" ), NIL ), ; IIF( nValue1 = 3, oBmp1:LoadImage( ...

... NOBORDER ; PROMPT "&1. Color" ; FILENAME c_path1 + "Select.Bmp" ; ACTION ( lRepaint := .T. , nWColorF := ChooseColor(), ; oBmp1:Refresh(), oBmp3:Refresh(), oGet1:Refresh() ) ; FONT oFont1 ; LEFT oBtn1:lTransparent := .t. oBtn1:cToolTip = { "1. Dlg-Gradient" + ...

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

esto igual sirve REDEFINE IMAGE oBmp1 FILENAME cBitmap1 ADJUST ID 114 OF oFld:aDialogs[ 4 ] SCROLL UPDATE REDEFINE BUTTON ID 115 OF oFld:aDialogs[ 4 ]; ACTION( Fot_Jug:= cGetFile32("JPEG (*.jpg) | *.jpg | BITMAP (*bmp)| *.bmp", ...

...  -aRect[1]-119,380 ,,,.t.)}  //103          //,oBtn4:move(                    "",620 ,,,.t.); //calculate          //,oBmp1:move(                    "",11 ,,,.t.);  //calculate          //,oBmp5:move(arect[3] -aRect[1]- 149,380 ,,,.t.);// Info          //,oSay13:move( ...

Hello Daniel, I added only one Line in the Sample above without any changes and the Buttons are working fine : ACTIVATE DIALOG oDlg ON PAINT (oBmp1:LoadBmp(cFile), ; nBtnIdx := INT(nImgHeight / 3), ; oBmp1:Move( 10, 0, nImgWidth, nImgHeight, .f. ), ; oButton1:Move( 30, oDlg:nWidth - 75, .f. ), ...

... LBUTTONDOWN, LBUTTONUP, etc ) is "captuted" by IMAGE control controls within a dialog have other dimensions... you can do: @ 10,0 IMAGE oBmp1 OF oDlg SIZE nImgWidth/2, nImgHeight/2 SCROLL PIXEL or set the oBmp1 at the end       @ 0,0 SAY oSay1 VAR cTitle OF oDlg CENTERED ...

... it works only with these changes : @ 20, 255 BUTTON oBtn1 PROMPT "&Imprimir" SIZE 30,10 OF oDlg PIXEL ; ACTION PrintImage( oBmp1) @ 55, 255 BUTTON oBtn2 PROMPT "&Terminar" SIZE 30,10 OF oDlg PIXEL ACTION oDlg:End() ACTIVATE DIALOG oDlg ON PAINT ( oBMP1:LoadBmp(cFile), ...

... : http://www.pflegeplus.com/pictures/wndsize.jpg ... ... DEFINE WINDOW oWnd TITLE "SButton-Tools" DEFINE IMAGE oBMP1 FILENAME c_path + "\System\Fantasy6.JPG" ... ... ACTIVATE WINDOW oWnd ; ON PAINT ( DRAWBITMAP( hdc, oBMP1:hbitmap, 0, 0 ) ,; oWnd:Move( ...

Imagesize and Display : ... LOCAL oBMP1 // Get Window-Screen-Size LOCAL nWidth := GetSysMetrics(0) LOCAL nHeight := GetSysMetrics(1) ... ... // Your Image : DEFINE IMAGE oBMP1 FILENAME c_path + "\System\BACKGRD.JPG" Msgalert( oBMP1:nWidth() ...