Hi Prital Bedi,
I find that hbxbp is not compitable to Xbase++ as follow:
oDlg:drawingArea:clipChildren := .T. (In Xbase++ ... it is exported var
without error)
http://www.mingyik.com/dnload/stxbp10.jpg
Sample source as follow:
#include "xbp.ch"
#include "Appevent.ch"
Function AppSys()
Return( NIL )
Function Main( P1 )
LOCAL nEvent, mp1, mp2, oXbp
LOCAL oDlg, oMenuBar, oMenu
Local oAppDlg:=AppDesktop()
Local lTestFlag:=.F.
If P1<>NIL
lTestFlag := .T.
Endif
// Create dialog
oDlg := XbpDialog():new( oAppDlg , , {30,50}, {400,250} )
oDlg:title := "Harbour + QT + hbxbp Dialog with Menubar"
oDlg:clipChildren := .T.
oDlg:drawingArea:clipChildren := .T.
oDlg:create()
If lTestFlag
oXbp := Xbpstatic():new( oDlg:drawingArea, oDlg, {20,100},
{100,25}, , .T. )
oXbp:type := XBPSTATIC_TYPE_TEXT
oXbp:options := XBPSTATIC_TEXT_CENTER + XBPSTATIC_TEXT_VCENTER
oXbp:caption := LTrim(Str(oAppDlg:currentSize()[1])) +","+
LTrim(Str(oAppDlg:currentSize()[2]))
oXbp:create()
Endif
// Create XbpMenubar in the dialog
oMenuBar := oDlg:menuBar()
// Create submenu and specify the menu bar as parent
oMenu := XbpMenu():New( oMenuBar ):create()
oMenu:title := "~SubMenu"
oMenu:addItem( { "~First ", {|| QOut("First") } } )
oMenu:addItem( { "~Second", {|| QOut("Second")} } )
// Attach submenu to menu bar
oMenubar:addItem( { oMenu, NIL } )
nEvent := 0
DO WHILE nEvent <> xbeP_Close
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
Return( NIL )
Shum
--
View this message in context:
http://n2.nabble.com/To-Pritpal-Bedi-About-oDlg-drawingArea-clipChildren-tp4871656p4871656.html
Sent from the harbour-devel mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
