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  Expand view

"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  Expand view

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