Eliminate Editing Icons XBROWSE MySql

[PAUL SIMM]

I need to Browse a MySql table in Read only mode.

oCn :=maria_Connect( cHost,cUser,cDb,cPwd )

cQuery:="SELECT * FROM EVENTOS"

oTb:=oCn:RowSet( cQuery,.t. )

xbrowser oTb TITLE "Eventos "

oCn:Close()

Works and is readonly but the ADD + EDIT and DELETE Icons are shown at the top of the Browse although the do'nt do anything.

Is there an easy way to hide them?

[nageswaragunupudi]

Code: Select all | Expand

XBROWSER oTb TITLE "Eventos" SETUP ;
oBrw:oWnd:bInit := { |Self| ::oBar:Del( 5 ), ::oBar:Del( 5 ), ::oBar:Del( 5 ) }

[PAUL SIMM]

Thankyou sir it works your a genius.

Kind Regards
Paul

[Detlef]

Hi Paul,
please be aware of double clicks inside xbrowse which will start editing.

Regards, Detlef

[nageswaragunupudi]

Hi Paul,
please be aware of double clicks inside xbrowse which will start editing.

Regards, Detlef

Code: Select all | Expand

XBROWSER aData SETUP ( ;
 oBrw:oWnd:bInit := { |Self| ::oBar:Del( 5 ), ::oBar:Del( 5 ), ::oBar:Del( 5 ) }, ;
 oBrw:bLDblClick := nil )

[PAUL SIMM]

Thanks for the advice.

Double Click does open the edit screen but editing is disabeld because of the .t. in oTb:=oCn:RowSet( cQuery,.t. )

[nageswaragunupudi]

Thanks for the advice.

Double Click does open the edit screen but editing is disabeld because of the .t. in oTb:=oCn:RowSet( cQuery,.t. )

Using the code in my second posting, double click will not any more open edit screen.
Better you use this version.

Note: Dbl-click to open edit screen is not a feature of basic xbrowse. It is a functionality provided by xbrowser. We can disable it as I have advised in the code.