[Hwgui-developers] Self container example of bug Tab Control and browse ON RIGHTCLICK

[Itamar M. L. J. L. <ita...@gm...>]

#include "hwgui.ch"

Function Main
Local oDlg,oBrw,oTab

ferase("test.dbf")
aStru := {{"field","c",10,0}}
dbcreate("test.dbf",aStru,,.t.,"X")
x->(DbAppend())
x->field := "XXXXXXXXX"


INIT DIALOG oDlg SIZE 400, 400 STYLE WS_SYSMENU+DS_CENTER

@ 20,20 TAB oTab ITEMS {} SIZE 300,300 OF oDlg

BEGIN PAGE "Browse on tab" OF oTAB

@ 10,40 Browse oBrw DataBase of oTAB Size 200,200 ;
               ON RIGHTCLICK {|This,nLine,nCol| ClickLeft(This,nLine,nCol) }

   Add column FieldBlock("field") to oBrw

END PAGE OF oTAB

oDlg:Activate()
Return Nil
close all

Function ClickLeft

Parameters This, nLine, nCol
Local oPopup

      CONTEXT MENU oPopup
        MENUITEM "Teste" ACTION hwg_Msginfo("nada aqui")
      ENDMENU
      oPopup:SHOW(this:oParent)
      //oPopup:End()
Return .t.

PS. See while show dialog of error, the program no close need use
ctrl+alt+del for kill process :(

Best regards,
Itamar M. Lins Jr.