Page 1 of 1

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

PostPosted: Wed Mar 28, 2018 8:43 pm
by 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

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

PostPosted: Wed Mar 28, 2018 9:09 pm
by Enrico Maria Giordano
Can I see a sample of the current wrong behaviour?

EMG

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

PostPosted: Wed Mar 28, 2018 9:44 pm
by 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
}

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

PostPosted: Wed Mar 28, 2018 10:22 pm
by Enrico Maria Giordano
Right! Thank you.

EMG