FiveTech Software tech support forums

... que hacer es incluir esto ;: * Funciones que no corren en Symbol MC3000 FUNCTION cesetmenu() ; RETURN NIL FUNCTION getmenu() ; RETURN NIL FUNCTION readbitmap() ; RETURN NIL FUNCTION palbmpread() ; RETURN NIL Saludos Osvaldo Ramirez

Antonio,

Si con ReadBitmap cargo un recurso en memoria... ¿con cual función descargo de la memoria ese recurso?

Algo así como ::

hBitmap := ReadBitmap("mibitmap.bm")
...
...

ReleaseBitmap(hBitmap) <<< por ejemplo

Saludos,
José Luis Capel

... Soporte para las barras de progreso Win32). Por favor, revisa el ejemplo samples\TestProg.prg * Mejora: En la clase TImageList el método ReadBitmap( cFileName, nWidth, nImages, nClrTransparent ) te permite crear una "lista de imágenes" con un único bitmap que contiene multiples imagenes ...

... * New: FWPPC, new Class TProgress (Win32 Progress Bars support). Please review samples\TestProg.prg * Enhancement: Class TImageList Method ReadBitmap( cFileName, nWidth, nImages, nClrTransparent ) lets you create an imagelist with a single bitmap that contains multiple images of nWidth ...

... por las lineas que incluyo : * Funciones que no corren en Symbol MC3000 FUNCTION cesetmenu() ; RETURN NIL FUNCTION getmenu() ; RETURN NIL FUNCTION readbitmap() ; RETURN NIL FUNCTION palbmpread() ; RETURN NIL Por cierto Antonio, aun me crea una ventana de modo consola al inicio de cualquier app, ...

Jose Luis, Sí funciona bien, lo que ocurre es que tienes que usar CurDir() antes del nombre del fichero: local ahBmp:={ReadBitmap( CurDir() + "\bmp\si16.bmp" ), ReadBitmap( CurDir() + "\bmp\no16.bmp" ) } Aqui puedes ver un ejemplo (aunque he usado un bitmap algo grande): http://img78.imageshack.us/img78/4993/image21ib.jpg

... *----------------------------* METHOD SetBMP( cBitMap ) CLASS TButtonBmp local hBitMap if valtype( cBitMap )== 'C' hBitMap:=if( file(cBitMap),ReadBitmap( 0, cBitMap), LoadBitmap( GetResources(), cBitmap)) ::hBitmap:={hBitmap, hBitmap, hBitmap, hBitmap} else for i=1 to 4 if valtype(cBitMap[i])='U'; ...

... := -777 endif RETURN nExist * Funciones que no corren en Symbol MC3000 FUNCTION cesetmenu() ; RETURN NIL FUNCTION getmenu() ; RETURN NIL FUNCTION readbitmap() ; RETURN NIL FUNCTION palbmpread() ; RETURN NIL #pragma BEGINDUMP #include <hbapi.h> #include <windows.h> #include "Scancapi.h" ...

... I'm using bitmaps from resources . This function allways return 0 and I can't to see bitmaps in columns . Also I tried with bitmaps from disk and ReadBitmap() function - this works OK . Maybe you know where can be problem of LoadBitmap() function ? Can this be problem of xBuilder resource compiler ...

... WINDOW oWnd return nil * Funciones que no corren en Symbol MC3000 function cesetmenu() ; return nil function getmenu() ; return nil function readbitmap() ; return nil function palbmpread() ; return nil #pragma BEGINDUMP #include <hbapi.h> #include <windows.h> #include <ScanCAPI.h> ...

... definir estas cuatro funciones en tu PRG para que no se enlace esa DLL: function CeSetmenu() ; return nil function GetMenu() ; return nil function ReadBitmap() ; return nil function PalBmpRead() ; return nil Vamos a modificar FWPPC para implementar esas funciones en Windows CE de otra forma. Tambien ...

Willi, ahora, gracias a tí, si funciona, aunque he tenido que sustituir LoadBmp por ReadBitmap y ha quedado así: local oBmpSi := ReadBitmap( 0, "\fw23\bitmaps\level1.bmp" ) local oBmpNo := ReadBitmap(0 "\fw23\bitmaps\level2.bmp" ) ..... @ 1,1 LISTBOX oLbx ; FIELDS ...