FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Unwanted sys-popup on xBrowse-right-cellclick (solved)
ukoenig
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Unwanted sys-popup on xBrowse-right-cellclick (solved)
Posted: Sat Jul 23, 2016 11:09 AM
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"

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Unwanted system-popup on xBrowse-right-cellmouseclick
Posted: Sun Jul 24, 2016 11:22 PM

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.

Regards



G. N. Rao.

Hyderabad, India
ukoenig
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: Unwanted system-popup on xBrowse-right-cellmouseclick
Posted: Mon Jul 25, 2016 11:24 AM

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 :roll:

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Unwanted system-popup on xBrowse-right-cellmouseclick
Posted: Mon Jul 25, 2016 11:32 AM

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

Regards



G. N. Rao.

Hyderabad, India
ukoenig
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: Unwanted system-popup on xBrowse-right-cellmouseclick
Posted: Mon Jul 25, 2016 11:58 AM
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 (fw): Select all Collapse
#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 :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Unwanted system-popup on xBrowse-right-cellmouseclick
Posted: Mon Jul 25, 2016 12:16 PM
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
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
ukoenig
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: Unwanted system-popup on xBrowse-right-cellmouseclick
Posted: Mon Jul 25, 2016 12:33 PM

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 :oops:

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Unwanted system-popup on xBrowse-right-cellmouseclick
Posted: Mon Jul 25, 2016 12:41 PM
ukoenig wrote:Cristobal,

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

thank You

regards
Uwe :-)


Yes, it is very curious
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Continue the discussion

Static archive · New replies & topics via GitHub Discussions