FiveTech Software tech support forums

... ) local oBr, oFont local titgral := 'Información Sobre Correcciones' local atitcol := '' local acampos := {} local lcampos local aBmp := { "TildeR.bmp", "TildeA.bmp", "TildeV.bmp" } Private oBar2 acampos := {|| {str(Corregir->Numero,4),dtoc(Corregir->FechaError),Corregir->Tema,if(Corregir->Estado=1,aBtms[1], ...

... for example i have this adatamenu array Please change this part of the code:         WITH OBJECT :aCols[ 3]             :SetCheck(aBmp, .t. )             :nHeadBmpNo    := 2          END  TO          WITH OBJECT :aCols[ 2 ]             :SetCheck( aBmp , .t. )  ...

Buenas tardes.
Uso BMPS en xBrowse.

asi definidos
local aBmp := { "Ok.bmp", "Delete.bmp" }

asi los uso
{|| if(Emple->Estado,aBmp[ 1 ],aBmp[ 2 ] )}

la pregunta es si se pueden hacer transparentes?

Gracias

... 74) Data: 12/07/20 Ora: 20:42:38 lGDIPImage: Tipo var: L>>>.T.<<< lReadByFreeImage: Tipo var: L>>>.F.<<< aBmp: Tipo var: A>>> -1106951790 0 16 16 .F. 16DbgBrk .T. BITMAP 12632256 <<< grazie a chi vorrà dare un mano Roberto

I have this istruction: ...cNomeFilepng = "\\serverlan\database$\imagefolder\Products\1052.bmp"aBmp := WndReadPalBmpEx(nil, cNomeFilepng)  aBmp returns array with "NOT FOUND" \\serverlan\database$\imagefolder\Products\ is a share folder inside "serverlan" ...

... aShapes } ) to complete it :?: http://www.pflegeplus.com/IMAGES/Roundrect1.jpg ACTIVATE WINDOW oWnd ON PAINT ( ; oWnd:DrawImage( aBmp[ 1 ], { 0, 0, 200, 150 } ), ; oWnd:DrawImage( aBmp[ 2 ], { 0, 150, 200, 300 } ), ; oWnd:DrawImage( aBmp[ 3 ], { 0, 300, 200, 600 } ), ; oWnd:DrawImage( ...

Please check these lines and give correct path

cBmpPath := "c:\fwh\bitmaps\32x32\" // give your path
aBmp := DIRECTORY( cBmpPath + "*.bmp" )

... oGrid:adialogs[1]:nHeight,, .T.) ) } and on this folder many btnbmp buttons with png file @ nrow,ncol btnbmp oBtn[n] Filename aBmp[RA->RACOLORE] ; SIZE nsizeW,nsizeh ; Prompt str2lines(alltrim(Ra->Radesc)," ") ; noborder CENTER; font ofontsmall of oGrid:adialogs[1] ...

... cCursor:= TCursor():New(,'HAND')local nRow := 40 //+oBar:nHeightlocal ncol := 10Local nsizeW:= 120Local nsizeh:= 150llocal aBmp:= {".\bitmaps\fivewin.bmp"    ,;              ".\bitmaps\fivewin.bmp" ,;  ...

... http://imagizer.imageshack.us/v2/xq90/903/mhbqCb.png 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") ...

Enrico , use WndReadPalBmpEx( Self, uBmp, aReSize ) -> aBmp // format: { hBitmap, hPalette, nBmpWidth, nBmpHeight, lAlpha, cName, lResource } This function is in btnbmp.prg for substitution in test . In my tests gdi+ it gives equal and often better ...

Rectifico:

aBmp[ n ] es un array de objetos bitmaps...

A ver,

Esto no puede funcionar bien:

::oImageListPages:Add( aBmp[n] )

Porque se espera un objeto bitmap

Sigo sin ver la relación con el oDevice que ya no se destruye en el VALID, y menos con el brush :-S

... may correct. in xbrowse.ch, line 196 is now CODE: SELECT ALL EXPAND VIEW <.lite.>, <nOrder>, <nAt>, <nBmpElem>, [\{ <aBmp> \}], <.hide.>,, ; The two commas at the end of the line should be made as one comma only like this: CODE: SELECT ALL EXPAND VIEW <.lite.>, ...

... have BUG in xbrowse.ch, line 196 is now CODE: SELECT ALL EXPAND VIEW <.lite.>, <nOrder>, <nAt>, <nBmpElem>, [\{ <aBmp> \}], <.hide.>,, ; The two commas at the end of the line should be made as one comma only like this: CODE: SELECT ALL EXPAND VIEW <.lite.>, ...