<% var CTWebPath = "/CTWebScripts/"; var HelpPath = CTWebPath + "Help/"; var ImagesPath = CTWebPath + "Images/"; var HelpImagePath = ImagesPath + "Question.bmp"; var LogOutImagePath = ImagesPath + "LogOut.bmp"; var PageHelpPath = "javascript:window.open('" + Form.HelpPath + Form.HelpName + "'); void 0;"; var HowToHelpPath = "javascript:window.open('" + Form.HelpPath + "index.html" + "'); void 0;"; var ContentsHelpPath = "javascript:window.open('" + Form.HelpPath + "index.html" + "'); void 0;"; if (Form.IsFirstRequest) { var Menu = Form.CreateComponent("TcxWebMainMenu"); var DefStyle = Form.CreateComponent("TcxWebStyleItem"); var HovStyle = Form.CreateComponent("TcxWebStyleItem"); //see cbxWebColors.pas var MyDef = "$EED2C1"; var MyHov = "$DDD2C1"; var MyWhite = "$FFFFFF"; var MyBlue = "$FA3636"; var MyGold = "$00D7FF"; var MyBlack = "$000000"; var MyWidth = 120; var SubWith = MyWidth - 11; if(Menu && DefStyle && HovStyle) { DefStyle.Style.Borders.Top.Color = MyWhite; DefStyle.Style.Borders.Left.Color = MyDef; DefStyle.Style.Borders.Bottom.Color = MyWhite; DefStyle.Style.Borders.Right.Color = MyDef; DefStyle.Style.Font.Names.Clear; // DefStyle.Style.Font.Size.Units = 8; DefStyle.Style.Font.Size.Value = 10; DefStyle.Style.Font.Bold = "True"; DefStyle.Style.Font.Color = MyBlue; DefStyle.Style.Font.Names.Add = "MS Sans Serif"; DefStyle.Style.Shading.Color = MyDef; HovStyle.Style.Borders.Top.Color = MyWhite; HovStyle.Style.Borders.Left.Color = MyHov; HovStyle.Style.Borders.Bottom.Color = MyWhite; HovStyle.Style.Borders.Right.Color = MyHov; HovStyle.Style.Font.Names.Clear; // HovStyle.Style.Font.Size.Units = 8; HovStyle.Style.Font.Size.Value = 10; HovStyle.Style.Font.Bold = "True"; HovStyle.Style.Font.Color = MyBlack; HovStyle.Style.Font.Names.Add = "MS Sans Serif"; HovStyle.Style.Shading.Color = MyHov; Menu.Name = "mnuMain"; Menu.SeparatorColor = MyWhite; Menu.SeparatorWidth = 2; Menu.Left = 240; Menu.Top = 10; Menu.ZIndex = 100; Menu.Styles.Default = Form.MMDefStyle; Menu.Styles.Hover = Form.MMHoverStyle; var MenuItem = Menu.Items.Add; MenuItem.Width = 250; MenuItem.Name = "miPages"; MenuItem.Caption = "Pages"; var Idx=0; while (Idx