FiveTech Software tech support forums

... a problem when I show the listbox not show nitmaps on nlevel field and it not show color of the listbox local aHBitMaps:=Array( 5 ) aHBitMaps:= { ReadBitmap( 0, CurDir() +"\Level1.bmp" ), ; // BitMaps de 14 x 32 ReadBitmap( 0, CurDir() +"\Level2.bmp" ), ; ReadBitmap( 0, CurDir() ...

... Screen for a test ( size 50 x 50 ). hBitmap = FILoadImg( AllTrim( "Test.jpg" ) ) if Upper( cFileExt( cFile ) ) = "BMP" return ReadBitmap( 0, cFile ) endif 67 nFormat = FIGETFILETYPE( cFile, 0 ) Application =========== Path and name: D:\_TEST\testxbrw.exe (32 bits) Size: 1,779,712 ...

... 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 tienes un ejemplo de ReadBitmap()

#include "Fivewin.ch" FUNCTION MAIN() LOCAL oDlg, oBrw LOCAL hBmp1 := READBITMAP( 0, "SELECT.BMP" ) LOCAL hBmp2 := READBITMAP( 0, "UNSELECT.BMP" ) USE TEST DEFINE DIALOG oDlg SIZE 400, 300 @ 0, 0 LISTBOX oBrw FIELDS FIELD -> last,; FIELD -> first,; IF( ...

... a AygShell. Tendras que conseguir quitar todas las referencias a ella: function CeSetmenu() ; return nil function GetMenu() ; return nil function ReadBitmap() ; return nil function PalBmpRead() ; return nil

... a AygShell. Tendras que conseguir quitar todas las referencias a ella: function CeSetmenu() ; return nil function GetMenu() ; return nil function ReadBitmap() ; return nil function PalBmpRead() ; return nil

Hello to all hBmp := { ReadBitmap( 0, oPub:wPathBmp + "ABERTO.BMP" ),; ReadBitmap( 0, oPub:wPathBmp + "BAIXADO.BMP" ),; ReadBitmap( 0, oPub:wPathBmp + "DEVOLV.BMP" ),; ReadBitmap( 0, oPub:wPathBmp + "PENDE.BMP" ) } Which of the classes ...

... I tested BMP ( 15 x 15 with a red circle ) Is there a special format to be used ? It looks a bit funny. oBmp5 := ReadBitmap( 0, BRSELECT2 ) // the Bitmap oLbx0:hBmpRecSel( oBmp5 ) http://www.pflegeplus.com/pictures/setting8.jpg i don't know why, ...

dbarrio,

hBmp:=ReadBitmap(0, "C:\bitmap.bmp")
nHig=nBmpHeight(hBmp)
nWid=nBmpWidth(hBmp)
oWord:AddImagen( 1, 1, 1+nCol, 1+nHig, nWid, "C:\bitmap.bmp", {1,1,1,1,1,1})

Saludos, Euclides

BITMAPS -------------------------------------------------------------------------------- It is easy to use a bitmap in a listbox. Local Lbx2Bmp := {ReadBitMap(0,"Leeg.Bmp"),; ReadBitMap(0,"Gevuld.Bmp") } This can be used in a listbox. At this way the program directory contains a lot of files. If ...

... 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 return there, it ...

Euclides wrote:Hi to all!
It there a way to get the bitmap sizes (width & height) read by ReadBitmap() function ?
TIA & Regards, Euclides

nBmpWidth( hBmp )
nBmpHeight( hBmp )

Source: \fwh\source\function\fwbmp.c

Hi to all!
It there a way to get the bitmap sizes (width & height) read by ReadBitmap() function ?
TIA & Regards, Euclides

Lisa, Estas usando un browse. No debes llamar a ReadBitmap() desde cada línea, pues estas creando muchísimos handles a bitmaps y consumes mucha memoria GDI. Lo más sencillo es hacerlo asi: @ 4.5, 1 LISTBOX oLbx FIELDS aFile[ oLbx:nAt ...

... SIZE 0,-12 DEFINE DIALOG oDlg FROM 3, 3 TO 38,125 TITLE "Presenze" @ 4.5, 1 LISTBOX oLbx FIELDS aFile[ oLbx:nAt ][ 1 ],; aFile[ oLbx:nAt ][ 2 ],; ReadBitmap( 0, ColoraPresenze(aFile[ oLbx:nAt ][ 3 ])),; ReadBitmap( 0, ColoraPresenze(aFile[ oLbx:nAt ][ 4 ])),; ReadBitmap( 0, ColoraPresenze(aFile[ ...