Prev: VOCOM and WebBrowser question
Next: FabToys et al
From: GeorgeNT on 10 Sep 2007 07:09
Hi,

an old application (VO 2.7b-1) running under Windows XP displays
correctly the Toolbar using the bands: #FFDATE, #FFNEXT but, when is
running under Windows Vista the band named #FFDATE appears at the
right side of the toolbar, having a big gap between the first Toolbar
Item:
IDT_SCROLLMINUS and the Band: #FFDATE.

Any suggestions please ?

Thanks
George

(Here is the construction of the toolbar:)

METHOD MakeToolBar() CLASS MySplitWin
LOCAL oTB AS ToolBar

oTB := ToolBar{}
oTB:ButtonStyle := TB_ICONONLY

// First Toolbar item is the left-arrow for Previous Day
oTB:AppendItem(IDT_SCROLLMINUS,IDM_StandardShellMenu_Operation_Go_To_Previous_Date_ID)
oTB:AddTipText(IDT_SCROLLMINUS, ;
IDM_StandardShellMenu_Operation_Go_To_Previous_Date_ID, "Previous
Date")

SELF:ToolBar:=oTB

// oSLETB is a DateSLE control
SELF:oSLETB := DateSLE{SELF, MY_SLETB, Point{30,2}, Dimension{25,24}}
SELF:oSLETB:lAlignCalendarLeft:=TRUE // Align Left
// The Band #FFDATE will hold the DateSLE control
SELF:ToolBar:AddBand(#FFDATE, SELF:Owner:oSLETB, -1, 54, 24)

// The Band #FFNEXT will hold the right-arrow for Next Day as well as
// the items for: GoTop, PreviousRecord, NextRecord, GoBottom
SELF:ToolBar:AddSubToolBarBand(#FFNEXT, -1)
SELF:ToolBar:AppendSubItem(#FFNEXT, ;
IDT_SCROLLPLUS,IDM_StandardShellMenu_Operation_Go_To_Next_Date_ID)
SELF:ToolBar:AddTipText(IDT_SCROLLPLUS, ;
IDM_StandardShellMenu_Operation_Go_To_Next_Date_ID, "Next Date")

SELF:ToolBar:AppendSubItem(#FFNEXT, ;
IDT_STARTREC,IDM_StandardShellMenu_Operation_Go_To_Go_To_Top_ID)
SELF:ToolBar:AddTipText(IDT_STARTREC, ;
IDM_StandardShellMenu_Operation_Go_To_Go_To_Top_ID,"Go Top")

SELF:ToolBar:AppendSubItem(#FFNEXT, ;
IDT_PREVREC,IDM_StandardShellMenu_Operation_Go_To_Previous_ID)
SELF:ToolBar:AddTipText(IDT_PREVREC, ;
IDM_StandardShellMenu_Operation_Go_To_Previous_ID, ;
"Go to previous record")

SELF:ToolBar:AppendSubItem(#FFNEXT, ;
IDT_NEXTREC,IDM_StandardShellMenu_Operation_Go_To_Next_ID)
SELF:ToolBar:AddTipText(IDT_NEXTREC, ;
IDM_StandardShellMenu_Operation_Go_To_Next_ID, ;
"Go to next record")

SELF:ToolBar:AppendSubItem(#FFNEXT, ;
IDT_ENDREC,IDM_StandardShellMenu_Operation_Go_To_Go_To_Bottom_ID)
SELF:ToolBar:AddTipText(IDT_ENDREC, ;
IDM_StandardShellMenu_Operation_Go_To_Go_To_Bottom_ID, "Go Bottom")

SELF:ToolBar:Show()

RETURN SELF

 | 
Pages: 1
Prev: VOCOM and WebBrowser question
Next: FabToys et al