Use this:
METHOD LoadBMP( cBmpFile ) INLINE ::ReLoad( nil, AllTrim( cBmpFile ) )
instead of:
METHOD LoadBMP( cBmpFile ) INLINE ::ReLoad( "", AllTrim( cBmpFile ) )
fixed for FWH 18.03
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index Bugs report & fixes / Informe de errores y arreglos Minor fix in Class TBitmap Method LoadBmp() in FWH 18.02
Can I see a sample of the current wrong behaviour?
EMG
Enrico,
aida.prg
aida.rc
aida.prg
"FiveWin.ch"
function Main()
local oDlg, oBmp, oBtn
DEFINE DIALOG oDlg RESOURCE "test"
REDEFINE BITMAP oBmp ID 100 OF oDlg FILENAME "..\bitmaps\level2.bmp"
REDEFINE BTNBMP oBtn ID 110 OF oDlg ;
ACTION oBmp:LoadBmp( "..\bitmaps\level1.bmp" )
ACTIVATE DIALOG oDlg CENTERED
return nilaida.rc
test DIALOG 292, 542, 300, 150
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Test"
FONT 8, "Segoe UI"
{
CONTROL "", 100, "TBitmap", WS_CHILD | WS_VISIBLE, 50, 50, 25, 25
CONTROL "", 110, "TBtnBmp", WS_CHILD | WS_VISIBLE, 104, 112, 80, 24
}Right! Thank you.
EMG