Outlook Leiste für Xbase++
Verfasst: Sa, 31. Mai 2008 2:04
hi,
so nun habe ich es soweit das ich ein Release rausgeben kann.
Ich verwende nun Ownerdraw Listbox zum steuern der Menuitems.
leider kann ich ja noch kein Attachment anhängen, also bitte Demo
anfordern.
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.