I need some help.
Migrating from an old FW version to 2015/10 MinGW found a problem with bitmapped buttons.
The following code used to work but now rises this error:
- Code: Select all Expand view
- Application
===========
Path and name: c:\work\FWTeste.exe (32 bits)
Size: 5,194,380 bytes
Compiler version: Harbour 3.2.0dev (r1508011114)
FiveWin Version: FWH 15.10
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 12/10/15, 17:10:10
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = U
Stack Calls
===========
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CHECKTHEME( 0 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:REDEFINE( 0 )
Called from: FWTeste.PRG => MAIN( 32 )
Reduced sample code:
- Code: Select all Expand view
- # INCLUDE "fivewin.ch"
/*****/
FUNCTION Main()
/*****/
LOCAL cGet := " "
LOCAL lOk
LOCAL oDlg
DEFINE DIALOG oDLG RESOURCE 4303
REDEFINE GET oGET VAR cGET ID 113 OF oDLG
TBtnBmp():ReDefine( 1,; //nId,;
"btnYes",; //cResName1,;
,; //cResName2,;
,; //cBmpFile1,;
,; //cBmpFile2,;
,; //cMsg,;
{ || oDLG:END() } ,; //bAction,;
oDLG ,; //oBar,;
,; //lAdjust,;
,; //bWhen,;
,; //lUpdate,;
,; //cToolTip,;
"Ok",; //cPrompt,;
,; //oFont,;
,; //cResName3,;
,; //cBmpFile3,;
,; //lBorder,;
"LEFT" ) //cLayout,;
//cResName4,;
//cBmpFile4,;
//lTransparent,;
//lRound,;
//bGradColors )
ACTIVATE DIALOG oDLG CENTER
Return NIL
RC File:
- Code: Select all Expand view
- #include "winuser.h"
#include "winnt.h"
#include "commctrl.h"
LANGUAGE LANG_PORTUGUESE,SUBLANG_PORTUGUESE_BRAZILIAN
4303 DIALOGEX 36,25,384,333
CAPTION "Altera"
FONT 8,"MS Sans Serif",0,0,0
STYLE WS_POPUP|WS_VISIBLE|WS_CAPTION|WS_SYSMENU|DS_MODALFRAME|DS_3DLOOK
BEGIN
CONTROL "",113,"Edit",WS_VISIBLE|WS_BORDER|WS_TABSTOP|ES_PASSWORD,149,28,51,13
CONTROL "Button",1,"Button",WS_VISIBLE|WS_TABSTOP|BS_DEFPUSHBUTTON,244,312,54,17
END
Regards,
Maurício Ventura Faria
