object hrRollUp: ThrRollUp Left = 17 Top = 328 BorderIcons = [] BorderStyle = bsNone ClientHeight = 198 ClientWidth = 200 Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] FormStyle = fsStayOnTop PixelsPerInch = 96 Position = poDefault OnCreate = FormCreate TextHeight = 16 object Panel1: TPanel Left = 0 Top = 0 Width = 200 Height = 16 Align = alTop BevelOuter = bvNone BorderStyle = bsSingle Color = clNavy Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 OnMouseDown = Panel1MouseDown OnMouseMove = Panel1MouseMove OnMouseUp = Panel1MouseUp object CaptionLabel: TLabel Left = 20 Top = -1 Width = 43 Height = 15 Caption = 'Caption' Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True OnMouseDown = Panel1MouseDown OnMouseMove = Panel1MouseMove OnMouseUp = Panel1MouseUp end object CloseButton: TSpeedButton Left = 1 Top = 0 Width = 14 Height = 14 Glyph.Data = { F0000000424DF00000000000000076000000280000000C0000000C0000000100 0400000000006000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 0000300333333003000030003333000300003300033000330000333000000333 0000333300003333000033330000333300003330000003330000330003300033 0000300033330003000030033333300300003333333333330000000000000000 0000000000000000000000000000000000000000} OnClick = CloseButtonClick end object UpButton: TSpeedButton Left = 86 Top = 0 Width = 14 Height = 14 Glyph.Data = { F0000000424DF00000000000000076000000280000000C0000000C0000000100 0400000000006000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 0000333333333333000033333333333300000000000000000000300000000003 0000330000000033000033300000033300003333000033330000333330033333 0000333333333333000033333333333300003333333333330000000000000000 0000000000000000000000000000000000000000} Visible = False end object DownButton: TSpeedButton Left = 101 Top = 0 Width = 14 Height = 14 Glyph.Data = { F0000000424DF00000000000000076000000280000000C0000000C0000000100 0400000000006000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 0000333333333333000033333003333300003333000033330000333000000333 0000330000000033000030000000000300000000000000000000333333333333 0000333333333333000033333333333300003333333333330000000000000000 0000000000000000000000000000000000000000} Visible = False end object RollButton: TSpeedButton Left = 137 Top = 0 Width = 14 Height = 14 Glyph.Data = { F0000000424DF00000000000000076000000280000000C0000000C0000000100 0400000000006000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 0000333333333333000033333333333300000000000000000000300000000003 0000330000000033000033300000033300003333000033330000333330033333 0000333333333333000033333333333300003333333333330000000000000000 0000000000000000000000000000000000000000} OnClick = RollButtonClick end end object FormArea: TPanel Left = 0 Top = 16 Width = 200 Height = 182 Align = alClient BevelOuter = bvNone BorderStyle = bsSingle Color = clNavy TabOrder = 1 object Label1: TLabel Left = 2 Top = 19 Width = 30 Height = 16 Caption = 'Size:' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 1 Top = 70 Width = 38 Height = 16 Caption = 'Width:' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 38 Top = 4 Width = 118 Height = 16 Caption = '(NetScape Specific!)' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Size: TSpinEdit Left = 6 Top = 37 Width = 45 Height = 26 MaxValue = 0 MinValue = 0 TabOrder = 0 Value = 0 end object WidthValue: TSpinEdit Left = 6 Top = 88 Width = 45 Height = 26 MaxValue = 0 MinValue = 0 TabOrder = 1 Value = 0 end object AsPercent: TCheckBox Left = 57 Top = 92 Width = 112 Height = 17 Caption = 'As Percentage' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 end object Alignment: TRadioGroup Left = 62 Top = 22 Width = 119 Height = 57 Caption = 'Alignment' Columns = 2 Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ItemIndex = 0 Items.Strings = ( 'None' 'Left' 'Right' 'Center') ParentFont = False TabOrder = 3 end object NoShade: TCheckBox Left = 14 Top = 126 Width = 97 Height = 17 Caption = 'Do Not Shade' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 4 end object BitBtn1: TBitBtn Left = 19 Top = 149 Width = 72 Height = 30 Caption = 'Add' Default = True TabOrder = 5 OnClick = BitBtn1Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333FF33333333FF333993333333300033377F3333333777333993333333 300033F77FFF3333377739999993333333333777777F3333333F399999933333 33003777777333333377333993333333330033377F3333333377333993333333 3333333773333333333F333333333333330033333333F33333773333333C3333 330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3 993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333 333333333337733333FF3333333C333330003333333733333777333333333333 3000333333333333377733333333333333333333333333333333} NumGlyphs = 2 end object BitBtn2: TBitBtn Left = 109 Top = 149 Width = 72 Height = 30 Caption = 'Close' TabOrder = 6 Kind = bkClose end end end