Page 1 of 1
Minor fix in Class TBitmap Method LoadBmp() in FWH 18.02
Posted: 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
Posted: 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
Posted: Wed Mar 28, 2018 9:44 pm
by 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
}
Re: Minor fix in Class TBitmap Method LoadBmp() in FWH 18.02
Posted: Wed Mar 28, 2018 10:22 pm
by Enrico Maria Giordano
Right! Thank you.
EMG