Minor fix in Class TBitmap Method LoadBmp() in FWH 18.02

[Antonio Linares]

Use this:

METHOD LoadBMP( cBmpFile ) INLINE ::ReLoad( nil, AllTrim( cBmpFile ) )

instead of:

METHOD LoadBMP( cBmpFile ) INLINE ::ReLoad( "", AllTrim( cBmpFile ) )

fixed for FWH 18.03

[Enrico Maria Giordano]

Can I see a sample of the current wrong behaviour?

EMG

[Antonio Linares]

Enrico,

aida.prg

Code: Select all

"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 nil

aida.rc

Code: Select all

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
}

[Enrico Maria Giordano]

Right! Thank you.

EMG