|
From: Itamar M. L. J. L. <ita...@gm...> - 2013-03-16 13:38:25
|
#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.
|