object TableRollUp: TTableRollUp Left = 0 Top = 395 BorderIcons = [] BorderStyle = bsNone ClientHeight = 127 ClientWidth = 225 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 = 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 = 111 Align = alClient BevelOuter = bvNone BorderStyle = bsSingle Color = clNavy TabOrder = 1 object Label1: TLabel Left = 37 Top = 5 Width = 55 Height = 16 Caption = 'Columns:' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 119 Top = 5 Width = 36 Height = 16 Caption = 'Rows:' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object RowValue: TSpinEdit Left = 125 Top = 21 Width = 50 Height = 26 MaxValue = 0 MinValue = 0 TabOrder = 0 Value = 0 end object ColumnValue: TSpinEdit Left = 45 Top = 21 Width = 48 Height = 26 MaxValue = 0 MinValue = 0 TabOrder = 1 Value = 0 end object Border: TCheckBox Left = 61 Top = 55 Width = 97 Height = 17 Caption = 'Show Border' Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 end object BitBtn2: TBitBtn Left = 122 Top = 78 Width = 73 Height = 30 Caption = 'Close' TabOrder = 3 Kind = bkClose end object BitBtn1: TBitBtn Left = 29 Top = 78 Width = 73 Height = 30 Caption = 'Add' Default = True TabOrder = 4 OnClick = BitBtn1Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333FF33333333FF333993333333300033377F3333333777333993333333 300033F77FFF3333377739999993333333333777777F3333333F399999933333 33003777777333333377333993333333330033377F3333333377333993333333 3333333773333333333F333333333333330033333333F33333773333333C3333 330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3 993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333 333333333337733333FF3333333C333330003333333733333777333333333333 3000333333333333377733333333333333333333333333333333} NumGlyphs = 2 end end end