object UndoForm: TUndoForm Left = 151 Top = 157 Width = 553 Height = 305 Caption = 'Deleted Record(s)' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OldCreateOrder = True Position = poScreenCenter OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 16 object UL_ToolBar: TToolBar Left = 0 Top = 0 Width = 545 Height = 26 AutoSize = True ButtonWidth = 29 EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom] Flat = True TabOrder = 0 object UL_Restore_Btn: TSpeedButton Left = 0 Top = 0 Width = 64 Height = 22 Hint = 'Restore Selected Record' Caption = 'Restore' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = 8404992 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True Spacing = 3 Transparent = False OnClick = UL_Restore_BtnClick end object UL_Del_Btn: TSpeedButton Left = 64 Top = 0 Width = 60 Height = 22 Hint = 'Delete Selected Record' Caption = 'Delete' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = 8404992 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphTop NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True Spacing = 0 Transparent = False OnClick = UL_Del_BtnClick end object UL_SP1: TToolButton Left = 124 Top = 0 Width = 8 Caption = 'UL_SP1' ImageIndex = 0 Style = tbsSeparator end object UL_RestoreAll_Btn: TSpeedButton Left = 132 Top = 0 Width = 73 Height = 22 Hint = 'Restore All Records' Caption = 'Restore All' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = 8404992 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True Spacing = 3 Transparent = False OnClick = UL_RestoreAll_BtnClick end object UL_DelAll_Btn: TSpeedButton Left = 205 Top = 0 Width = 65 Height = 22 Hint = 'Delete All Records' Caption = 'Delete All' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = 8404992 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True Spacing = 3 Transparent = False OnClick = UL_DelAll_BtnClick end object UL_SP2: TToolButton Left = 270 Top = 0 Width = 8 Caption = 'UL_SP2' ImageIndex = 1 Style = tbsSeparator end object UL_Close_Btn: TSpeedButton Left = 278 Top = 0 Width = 65 Height = 22 Hint = 'Delete All Records' Caption = 'Close' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = 8404992 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True Spacing = 3 Transparent = False OnClick = UL_Close_BtnClick end end object UnDelRecordList: TListView Left = 0 Top = 26 Width = 545 Height = 252 Align = alClient BiDiMode = bdLeftToRight BorderStyle = bsNone Color = 12579047 Columns = < item Caption = 'Date' Width = 58 end item Caption = 'Week' end item Caption = 'Account' Width = 80 end item Caption = 'Description' Width = 188 end item Caption = 'Deposit' Width = 58 end item Caption = 'Withdraw' Width = 72 end item Caption = 'Balance' Width = 68 end item Caption = 'Remark' Width = 188 end item Caption = 'By' Width = 98 end> ColumnClick = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] GridLines = True HotTrackStyles = [htUnderlineHot] IconOptions.Arrangement = iaLeft MultiSelect = True ReadOnly = True RowSelect = True ParentBiDiMode = False ParentFont = False TabOrder = 1 ViewStyle = vsReport OnClick = UnDelRecordListClick OnSelectItem = UnDelRecordListSelectItem end end