Problems after upgrade form 10.9 to 12.01

[Jeff Barnes]

Program will compile fine in either 10.9 or 12.01...

In 10.9, I have a dialog with a listbox, when I click an item in the listbox it opens another dialog box for editing.

In 12.01 when I click the item in the listbox the dialog closes and I never get the seconf dialog box.

Also, in another part of the app...

in 10.9, my dialog has a bunch of buttons, when I click a button it adds text to a get.

In 12.02, clicking the button closes the dialog...

Any ideas as to what I have missed?????

[Antonio Linares]

Jeff,

Could you please post here the RC portion for those two dialog boxes ? thanks

[Antonio Linares]

Jeff,

Is this example similar to case 1 ? Here it works fine:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, cValue

   DEFINE DIALOG oDlg

   @ 1, 1 LISTBOX cValue ITEMS { "one", "two", "three" } ;
      ON CHANGE Another()
     
   @ 3, 6 BUTTON "Ok" ACTION MsgInfo( "ok" )
   
   @ 3, 13 BUTTON "Cancel" ACTION MsgInfo( "Cancel" )

   ACTIVATE DIALOG oDlg CENTERED

return nil

function Another()

   local oDlg
   
   DEFINE DIALOG oDlg SIZE 200, 100
   
   ACTIVATE DIALOG oDlg CENTERED
   
return nil  

[Jeff Barnes]

Hi Antonio,

Here is the code from the RC file (created via ResEdit)

This is the one that will open but closes when I click any of the buttons:

Code: Select all  Expand view

Borg DIALOG 0, 0, 260, 245
STYLE DS_3DLOOK | DS_CENTER | DS_MODALFRAME | DS_SHELLFONT | WS_CAPTION | WS_VISIBLE | WS_POPUP | WS_SYSMENU
CAPTION "BORG"
FONT 8, "Ms Shell Dlg"
{
    CONTROL         "OK", 6, WC_BUTTON, WS_TABSTOP | BS_DEFPUSHBUTTON, 77, 219, 50, 14
    CONTROL         "Cancel", 7, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 132, 219, 50, 14
    CONTROL         "Dyspnea", 1, WC_STATIC, NOT WS_GROUP | SS_LEFT, 61, 2, 29, 8
    CONTROL         "", 2, WC_EDIT, NOT WS_BORDER | ES_AUTOHSCROLL, 55, 15, 40, 14
    CONTROL         "", 3, WC_EDIT, NOT WS_BORDER | ES_AUTOHSCROLL, 164, 15, 40, 14
    CONTROL         "Fatigue", 4, WC_STATIC, NOT WS_GROUP | SS_LEFT, 170, 2, 24, 8
    CONTROL         "0", 10, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 22, 37, 50, 50
    CONTROL         "0.5", 11, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 77, 37, 50, 50
    CONTROL         "1", 12, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 132, 37, 50, 50
    CONTROL         "2", 13, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 187, 37, 50, 50
    CONTROL         "3", 14, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 21, 92, 50, 50
    CONTROL         "4", 15, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 77, 92, 50, 50
    CONTROL         "5", 16, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 132, 92, 50, 50
    CONTROL         "6", 17, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 187, 92, 50, 50
    CONTROL         "7", 18, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 21, 147, 50, 50
    CONTROL         "8", 19, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 77, 147, 50, 50
    CONTROL         "9", 20, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 132, 147, 50, 50
    CONTROL         "10", 21, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 187, 147, 50, 50
}

 

When I click (single click) on an item in the listbox the dialog closes and does not open the other dialog:

Code: Select all  Expand view

PatList DIALOG 0, 0, 367, 190
STYLE DS_3DLOOK | DS_CENTER | DS_MODALFRAME | DS_SHELLFONT | WS_CAPTION | WS_VISIBLE | WS_POPUP | WS_SYSMENU
CAPTION "Select Patient"
FONT 8, "Ms Shell Dlg"
{
    CONTROL         "", 1, WC_LISTBOX, WS_TABSTOP | WS_VSCROLL | NOT WS_BORDER | LBS_DISABLENOSCROLL | LBS_NOINTEGRALHEIGHT | LBS_SORT | LBS_NOTIFY, 2, 5, 300, 180
    CONTROL         "Exit", 2, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 307, 171, 55, 14
    CONTROL         "New Patient", 3, WC_BUTTON, WS_TABSTOP | BS_DEFPUSHBUTTON, 307, 5, 55, 14
    CONTROL         "Search", 4, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 307, 24, 55, 14
    CONTROL         "Unread Reports", 5, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 307, 43, 55, 14
}

 

[Antonio Linares]

Jeff,

Please try to change the ID value from 2 to other value here:

CONTROL "", 2, WC_EDIT, NOT WS_BORDER | ES_AUTOHSCROLL, 55, 15, 40, 14

2 is a reserved value for Windows and it may be related, thanks

This code is working fine with your first RC and changing 2 to 200:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, cVal1, cVal2

   DEFINE DIALOG oDlg RESOURCE "Borg"
   
   REDEFINE GET cVal1 ID 200 OF oDlg
   REDEFINE GET cVal2 ID 3 OF oDlg
   
   REDEFINE BUTTON ID 10 OF oDlg ACTION MsgInfo( 10 )
   REDEFINE BUTTON ID 11 OF oDlg ACTION MsgInfo( 11 )
   REDEFINE BUTTON ID 12 OF oDlg ACTION MsgInfo( 12 )
   REDEFINE BUTTON ID 13 OF oDlg ACTION MsgInfo( 13 )
   REDEFINE BUTTON ID 14 OF oDlg ACTION MsgInfo( 14 )
   REDEFINE BUTTON ID 15 OF oDlg ACTION MsgInfo( 15 )
   REDEFINE BUTTON ID 16 OF oDlg ACTION MsgInfo( 16 )
   REDEFINE BUTTON ID 17 OF oDlg ACTION MsgInfo( 17 )
   REDEFINE BUTTON ID 18 OF oDlg ACTION MsgInfo( 18 )
   REDEFINE BUTTON ID 19 OF oDlg ACTION MsgInfo( 19 )
   REDEFINE BUTTON ID 20 OF oDlg ACTION MsgInfo( 20 )
   REDEFINE BUTTON ID 21 OF oDlg ACTION MsgInfo( 21 )

   REDEFINE BUTTON ID 6 OF oDlg ACTION MsgInfo( "ok" )
   REDEFINE BUTTON ID 7 OF oDlg ACTION MsgInfo( "cancel" )
   
   ACTIVATE DIALOG oDlg CENTERED
   
return nil  

[ADutheil]

I was just about to report a similar problem. Changing the buttons IDs from 1 2 to 201 202 solved the problem. This does not occur with FW+CLIPPER.

[Jeff Barnes]

Thanks Antonio. Never would have figured out that one on my own