FiveTech Software tech support forums

... ; aBitmaps, lPixel, lDesign, aPrompts, nFolderHeight, ; aHelps, nRound, bAction, bClrTabs, bClrText, aAlign, ; lAdjust, nSeparator, nOption, bPopUp, lStretch, ; cLayOut, bBmpAction, nBright, lAnimate, nSpeed, oFontDefault, ; lTransparent, aDialogs, lBorder, nClrPane, cVarName ) so ON PAINT ...

Thank you Mr. Rao,

I is ok now.

In the present implementation, oBrw:bPopUp is designed to refer to an active cell, i.e., active row and selected column. So this does not work when there are no rows.

If you want a PopUP menu that does not refer to any specific row, then you may implement by displaying a popup with oBrw:bRClicked.

any solution??

Hi,

I use oBrw:bPopup to declare popup screen in xbrowse. If the browse is not empty there is not any problem. Popup shows.

But I have an empty xbrowse and want to show popup for "Paste" option.

How can I do it?

... := .T. oBrw:lAllowColSwapping := .T. oBrw:nFreeze := 2 oBrw:lFastEdit := .T. AEval( oBrw:aCols, { |o| o:nHeadStrAlign := AL_CENTER } ) oBrw:bPopUp := { |o| ColMenu( o ) } AEval( oBrw:aCols, { |o| o:cToolTip := { o:cHeader, 'ToolTip' } } ) oBrw:bRClicked := { | r,c,f,tBrw | xBrowse( tBrw ...

... LINES CELL AEval( oBrw:aCols, { |o| o:cToolTip := { 'Column :' + CRLF + o:cHeader, 'ToolTip' }, ; o:nEditType := EDIT_GET } ) WITH OBJECT oBrw :bPopUp := { |o| ColMenu( o ) } :MakeTotals() :CreateFromCode() END oWnd:oClient := oBrw oWnd:bPostEnd := { || oRs:Close() } BtnBar( oBrw )

... refresh other columns datas oCol:bOnPostEdit := {|o, v, n|if( n != VK_ESCAPE ,obrow2:oTreeItem:cPrompt := padr(v,nacidlen," ") ,)} ocol:bpopup:={||acc0501(,,obrow2)} // right click call popu menu // insert sub grade tree item, insert new tree item, delete tree item ocol:bLDClickData:={||acc0502(obrow2:otreeitem),obrow2:otreeitem:Toggle(),obrow2:refresh()} ...

... a oTreeItem has DATA bAction, double-click evaluates bAction with oTreeItem and oCol as parameters - Symbol bitmaps are shown in text color. - Col:bPopup now overrides oBrw:bPopup. - New DATA: lProfiler INIT .f. If set to .t., times taken for refresh, sort, maketotals are recorded in logfile * ...

oCol:bPopup should work. Is it not working or are you looking for something else?

try with
oApp():oFolder:bPopup := { | o | MenuTabs( oApp():oFolder ) }

... oBrw:refresh()) ) } :bClrSel := {|| { CLR_BLACK, nRGB( 192,192,192 )}} :bClrSelFocus := {|| { CLR_WHITE, nRGB( 128,128,255 )}} END oBrw:bPopUp := { |o| ColMenu( o, oBrw, cEmpMG, cEmpMC, cRutDel ) } Willy, gracias con TwBrowse si funciona, relativamente normal, por eso mi consulta si ...

... := "ARCODIG" :aCols[2]:cSortOrder := "ARDESCR" //:bSeek := {|c| (alias_articu)->(DbSeek( Upper( c ) )) } :bPopUp := { |o| ShowPopupBrw( o, oTaskPanel ) } :CreateFromCode() END http://s2.subirimagenes.com/imagen/previo/thump_9515100xbrowse2.png

Please do not use bRClicked at all. Recommended: This is how XBrowse implements popups. oBrw:bPopUp := { |oCol| MyPopUp( oCol ) } // applies to the entire browse oCol:bPopup := { |oCol| MyPopUp( oCol ) } // Popup is shown when right clicked on this column only. Sample ...