Unwanted sys-popup on xBrowse-right-cellclick (solved)

[ukoenig]

Hello,

I have a browser where on right cellmouseclick I get a system-popup ( no popup defined )
I tried to disable it, but impossible. It is NOT a generic problem !!!
The popup is the same like a right mouseclick inside a GET.

any idea, where it comes from ( NO celledit defineed just a simple browse ) ?



I disabled everything and kept just these 3 lines with the same result :

REDEFINE XBROWSE oBrw1 ID 110 OF oFld:aDialogs[ 4 ] ;
COLUMNS { "NACHNAME", "VORNAME", "SIGNAL", "TELEFON", "QUALIFIKAT" } ;
ALIAS "PFLEGER"

[nageswaragunupudi]

Please try it in a totally separate prg.
Like XBROWSER "customer.dbf"

There is no way I could have inserted such a kind of popup in xbrowse.prg.

[ukoenig]

Mr. Rao,

I could reproduce it creating a sample.
I only kept the browsers ( four in folderpage 1 and one in folderpage 4 ).
The browser in folderpage 4 shows the same unknown result.
I think it is possible to detect, where it comes from.
I will add a downloadlink for the test.

regards
Uwe

[nageswaragunupudi]

Please post a self contained sample here using any dbf in the samples folder

[ukoenig]

Mr. Rao,

the complete test ( only 5 browsers are visible inside the folderpages. All unused data are deleted )
4 DBF and 1 array are used ( the main-DBF is customer ) 3 DBF + 1 Array in folderpage 1 and 1 DBF in folderpage 4
The popup happens in folder-page 4 on right mouseclick.

Download
http://www.pflegeplus.com/DOWNLOADS/Popup1.zip

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
#include "xbrowse.ch"

FUNCTION MAIN()
LOCAL oDlg1, nOldOption := 1
LOCAL oBrw1, oBrw2, oBrw3, oBrw4, oBrw5

aZeit := { "06:00","   15", "   30","   45", "07:00","   15", ;
              "   30","   45", "08:00","   15", "   30","   45", ;
              "09:00","   15", "   30","   45", "10:00","   15", ;
              "   30","   45", "11:00","   15", "   30", "   45", ;
              "12:00","   15", "   30", "  :  ", "     " }

// ---- Dialog and folder ----

DEFINE DIALOG oDlg1 RESOURCE "Liste9"  PIXEL ;
TITLE "Touren-Planung"  ;
STYLE nOr( WS_POPUP, WS_BORDER, WS_THICKFRAME )  

REDEFINE FOLDEREX oFld ID 110 PROMPT "Tourenplan", "&Patienten-Daten", "&Ortspläne", "&Pfleger" ;
DIALOGS "Tourliste", "Tour1", "Tour2", "Tour3" ROUND 5 ;
ON CHANGE ( nPage := oFld:nOption, ;
               nOldOption := oFld:nOption, ;
            oFld:aDialogs[ nPage ]:Update() )

// ----- 1 xbrowse in folderpage 1

USE "CUSTOMER" NEW SHARED ALIAS "CUSTOMER"
REDEFINE XBROWSE oBrw1 ID 110 OF oFld:aDialogs[ 1 ] AUTOSORT ;
COLUMNS { "FIRST", "LAST", "STREET", "CITY" } ;
ALIAS "CUSTOMER"
oBrw1:lFooter   := .T.

// ----- 2 xbrowse in folderpage 1

USE "TOURBEZ" NEW SHARED ALIAS "TOURBEZ"
REDEFINE XBROWSE oBrw2 ID 120 OF oFld:aDialogs[ 1 ] ;
COLUMNS { "TOUR", "TSORT" } ;
ALIAS "TOURBEZ"
oBrw2:lFooter   := .T.

// ----- Array in folderpage 1

REDEFINE XBROWSE oBrw3 ID 130 OF oFld:aDialogs[ 1 ] ;
COLUMNS { 1 } ;
ARRAY aZeit LINES CELL  
oBrw3:lFooter   := .T.

// ----- 3 xbrowse in folderpage 1

USE "LEISTUNG" NEW SHARED ALIAS "LEISTUNG"
REDEFINE XBROWSE oBrw4 ID 140 OF oFld:aDialogs[ 1 ] AUTOSORT ;
COLUMNS { "LEISTUNG", "KENNER" } ;
ALIAS "LEISTUNG"
oBrw4:lFooter   := .T.

// ------------------------ unknown POPUP !!!!

// ----- xbrowse in folderpage 2

USE "PFLEGER" NEW SHARED ALIAS "PFLEGER"
REDEFINE XBROWSE oBrw5 ID 110 OF oFld:aDialogs[ 4 ] AUTOSORT ;
COLUMNS { "NACHNAME", "VORNAME", "SIGNAL", "TELEFON", "QUALIFIKAT" } ;
ALIAS "PFLEGER"
oBrw5:lFooter   := .T.

ACTIVATE DIALOG oDlg1 CENTER  

CLOSE DATABASE

RETURN NIL
 

regards
Uwe

[cnavarro]

Uwe,

TOUR3 DIALOG -17, -94, 618, 283
STYLE WS_CHILD
FONT 10, "Arial"
{
EDITTEXT 110, 17, 18, 397, 239, ES_MULTILINE | ES_AUTOVSCROLL | ES_WANTRETURN | WS_BORDER | WS_VSCROLL | WS_TABSTOP
}

Not is XBROWSE control
Menu popup is the Edit Control

USE "PFLEGER" NEW SHARED ALIAS "PFLEGER"
REDEFINE XBROWSE oBrw5 ID 110 OF oFld:aDialogs[ 4 ] AUTOSORT ;
COLUMNS { "NACHNAME", "VORNAME", "SIGNAL", "TELEFON", "QUALIFIKAT" } ;
ALIAS "PFLEGER"
oBrw5:lFooter := .T.

But it is very interesting

[ukoenig]

Cristobal,

I searched inside the code for a error and didn't notice the wrong control ( GET ) inside folderpage 4.
Corrected and is working now.
Anyhow a multiline-GET used as xBrowse works and shows this GET-popup effect.

thank You

regards
Uwe

[cnavarro]

Cristobal,

Anyhow a multiline-GET used as xBrowse works and shows this GET-popup effect.

thank You

regards
Uwe

Yes, it is very curious