object TextRollUp: TTextRollUp Left = 260 Top = 277 BorderIcons = [] BorderStyle = bsNone Caption = 'HTML Text' ClientHeight = 178 ClientWidth = 225 Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] FormStyle = fsStayOnTop Position = poDefault OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object Panel1: TPanel Left = 0 Top = 0 Width = 225 Height = 16 Align = alTop BevelOuter = bvNone BorderStyle = bsSingle Color = clActiveCaption 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 = 57 Height = 15 Caption = 'HTML Text' 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 = 225 Height = 162 Align = alClient BevelOuter = bvNone BorderStyle = bsSingle Color = clNavy TabOrder = 1 object Label1: TLabel Left = 120 Top = 76 Width = 60 Height = 16 Caption = 'Font Size:' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 88 Top = 42 Width = 123 Height = 16 Caption = '(NetScape Specific!)' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object RollUpText: TEdit Left = 4 Top = 10 Width = 213 Height = 24 TabOrder = 0 OnKeyPress = RollUpTextKeyPress end object BitBtn1: TBitBtn Left = 17 Top = 129 Width = 70 Height = 30 Caption = 'Add' Default = True TabOrder = 1 OnClick = BitBtn1Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333FF33333333FF333993333333300033377F3333333777333993333333 300033F77FFF3333377739999993333333333777777F3333333F399999933333 33003777777333333377333993333333330033377F3333333377333993333333 3333333773333333333F333333333333330033333333F33333773333333C3333 330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3 993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333 333333333337733333FF3333333C333330003333333733333777333333333333 3000333333333333377733333333333333333333333333333333} NumGlyphs = 2 end object BitBtn2: TBitBtn Left = 111 Top = 129 Width = 70 Height = 30 Caption = 'Close' TabOrder = 2 Kind = bkClose end object Bold: TCheckBox Left = 3 Top = 37 Width = 56 Height = 17 Caption = 'Bold' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 3 end object Italics: TCheckBox Left = 3 Top = 53 Width = 68 Height = 17 Caption = 'Italics' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 4 end object Underline: TCheckBox Left = 3 Top = 69 Width = 80 Height = 17 Caption = 'Underline' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 5 end object Center: TCheckBox Left = 3 Top = 85 Width = 64 Height = 17 Caption = 'Center' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 6 end object Paragraph: TCheckBox Left = 3 Top = 101 Width = 84 Height = 17 Caption = 'Paragraph' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 7 end object Blink: TCheckBox Left = 119 Top = 59 Width = 60 Height = 17 Caption = 'Blink' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 8 end object FontSize: TSpinEdit Left = 130 Top = 96 Width = 45 Height = 26 MaxValue = 7 MinValue = 1 TabOrder = 9 Value = 3 end end object Scaler1: TScaler Xdevelop = 800 Ydevelop = 600 LimitScale = No ScaleRuntime = False Left = 179 Top = 90 PixelsPerInch = 96 ClientHeight = 178 ClientWidth = 225 end end