object HeadingRollUp: THeadingRollUp Left = 147 Top = 277 BorderIcons = [] BorderStyle = bsNone ClientHeight = 141 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 = 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 = 225 Height = 125 Align = alClient BevelOuter = bvNone BorderStyle = bsSingle Color = clNavy TabOrder = 1 object RollUpText: TEdit Left = 4 Top = 4 Width = 211 Height = 24 TabOrder = 0 OnKeyPress = RollUpTextKeyPress end object HeadingSize: TSpinEdit Left = 4 Top = 36 Width = 33 Height = 26 MaxValue = 6 MinValue = 1 TabOrder = 1 Value = 3 end object Center: TCheckBox Left = 52 Top = 34 Width = 97 Height = 17 Caption = 'Center' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 end object Italics: TCheckBox Left = 52 Top = 50 Width = 97 Height = 17 Caption = 'Italics' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 3 end object Underline: TCheckBox Left = 118 Top = 34 Width = 97 Height = 17 Caption = 'Underline' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 4 end object BitBtn1: TBitBtn Left = 29 Top = 91 Width = 70 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 = 123 Top = 91 Width = 70 Height = 30 Caption = 'Close' TabOrder = 6 Kind = bkClose end end object Scaler1: TScaler Xdevelop = 800 Ydevelop = 600 LimitScale = No ScaleRuntime = False Left = 146 Top = 78 PixelsPerInch = 96 ClientHeight = 141 ClientWidth = 225 end end