FiveTech Software tech support forums

karinha wrote:c:\TTaskPan>C:\BCC74\bin\bcc32 -c -Ic:\XHBBCC74\include;c:\fwh1905\include -D__HARBOUR__ -D__FLAT__ c_tthememanager.C

Try adding this declaration:

int FontHeight2Pt( int );

right after this other:

HMODULE GetResources( void );

Let me know.

... *==================================================== Aadd(aBtns, { cBebida + CRLF + "REFRESCO" + CRLF + cBcod,LoadBitmap( GetResources(), "COTROS" ), { || BTN_ACTION(oPdd, @cBcod ) } } ) *==================================================== END ENDIF PRODUCTOS->(DBCLEARFIL(NIL)) ...

... esto: Tengo que recuperar un Bitmap desde los resources y grabarlo en el disco para luego leerlo con Ximage Estoy haciendo esto: hDC:= LoadBitMap(getresources(),'wimagex') FW_Saveimage(hDC,'Imagex.bmp') El archivo se recupera y se graba bien pero no lo puedo leer con ximage ni con image ( Loadimage() ...

... prgs donde uso menus la opcion: MENUITEM OPCI_OBJ(i) PROMPT OPCI_TIT(i) ACTION OPCI_ACC(i) BLOCK OPCI_BLO(i) --- OPCI_OBJ(i):hBitmap:=LoadBitmap(GetResources(),OPCI_BMP(i)) ... OPCI_BMP(i) = ES EL NOMBRE DEL RECURSO Con la version de fwh 13.x, xHarbour 1.2.3, y bcc55 lo hacia sin problemas.

... agregar una string table en una dll , las cadenas que se agregan tiene un ID y se pueden recuperar desde el programa principal usando LOADSTRING( Getresources(),n) donde n es el ID numerico de la cadena a recuperar. Ahora bien, si agregamos un Item Version a la DLL , dentro de el aparecen una ...

Usas esto en tu MENU PRINCIPAL? Se no, no usas BORLAND.    LOCAL hBorland   hBorland := LoadLibrary('BWCC32.DLL')   BWCCRegister( GetResources() )//-----------------------------------------------------------------------------DLL32 FUNCTION BWCCRegister( hInst AS LONG ...

... I found a solution to the black screen problem on some workstations, and it was the way we handled bitmaps. // Declare LOCAL bTagOn := LoadBitMap( GetResources(),"CHECK4" ) // single red check mark LOCAL bTagOff := LoadBitMap( GetResources(),"CHECK5" ) // blank grey screen // ...

... "Apri con..." ) if File( cBitmap ) oBarOpenWithlist:hBmp = ReadBitmap( 0, cBitmap ) else oBarOpenWithlist:hBmp = LoadBitmap( GetResources(), cBitmap ) endif ACTIVATE DIALOG oAllegati CENTERED return nil

... "Apri con..." ) if File( cBitmap ) oBarOpenWithlist:hBmp = ReadBitmap( 0, cBitmap ) else oBarOpenWithlist:hBmp = LoadBitmap( GetResources(), cBitmap ) endif

... { {|| "'" + 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(), ...

... test.rc al exe sin la presencia del dll, es decir evitar poner en prg las lineas: SET RESOURCES TO cPathEXE+"\Test.dll" BWCCRegister( GetResources( ) ) al llamar a esta funcion se cuelga en esta linea y obviamente mi archivo test.rc si esta en la misma ubicacion que mi prg. STATIC ...