so nun habe ich es soweit das ich ein Release rausgeben kann.
Ich verwende nun Ownerdraw Listbox zum steuern der Menuitems.
Code: Alles auswählen
oPb := PbStack():New( oDlg:drawingArea,;
,;
{0,0} ,; // MUST (in this Version)
{100,aSize[2]} ,; // aSize[2] MUST (in this Version)
aPP ,;
lVisible )
// Syntax :AddItem({cMenuText,nHotkey,{nResID,cItemText,cBlock }})
//
// cMenuText : This is the ":Caption" from Menu Pushbutton
// It shoud be a cString but it can be like a
// normal XbpPushbutton use a Resource ID or
// XbpBitmap() Object
//
// nHotkey : must be a AppEvent.CH Key
//
// !!! Note : at least 1 SubItem must be used !!!
//
// SubItem are stored as sub Array and add at the End
// ,{ nResID, cItemText, cBlock }
//
// nResID : BMP,JPG,GIF or PNG Resource ID ( NOT Ico ! )
//
// cItemText : Item :Caption
//
// cBlock : contain a Codeblock as cString, Will be EVAL(&cBlock)
//
//
// now AddItem
//
oPb:AddItem({"Button F01",xbeK_F1,;
{1001,"Text 1,1","{|| NOTYET( 1,1) }"},;
{1002,"Text 1,2","{|| NOTYET( 1,2) }"},;
{1003,"Text 1,3","{|| NOTYET( 1,3) }"},;
{1004,"Text 1,4","{|| NOTYET( 1,4) }"},;
{1005,"Text 1,5","{|| NOTYET( 1,5) }"}})
...
// Codeblock will be EVAL(&cBlock) so look for
// detached Local
//
oPb:AddItem({"Button F12",xbeK_F12,{1076,"Ende" ,;
"{|| PostAppEvent("+STR(xbeP_Close)+") }"}})
//
// Imagebutton use full wide of :drawingArea:Childlist()[1]
// use :nSmall to reduce Imagebutton Size (:resize)
//
// default :nSmall := 10
//
oPb:nSmall := 10
//
// this will show you allways Place for 3 Items if set .T.
//
oPb:Allways3 := .F.
//
// place your Licence Key here. Must be 64 byte !!!
//
oPb:cLicense := cLic
// before :create
oPb:Create()
anfordern.