FiveTech Software tech support forums

Voy sabiendo un poco mas sobre el tema de no sacar JPG's con TImage, pero no consigo arreglarlo. Si es un BMP, la clase TImage, ejecuta la función ReadBitMap() que funciona correctamente, pero... si es JPG, hace uso de FreeImage.DLL y aquí es donde tengo problemas, posiblemente por la carga de ...

Daniel,

thanks very much, but I am trying to do the same but for JPG files, are there some function compatible with ReadBitmap but for JPG files?

Regards

Marcelo

In a listbox, to display bitmaps:

@ 0.2, 0.5 LISTBOX oLbx FIELDS abc->image,READBITMAP( 0,alltrim(abc->image1) ), abc->name,;

How to display jpg files and bmp files in listbox.

Regards
acwoo

... ) oUrlLink:SetColor( oUrlLink:nClrText, ::nClrPane ) oUrlLink:nClrOver = ::nClrHover oUrlLink:bAction = bAction if File( cBitmap ) oUrlLink:hBmp = ReadBitmap( 0, cBitmap ) else oUrlLink:hBmp = LoadBitmap( GetResources(), cBitmap ) endif if oUrlLink:nTop + oUrlLink:nHeight > ::nHeight ::nHeight ...

Hi Gale. You can solve this problem in this way. In TRBTN.PRG find the line where is the call to LittleArrow() and change with ::hArrow := ReadBitmap( 0, "C:\littlearrow.bmp" ) The bitmap is 10x7, with the transparent background. The find the lines with the calls to TransBmp() and ...

... tambien en Windows CE: // Add these functions for Windows CE // function CeSetmenu() ; return nil // function GetMenu() ; return nil // function ReadBitmap() ; return nil // function PalBmpRead() ; return nil

... fntAria1, vAlias, TEM, l3d:= .F., oCurDedo, oBtn, oBt1 Local aDatos:= {}, cPic:= "@ze 999,999.99" // Array MultiDimensional Local hBmp:= ReadBitMap( 0, "finger.bmp" ) // Dedicado a mi amigo Mario Goanzalez Local cVar := {Ctod(""),; // 1 fecha Space(5),; // 2 serped ...

... - 5, ::nHeight - 5 PIXEL if Empty( ::oBtn:hBitmap ) ::oBtn:SetText( "..." ) endif else hBitmap = If( ( lFileBmp := File( ::cBmpName ) ), ReadBitmap( 0, ::cBmpName ),; LoadBitmap( GetResources(), ::cBmpName ) ) if ::lAdjustBtn nBmpWidth := nBmpWidth( hBitmap ) + 5 ::SetMargins( 1, nBmpWidth ...

... PrnSetCopies() PrnSetPage() PrnSetSize() RaConst() Radial() RaEnumConnections() RaEnumEntries() RaGetConst() RaGetError() RaHangUp() RddEvent() ReadBitmap() ReadComm() ReadVar() RealizePalette() Rectangle() RectDotted() Recv() RegCloseKey() RegCreateKey() RegDeleteKey() RegEnumKey() RegisterClass() ...

... en una variable son: 1. Desde recursos: local hBmp := LoadBitmap( GetResources(), cBmpResName ) 2. Desde un fichero BMP externo: local hBmp := ReadBitmap( 0, cBmpFileName ) Desculpem mas assim fica aqui para qualquer outro qye precise...

... coloco estas funções no PRG do SAMPLES me funciona que es uma maravilha function CeSetmenu() ; return nil function GetMenu() ; return nil function ReadBitmap() ; return nil function PalBmpRead() ; return nil mais no meu sistema quanto tento compilar me da esses errores wcliente.c FiveCEC.lib(AYGSHELL.obj) ...

thanks to All NOW i SEE BITMAPS ON listbox the error I made is this : aHBitMaps:= { ReadBitmap( 0, CurDir() +"\Level1.bmp" ), ; // BitMaps de 14 x 32 ReadBitmap( 0, CurDir() +"\Level2.bmp" ), ; ReadBitmap( 0, CurDir() +"\Level3.bmp" ), ...

... puede guardar en un campo memo, en servidores SQL, a disco, etc... Ejemplo de uso: #include "FiveWin.ch" function Main() local hBmp := ReadBitmap( 0, "test.bmp" ) MsgInfo( hBmp ) MemoWrit( "another.bmp", BmpToStr( hBmp ) ) DeleteObject( hBmp ) return nil * Mejoras: ...

... that you can save into a memo field, to SQL servers, to disk, etc. Example of use: #include "FiveWin.ch" function Main() local hBmp := ReadBitmap( 0, "test.bmp" ) MsgInfo( hBmp ) MemoWrit( "another.bmp", BmpToStr( hBmp ) ) DeleteObject( hBmp ) return nil * Enhancements: ...

... REQUEST DBFCDX FUNCTION Main() local oDlgClient , oTabs local oLbx local cVar local aHBitMaps:=Array( 5 ) local n aHBitMaps:= { ReadBitmap( 0, CurDir() +"Level1.bmp" ), ; // BitMaps de 14 x 32 ReadBitmap( 0, CurDir() +"\Level2.bmp" ), ; ReadBitmap( 0, CurDir() ...