FiveTech Software tech support forums

Saludos, amigos.
Usando TBUTTONBMP podemos cargar su imagen con: oBmp:LoadBitMap( aBmps[oBrw:nArrayAt] ) .
Cual seria su equivalente para TBTNBMP?
Gracias

... gpf 3) bVar:= { {|| "'" + cBmp + "'" } cBmp:= EVAL(bVar) tambien da un gpf la imagen la defino asi : oMnItem[nItem]:hBitmap:= LoadBitmap( GetResources(), cBmp ) Gracias.

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

... FUNCTION CambiaBmpSort(n,xBrw,cBmpAsc,cBmpDes) local hBmp DEFAULT n:=0 xBrw:aSortBmp := {} hBmp := if( n = 0, FWbmpAsc(),LoadBitMap(GetResources(), cBmpAsc ) ) AAdd( xBrw:aSortBmp, { hBmp, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), nil, .F. } ) hBmp := if( n = 0, FWbmpDes(),LoadBitMap(GetResources(), ...

... FUNCTION CambiaBmpSort(n,xBrw,cBmpAsc,cBmpDes) local hBmp DEFAULT n:=0 xBrw:aSortBmp := {} hBmp := if( n = 0, FWbmpAsc(),LoadBitMap(GetResources(), cBmpAsc ) ) AAdd( xBrw:aSortBmp, { hBmp, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), nil, .F. } ) hBmp := if( n = 0, FWbmpDes(),LoadBitMap(GetResources(), ...

... FUNCTION CambiaBmpSort(n,xBrw,cBmpAsc,cBmpDes) local hBmp DEFAULT n:=0 xBrw:aSortBmp := {} hBmp := if( n = 0, FWbmpAsc(),LoadBitMap(GetResources(), cBmpAsc ) ) AAdd( xBrw:aSortBmp, { hBmp, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), nil, .F. } ) hBmp := if( n = 0, FWbmpDes(),LoadBitMap(GetResources(), ...

... ya el tamaño del archivo cambia de 1KB a 15KB, y este archivo es de 120x120 pxl. Mi pregunta para resolver esto es: hay forma de leer este archivo LoadBitmap() o LoadBmp() y como puedo volver a guardarlo para evitar este detalle? Mi código de impresión del JPG cArchLogo:='\FUNPAR\N00002039_23-01-2016_MUSA580225MK8.JPG' ...

Try with REDEFINE?? If i not change with :loadbitmap() the the bitmap is shown normal. I will tomorrow use a other bitmap.

1. There are the line

Code: Select all  Expand view

fwlog empty( ::clayout ), ! Empty( ::hBitmap )

in the method new(). Should be erased.
2. When i use clausula GDIPLUS and call the method ::loadbitmap() to change the bitmap, no bitmap to see. Without GDIPLUS is ok!

... en refresacarlo. ¿Existe la posibilidad de refrescar solo la fila de ese array modificado? Nota.- BTMRojo es un bitmap cargado asi:; BTMROJO := LoadBitmap( GetResources(), "ROJO" ) Gracias. vcelda6:=tconsultastock[fila,5]     oBrwconsulta:lEditCol(6,@vcelda6,"@E 9,999",,)  ...

... We do not understand the need for this code / Assign the bitmaps to the array aBmp := { LoadBitMap( GetResources( ) , "CM1" ), ; LoadBitMap( GetResources( ), "CM2" ), LoadBitMap(GetResources( ), "CM3") } We ...

... ) oMnuItem:hBitmap:= ReadBitmap( 0, cFileBmp ) ENDIF IF ! EMPTY( cResName := ALLTRIM((cMnuAlias)->FLDRESBMP) ) oMnuItem:hBitmap:= LoadBitmap( GetResources(), cResName ) ENDIF IF ! EMPTY( ALLTRIM((cMnuAlias)->FLDSYS) ) AAdd( oApp:aObjSys, oMnuItem ) ENDIF cValue := ALLTRIM((cMnuAlias)->CNEXT) ...

... = If( File( ::cBitmap ), ReadBitmap( 0, ::cBitmap ),;      //                    LoadBitmap( GetResources(), ::cBitmap ) )     en LoadBitmap...   if ValType( cBmpName ) == 'N'      if IsGdiObject( ...

... nBottom, nRight ) ) ¿Como doy lectura a mi archivo BMP para "oBitmapCompleto" oBitmapCompleto:=FiLoadImg('AZ09.BMP') o oBitmapCompleto:=LoadBitmap(GetResources(),'AZ09.BMP') o oBitmapCompleto:=ReadBitmap(0,,'AZ09.BMP') o que funcion?

... pointer type WVW_GET_HND_WINDOW,WVW_GETWINDOWHANDLE,WIN_GETDLGITEM,WIN_LOADICON,WIN_LOADIMAGE,WIN_GETDC,WIN_CREATEBRUSH.CREATEIMAGELIST LOADIMAGE,LOADBITMAP,LOADBITMAPEX,OPENIMAGE,OPENBITMAP,CREATESOLIDBRUSH,CREATEHATCHBRUSH,CREATEFONT,LOADICON,WINDOW2BITMAP WVW_DLGSETICON,WVW_CREATEDIALOGDYNAMIC,WVW_CREATEFONT,WVW_SETPOPUPMENU,WVW_CREATEMENU,WVW_CREATEPOPUPMENU,WVW_GETMENU ...