FiveTech Software tech support forums

www.FiveTechSoft.com
https://fivetechsupport.com/forums/

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

https://fivetechsupport.com/forums/viewtopic.php?f=3&t=32744

Page 1 of 1

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

PostPosted: Sat Jul 23, 2016 11:09 am
by 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 ) ?

Image

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"

Image

Re: Unwanted system-popup on xBrowse-right-cellmouseclick

PostPosted: Sun Jul 24, 2016 11:22 pm
by 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.

Re: Unwanted system-popup on xBrowse-right-cellmouseclick

PostPosted: Mon Jul 25, 2016 11:24 am
by 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 :roll:

Re: Unwanted system-popup on xBrowse-right-cellmouseclick

PostPosted: Mon Jul 25, 2016 11:32 am
by nageswaragunupudi
Please post a self contained sample here using any dbf in the samples folder

Re: Unwanted system-popup on xBrowse-right-cellmouseclick

PostPosted: Mon Jul 25, 2016 11:58 am
by 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

Image

Image

Code: Select all  Expand view

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

Re: Unwanted system-popup on xBrowse-right-cellmouseclick

PostPosted: Mon Jul 25, 2016 12:16 pm
by 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

Re: Unwanted system-popup on xBrowse-right-cellmouseclick

PostPosted: Mon Jul 25, 2016 12:33 pm
by 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 :oops:

Re: Unwanted system-popup on xBrowse-right-cellmouseclick

PostPosted: Mon Jul 25, 2016 12:41 pm
by cnavarro
ukoenig wrote:Cristobal,

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

thank You

regards
Uwe :oops:


Yes, it is very curious
All times are UTC
Page 1 of 1
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/