FiveTech Software tech support forums

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

... 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 oDlgarbol RESOURCE 1810 TRANSPARENT REDEFINE BITMAP oBmp5 ID 114 ...

... "&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" + CRLF + "Color","Color-Selection", ...

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

... ( 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, 220 ), ; ABPaint( hDC, 380, 430, oBmp6:hBitmap, ...

... would be nice, the bmp could be adjusted with < bottom and right > to the related resource. like : ABPaint( hDC1, Top, Left, Bottom, Right, oBmp3:hBitmap, 220 ) The complete calculation sample : #include "FiveWin.ch" #include "InKey.ch" #include "xbrowse.ch" ...

... local oLbx local oTbmp local oTbmp1 local oBtnBmp local oBtnBmp2 local oBtnBmp3 local oBtnBmp4 local oNlab local oIcono3 local obrush2 public oBmp3 YACAP:=0 YACTA:=0 aLab:={} aDes:={} cLab:=space(4) cDes:=space(20) okeysup:=.t. cNumlab:=space(4) kcvelab:=space(4) qcvelab:=space(4) cNumlab2:=0 ...

... oBmp2, oBarrbtm local oTbmp local oTbmp1 local oBtnBmp local oBtnBmp2 local oBtnBmp3 local oBtnBmp4 local oNlab local oIcono3 local obrush2 public oBmp3 YACAP:=0 YACTA:=0 yafide:=0 okeysup:=.t. cNumlab:=space(4) //cNumlab:=0 kcvelab:=space(4) qcvelab:=space(4) cNumlab2:=0 CNOMBRE:=space(40) CDESCON:=SPACE(20) ...

... oBmp2, oBarrbtm local oTbmp local oTbmp1 local oBtnBmp local oBtnBmp2 local oBtnBmp3 local oBtnBmp4 local oNlab local oIcono3 local obrush2 public oBmp3 YACAP:=0 YACTA:=0 yafide:=0 okeysup:=.t. cNumlab:=space(4) //cNumlab:=0 kcvelab:=space(4) qcvelab:=space(4) cNumlab2:=0 CNOMBRE:=space(40) CDESCON:=SPACE(20) ...

... noborder OF oFld:aDialogs[ 6 ] SIZE 110, 42 @ 9, 17 bitmap obmp2 name "titulo_anadir" noborder of oFld:aDialogs[ 6 ] size 110, 42 @ 11.5, 9 bitmap obmp3 name "titulo_borrar" noborder of oFld:aDialogs[ 6 ] size 110, 42 oBmp2:blClicked := {|| MsgBeep(),nueva_marca(oWnd1) } oBmp1:blClicked := {|| ...

Elías,

Quita estas 4 líneas, ya que no son necesarias, pues al destruirse el diálogo, destruye todos los controles que contiene:

oBmp1:end()
oBmp2:end()
oBmp3:end()
oBmp4:end()

... REDEFINE BITMAP oBmp1 NAME 'btn_inventario' ID 100 OF oWnd REDEFINE BITMAP oBmp2 NAME 'btn_compras' ID 200 OF oWnd REDEFINE BITMAP oBmp3 NAME 'btn_ventas' ID 300 OF oWnd REDEFINE BITMAP oBmp4 NAME 'btn_configuracion' ID 400 OF oWnd oBmp1:setcolor(RGB(1,1,1),RGB(230,184,94)) oBmp2:setcolor(RGB(1,1,1),RGB(230,184,94)) ...

//-> Original by c:\FWH27\SAMPLES\LEDDISP.PRG #Include "FiveWin.Ch" Static nGet Static oBmp1, oBmp2, oBmp3, oBmp4, oBmp5 //----------------------------------------------------------------------------// Function Velocimetro() Local oDlg, oGet nGet := 0 DEFINE DIALOG oDlg ...