I personally like the Layout\Design Menu Bar with wallpaper and as long
as the menu item has one sub-item these property commands help customize
it
PROPERTY <WallPaperComponentID> GradientDirection 'gdSquareBox'
PROPERTY <WallPaperComponentID> GradientDirection 'gdHorizontalBox'
PROPERTY <WallPaperComponentID> GradientDirection 'gdHorizontalCenter'
PROPERTY <WallPaperComponentID> GradientDirection 'gdVerticalCenter'
PROPERTY <WallPaperComponentID> GradientDirection 'gdBigSquareBox'
PROPERTY <WallPaperComponentID> GRADIENTDirection 'gdHorizontalEnd'
PROPERTY <WallPaperComponentID> GRADIENTCOLORSTART 'Navy'
PROPERTY <WallPaperComponentID> GRADIENTCOLORSTOP 'aqua'
Clicking the first menu item with a sub-item and then hovering to the
next item in the menu bar with a sub-item will call the property command
thus giving each item on the menu bar its own look.
The following code is useful for showing off the three current
variations of the group bar just copy it into a blank form and while
running it click the group bar button.
object RBLabel3: TRBLabel
Tag = 93364925
Left = 340
Top = 270
Width = 108
Height = 19
Cursor = crArrow
Caption = 'CategoryView'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
FrameSides = []
CompID = 'NextGroupBar'
UseAsLink = False
EEPNum = 0
UseAsLinkEEP = False
end
object RBLabel2: TRBLabel
Tag = 80655317
Left = 267
Top = 270
Width = 68
Height = 19
Cursor = crArrow
Caption = 'Preview:'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
FrameSides = []
UseAsLink = False
EEPNum = 0
UseAsLinkEEP = False
end
object RGroupBar2: TRGroupBar
Tag = 4596333
Left = 0
Top = 0
Height = 453
CompID = 'GroupBar'
ExclusiveMode = True
BorderColor = clBtnHighlight
ColorAdjustment = 30
GroupBorderSize = 0
Style = gbsOutlook
UseGradients = False
Color = clBackground
ParentColor = False
TabOrder = 0
object RzGroup1: TRzGroup
ShowAccelChar = True
CompID = 'AddEdit'
Color = clBtnFace
ColorDefault = False
Items = <
item
CompID = 'Item1'
Caption = 'Item 1'
end
item
CompID = 'Item2'
Caption = 'Item 2'
end>
Opened = True
OpenedHeight = 413
DividerColor = clHighlight
DividerVisible = True
UseGradients = True
Caption = 'Add/Edit'
ParentColor = False
end
object RzGroup2: TRzGroup
ShowAccelChar = True
CompID = 'PrintBasic'
Items = <
item
CompID = 'Print1'
Caption = 'Print 1'
end>
Opened = False
OpenedHeight = 47
DividerColor = clHighlight
UseGradients = True
Caption = 'Print'
ParentColor = False
end
object RzGroup3: TRzGroup
ShowAccelChar = True
CompID = 'Other'
Items = <
item
CompID = 'Other1'
Caption = 'Other1'
end>
Opened = False
OpenedHeight = 47
DividerColor = clHighlight
UseGradients = True
Caption = 'Other'
ParentColor = False
end
end
object RButton2: TRButton
Tag = 54446890
Left = 335
Top = 300
Height = 42
Caption = 'Group Bar'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
EEPNum = -1
CustomEEP.Strings = (
' PROPERTY GroupBar Width 160'
''
' GETPROPERTY GroupBar Style '#39'fStyle'#39
''
' SWITCH (.fStyle)'
''
' CASE '#39'gbsOutlook'#39
' PROPERTY GroupBar Style '#39'gbsCategoryView'#39
' PROPERTY AddEdit Opened '#39'False'#39
' PROPERTY PRINTBasic Opened '#39'False'#39
' PROPERTY Other Opened '#39'False'#39
''
' PAUSE 2 USING '#39'CategoryView'#39
' PROPERTY NextGroupBar CAPTION '#39'TaskList'#39
' BREAK --gbsOutlook'
''
' CASE '#39'gbsCategoryView'#39
' PROPERTY GroupBar Style '#39'gbsTaskList'#39
' PAUSE 2 USING '#39'TaskList'#39
' PROPERTY NextGroupBar CAPTION '#39'Outlook'#39
' BREAK --gbsCategoryView'
''
' CASE '#39'gbsTaskList'#39
' PROPERTY GroupBar Style '#39'gbsOutlook'#39
' PAUSE 2 USING '#39'Outlook'#39
' PROPERTY NextGroupBar CAPTION '#39'CategoryView'#39
' BREAK --gbsOutlook'
' ENDSW --fStyle'
' RETURN')
end
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Marc
Posted At: Tuesday, February 22, 2005 10:22 AM
Posted To: RB7-L
Conversation: [RBG7-L] - Which menu style?
Subject: [RBG7-L] - Which menu style?
Hi
I am thinking of having 2 styles of menus so the user can choose which
one he likes best.
So, far I have been sticking with Speed Buttons on a form because that
is what I was using in 6.x
Which other menu style would be good to offer?
I know this is personal preference but I would love to know what
everyone else is using.
Marc
