Outlook Leiste für Xbase++

Wenn Ihr selbstentwickelte Tools und sonstige eigene Software anzubieten habt ...
Nicht vergessen, ggf. Links zu legen.

Moderator: Moderatoren

Antworten

braucht man solche Xbase++ Tools

Ja
5
63%
Nein
0
Keine Stimmen
weiss nicht
3
38%
 
Insgesamt abgegebene Stimmen: 8

Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

Outlook Leiste für Xbase++

Beitrag von AUGE_OHR »

hi,

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()

leider kann ich ja noch kein Attachment anhängen, also bitte Demo
anfordern.
gruss by OHR
Jimmy
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

Beitrag von AUGE_OHR »

hi,

ich habe im Alaska Forum unter "public.third-party-products" am 31.05.08
unter "PbStack Demo" einige Snapshot hochgeladen.

Neu :
- Item Elemente der Listbox kann jetzt enable/disabled
- laden von Resource aus externer DLL
- Presentation Parameter jetzt definierbar
- XP Manifest abschaltbar

under construction :
- :delItem() / :insItem()
- :Imagehigh / :Imagewide (now fix 48x48)
- :Itemhigh / :Itemwide (now :Itemwide = :Itemhigh = 100 )
gruss by OHR
Jimmy
Antworten