Hi Roger,
1. I need to place the Outlookbar on a STATIC object and pass the object to OutlookBar():new( oPanelStatic ) as shown below instead of the dialog object that way I will be able to place the outlookbar in any place on a form.
2. The OUTLOOKBAR class coordinates are in PIXEL, I would which to have them in DEC.
3. After modifications, the outlook sample no longer work well.
Thanks.
Joe
FUNCTION Main()
LOCAL aMenuItems, aButtons, oDlg, oOutlookBar, nEvent, oXbp, mp1, mp2
Local Getlist[0], GetOptions
PUBLIC aKillMnuItm := {}
USE TAXMNU INDEX TAXMNU1 VIA 'DBFNTX' ALIAS 'SysMnu' NEW
USE TAXKEY INDEX TAXKEY1 VIA 'DBFNTX' ALIAS 'SysKey' NEW
aMenuItems := LdMnuStr( 'TAX' )
SYSMNU->(dbCloseArea())
aButtons := { ;
{ 'Accounts Payable', 'AccountsPayable.Exe', '', 'calendar.bmp' }, ;
{ 'Technical Support', '
http://www.bmsi-fund.com/BMSI-support.aspx', '', 'design.bmp' }, ;
{ 'Payroll 2000', 'Payroll2000.exe', '', 'display.bmp' }, ;
{ 'Cash Receipts', 'CashReceipts.Exe', '', 'copyclip.bmp' }, ;
{ 'Google Search', '
http://www.google.com', '', 'colorset.bmp' }, ;
{ 'Payroll 2000', 'Payroll2000.exe', '', 'display.bmp' }, ;
{ 'Snyffle', '
http://snyffle.com', '', 'expicon.bmp' }, ;
{ 'Taxes && Utilities', 'TAXESANDUTILITIES.Exe', '', 'dialog.bmp' }, ;
{ 'Notepad', 'Notepad.Exe', '', 'editmemo.bmp' } }
@ 0,0 DCSTATIC TYPE XBPSTATIC_TYPE_TEXT SIZE 10,10 OBJECT oPanelStatic COLOR COLOR_GREEN
DCGETOPTIONS;
NORESIZE
/*
DCGETOPTIONS ;
WINDOWWIDTH 1000 ;
WINDOWHEIGHT 800 ;
WINDOWROW 100 ;
WINDOWCOL 100
*/
DCREAD GUI TITLE 'BMSI Outlook Bar Test Program' ;
OPTIONS GetOptions ;
EVAL {|oDlg|oOutlookBar := OutlookBar():new( oPanelStatic ), ;
oOutlookBar:menuArray := aMenuItems, ;
oOutlookBar:buttonArray := aButtons, ;
oOutlookBar:create()}
RETURN nil
