FiveTech Software tech support forums

... SIZE 130 ALIGN 2,1 What would be the equivalent code in txbrowse ? Also, using tsbrowse, I can add a bitmap by first defining it: aBmp := { LoadBitMap( GetResources( ) , "CM1" ), ; LoadBitMap( GetResources( ), "CM2" ), LoadBitMap(GetResources( ), "CM3") } And ...

... RT_RCDATA NONDISCARDABLE "imagem.png" My question is another: How to load it and have a valid handle, maybe something like: hBitmap = LoadBitmap( GetResources(), cResName ) Thanks and best regards, Toninho.toninhofwi Posts: 65 Joined: Tue Oct 18, 2005 10:01 am Best Regards Uwe :lol:

Hi Uwe,

Borland Resource Workshop can do it:

#define RT_RCDATA 10
nId RT_RCDATA NONDISCARDABLE "imagem.png"

My question is another: How to load it and have a valid handle, maybe something like:

hBitmap = LoadBitmap( GetResources(), cResName )


Thanks and best regards,

Toninho.

... recursos que van incrustados en el EXE o usar un fichero BMP externo. Las formas de cargarlo en una variable son: 1. Desde recursos: local hBmp := LoadBitmap( GetResources(), cBmpResName ) 2. Desde un fichero BMP externo: local hBmp := ReadBitmap( 0, cBmpFileName ) En FWPPC\samples\Tutor10.prg ...

... antiguo Wbrowse, el problema concreto esta en los bitmaps, como conoces, antes si la columna traía un numero montaba el bitmap. Ejemplo : hBmp := LoadBitmap( 0, 32760 ) hSel := LoadBitmap( GetResources(), "Send16" ) FIELDS if( ( dbfFamilia )->lSelDoc, hSel, 0 ),; (dbfFamilia)->cCodFam,; ...

Hi Everyone: How to Transfer Column Bitmap From Tcbrowse to Xbrowse ? local aPics:= { ; LoadBitmap( GetResources() , "WORK_DONE" ) ,; LoadBitmap( GetResources() , "CHK_OFF" ) ,; LoadBitmap( GetResources() , "KS_WRITE" ) ,; LoadBitmap( GetResources() ...

Que raro que no te funcione, a mi me va bien, carga otro bitmap y mira prueba a poner en tu programa en esta parte asi: hBmp1 := LoadBitmap(GETRESOURCES(),"PRINTER") hBmp2 := LoadBitmap(GETRESOURCES(),"NUEVOBITMAP") oLbx:bLdblclick:= {||EditoTrabajos(str(recno())) , cambiaimg(@oLbx,hBmp2), ...

Rolando prueba asi: aBmp := LoadBitmap(GetResources(),"PRINTER") @ 0,0 LISTBOX oBrw ; FIELDS ; HEADER "", "FECHA", aBmp, "Folio", "", "Departamento", "Recibio" ; SIZES 22, 80, 32, 80, 22, 300, 300 y para cambiarlo prueba haciendo: aBmp ...

Hi ppl, How I do to resize a loaded bitmap? For example: hBmp = LoadBitmap( GetResources(), cBitmap ) hBmp is a 16x16 loaded image and I need resize it to 32x32, without display it, only resize loaded hBmp, something like: hBmp = BitmapResize( hBmp, 32, ...

Lailton,

TMsgBar uses a bitmap to get painted, so in order to change its colors, you have to create your own MsgBar2007( ::hDC ) function that will return your desired hBmp.

Or simply replace this line:

hBmp = MsgBar2007( ::hDC )

with

hBmp = LoadBitmap( GetResources(), "myBMP" )

... error: Macro redefinition of 'FindWindow'. D:\COMPILER\xHB\c_include\win\winuser.h(4907): error: Macro redefinition of 'LoadBitmap'. D:\COMPILER\xHB\c_include\win\winuser.h(4908): error: Macro redefinition of 'LoadCursor'. D:\COMPILER\xHB\c_include\win\winuser.h(4910): ...

... "Blank" in first column instead of "Y" or "N" . How do I do that ? I use v1.95 Very easy: a) load your two bitmaps in a handler variable: hBmp1 := LoadBitmap(GetResources(),"name_of_ the_bitmap") hBmp2 := LoadBitmap(GetResources(),"name_of_the_other_bitmap") b) and in the fields clause use the ...

... EXE (using Blinker's RC command). How can I access that bitmap. Is there another function such like ReadBitmap() You bet there's such a function: LoadBitmap(Getresources(),"bitmapname") Yes, it's LoadBitmap(). -------------------------------------------------------------------------------- Is ...

... are not configurables yet. We plan to provide it soon. Regarding the message bar, you have to provide a function that returns a bitmap handle (use LoadBitmap() or ReadBitmap()). Just replace this function with your own in source\classes\msgbar.prg: hBmp = MsgBar2007( ::hDC ) whatever bitmap you ...

... For many years I have used the following for a Tick / Empty pair: -------------- // Use OEM system resources <- Black tick LOCAL _hOn := LoadBitMap(0, OBM_CHECK) // Next equates to an empty cell and is treated as if it were bitmap LOCAL _hOff := Chr(160) ------------- //When finished ...