Charlie Whew!! Interesting stuff, as always from you!
Two questions: 1. The key command in your sample code is not documented in R:Docs. What do THESE mean? PROPERTY GroupBar Style 'gbsOutlook' PROPERTY GroupBar Style 'gbsTaskList' PROPERTY GroupBar Style 'gbsOutlook' I see that "GroupBar" is the component ID for the group bar but under RDOCS for GroupBar do I see an option for "Style". What version were these added in? Are there other choices? 2. This code for customizing the look of a Design menu Bar: 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' Where are these commands placed? in EEps for what? David Blocker [EMAIL PROTECTED] 781-784-1919 Fax: 781-784-1860 Cell: 339-206-0261 ----- Original Message ----- From: "Charles Parks" <[EMAIL PROTECTED]> To: "RBG7-L Mailing List" <[email protected]> Sent: Tuesday, February 22, 2005 12:45 PM Subject: [RBG7-L] - RE: Which menu style? 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
