Bug in TBtnBmp?

[Enrico Maria Giordano]

In the sample below, please click on the "Test" button and you will see the BtnBmp doesn't go away (while if you try with the Bitmap all is fine).

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL oCtl

    DEFINE DIALOG oDlg;
           SIZE 800, 600

//    @ 1, 1 BITMAP oCtl
    @ 1, 1 BTNBMP oCtl

    @ 7, 1 BUTTON "Test";
           ACTION oCtl:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

[FranciscoA]

Enrico,
Yes, it seems.

Code: Select all  Expand view

   LOCAL oDlg

    LOCAL oCtl

    LOCAL cVar := "Hola"
    LOCAL nVar := 1
    LOCAL lVar := .t.

    DEFINE DIALOG oDlg;
           SIZE 800, 600

//    @ 1, 1 BITMAP oCtl    //yes
    @ 1, 1 BTNBMP oCtl PROMPT "BtnBmp" SIZE 60,14 //NO
//    @ 1, 1 BUTTON oCtl PROMPT "Button"   //yes
//    @ 1, 1 SAY    oCtl PROMPT "HOLA"    //yes
//    @ 1, 1 CHECKBOX  oCtl VAR lVar      //yes
//    @ 1, 1 RADIO oCtl VAR nVar ITEMS "&One", "&Two" SIZE 150, 25  //yes
//    @ 1, 1 GET oCtl VAR cVAR SIZE 40,12  //yes
//    @ 1, 1 COMBOBOX oCtl VAR nVar ITEMS {"1","2","3"}   //yes


    @ 7, 1 BUTTON "Test";
           ACTION oCtl:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

[Enrico Maria Giordano]

Any ideas? I think the problem is inside Destroy() method.

EMG

[karinha]

Code: Select all  Expand view

#include "Fivewin.ch"

FUNCTION MAIN()

    LOCAL oDlg, oCtl

    DEFINE DIALOG oDlg SIZE 800, 600

    // @ 1, 1 BITMAP oCtl
    @ 1, 1 BTNBMP oCtl PROMPT "Visible"

    /* // error
    @ 7, 1 BUTTON "Test";
           ACTION oCtl:End()
    */

    // Invisible
    @ 7, 1 BUTTON "Hide";
           ACTION( oCtl:Hide() )

    // Visible
    @ 9, 1 BUTTON "Show";
           ACTION( oCtl:Show() )

    @ 11, 1 BUTTON "&Exit" ;
           ACTION( oDlg:End() ) CANCEL UPDATE

    ACTIVATE DIALOG oDlg CENTER

RETURN NIL
 

[Enrico Maria Giordano]

João,

Thank you, but I'd want to End() it, not to just hide it.

EMG

[karinha]

Code: Select all  Expand view

#include "Fivewin.ch"

FUNCTION MAIN()

    LOCAL oDlg, oCtl

    DEFINE DIALOG oDlg SIZE 800, 600

    // @ 1, 1 BITMAP oCtl
    @ 1, 1 BTNBMP oCtl PROMPt "Visible"

    @ 3, 1 BUTTON "Test1";
           ACTION( oCtl:End(), oDlg:Refresh(), oDlg:UpDate() )

    @ 5, 1 BUTTON "Test2";
           ACTION( oCtl:Hide(), oCtl:End(), oDlg:Refresh(), oDlg:UpDate() )

    // Invisible
    @ 7, 1 BUTTON "Hide";
           ACTION( oCtl:Hide() )

    // Visible
    @ 9, 1 BUTTON "Show";
           ACTION( oCtl:Show() )

    @ 11, 1 BUTTON "&Exit" ;
           ACTION( oDlg:End() ) CANCEL UPDATE

    ACTIVATE DIALOG oDlg CENTER

RETURN NIL
 



[Enrico Maria Giordano]

João,

you missed the point: there is a problem in TBtmBmp Destroy() method that prevents the control to End(). It needs to be fixed.

EMG