function Main()
local oWnd, oBmp
local cLogoBmpFile := "c:\fwh\bitmaps\fivewin.bmp" // Your bmp file name
DEFINE WINDOW oWnd
DEFINE BITMAP oBmp FILE cLogoBmpFile // does not matter even if the file does not exist
ACTIVATE WINDOW oWnd ON PAINT oWnd:DrawImage( oBmp )
oBmp:End()
return nil
@210,000 XBROWSE oLbx FIELDS _ImpFlag( aHBitmaps ) , ;
import->file + IF( PA[08]='CDM-ADMIN', import->serial, '' ) , ;
WITH OBJECT oBrw:aCols[ 1 ]
:cDataType := "P"
:lBmpTransparent := .t.
:nDataBmpAlign := AL_CENTER
END
cdmmaui wrote:Thank you! That worked!
I look forward to details regarding BMP and XBROWSE
#include "fivewin.ch"
function Main()
local oWnd, oBmp
local cLogoBmpFile := "c:\fwh\bitmaps\fivewin.bmp" // Your bmp file name
DEFINE WINDOW oWnd
DEFINE BITMAP oBmp FILE cLogoBmpFile // does not matter even if the file does not exist
@ 0,0 BUTTON "ChangeLogo" SIZE 80,30 PIXEL OF oWnd ;
ACTION ( oBmp:LoadImage( "c:\fwh\bitmaps\007.bmp" ), oWnd:Refresh() )
ACTIVATE WINDOW oWnd CENTERED ON PAINT oWnd:DrawImage( oBmp )
oBmp:End()
return nil
#include "fivewin.ch"
function Main()
local oWnd, oBmp
local cLogoBmpFile := "c:\fwh\bitmaps\fivewin.bmp" // Your bmp file name
DEFINE WINDOW oWnd
@ 0,0 BUTTON "ChangeLogo" SIZE 80,30 PIXEL OF oWnd ;
ACTION ( cLogoBmpFile := "c:\fwh\bitmaps\007.bmp", oWnd:Refresh() )
ACTIVATE WINDOW oWnd CENTERED ON PAINT oWnd:DrawImage( cLogoBmpFile )
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: dtoledo, Google [Bot], nageswaragunupudi and 53 guests