MoveC/uCleanupHistoryForm.dfm at master · DeepKit/MoveC · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
object frmCleanupHistory: TfrmCleanupHistory
  Left = 0
  Top = 0
  Caption = '清理历史记录'
  ClientHeight = 600
  ClientWidth = 900
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object pnlMain: TPanel
    Left = 0
    Top = 0
    Width = 900
    Height = 600
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object pnlTop: TPanel
      Left = 0
      Top = 0
      Width = 900
      Height = 50
      Align = alTop
      BevelOuter = bvNone
      BorderWidth = 8
      TabOrder = 0
      object lblTitle: TLabel
        Left = 8
        Top = 8
        Width = 100
        Height = 19
        Caption = '清理历史记录'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object pnlSummary: TPanel
      Left = 0
      Top = 50
      Width = 900
      Height = 40
      Align = alTop
      BevelOuter = bvLowered
      BorderWidth = 8
      TabOrder = 1
      object lblTotalRecords: TLabel
        Left = 8
        Top = 12
        Width = 80
        Height = 13
        Caption = '总记录: 0 条'
      end
      object lblTotalFiles: TLabel
        Left = 150
        Top = 12
        Width = 120
        Height = 13
        Caption = '累计删除: 0 个文件'
      end
      object lblTotalSpace: TLabel
        Left = 330
        Top = 12
        Width = 80
        Height = 13
        Caption = '累计释放: 0 B'
      end
    end
    object pnlFilter: TPanel
      Left = 0
      Top = 90
      Width = 900
      Height = 35
      Align = alTop
      BevelOuter = bvNone
      BorderWidth = 8
      TabOrder = 2
      object lblFilter: TLabel
        Left = 8
        Top = 10
        Width = 60
        Height = 13
        Caption = '筛选类型:'
      end
      object cbFilterType: TComboBox
        Left = 74
        Top = 6
        Width = 180
        Height = 21
        Style = csDropDownList
        TabOrder = 0
        OnChange = cbFilterTypeChange
      end
      object btnRefresh: TButton
        Left = 264
        Top = 5
        Width = 75
        Height = 23
        Caption = '刷新'
        TabOrder = 1
        OnClick = btnRefreshClick
      end
    end
    object pnlList: TPanel
      Left = 0
      Top = 125
      Width = 900
      Height = 420
      Align = alClient
      BevelOuter = bvNone
      BorderWidth = 8
      TabOrder = 3
      object lvHistory: TListView
        Left = 8
        Top = 8
        Width = 884
        Height = 404
        Align = alClient
        Columns = <
          item
            Caption = '时间'
            Width = 150
          end
          item
            Caption = '类型'
            Width = 140
          end
          item
            Caption = '状态'
            Width = 60
          end
          item
            Alignment = taRightJustify
            Caption = '删除文件'
            Width = 80
          end
          item
            Alignment = taRightJustify
            Caption = '释放空间'
            Width = 100
          end
          item
            Alignment = taRightJustify
            Caption = '耗时'
            Width = 80
          end
          item
            Caption = '错误信息'
            Width = 250
          end>
        GridLines = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
        OnColumnClick = lvHistoryColumnClick
        OnCustomDrawItem = lvHistoryCustomDrawItem
      end
    end
    object pnlButtons: TPanel
      Left = 0
      Top = 545
      Width = 900
      Height = 55
      Align = alBottom
      BevelOuter = bvNone
      BorderWidth = 8
      TabOrder = 4
      object btnExportText: TButton
        Left = 8
        Top = 12
        Width = 100
        Height = 25
        Caption = '导出报告(TXT)'
        TabOrder = 0
        OnClick = btnExportTextClick
      end
      object btnExportJSON: TButton
        Left = 114
        Top = 12
        Width = 100
        Height = 25
        Caption = '导出(JSON)'
        TabOrder = 1
        OnClick = btnExportJSONClick
      end
      object btnClear: TButton
        Left = 220
        Top = 12
        Width = 100
        Height = 25
        Caption = '清空历史'
        TabOrder = 2
        OnClick = btnClearClick
      end
      object btnClose: TButton
        Left = 817
        Top = 12
        Width = 75
        Height = 25
        Caption = '关闭'
        TabOrder = 3
        OnClick = btnCloseClick
      end
    end
  end
  object SaveDialog: TSaveDialog
    Filter = '文本文件 (*.txt)|*.txt|JSON文件 (*.json)|*.json'
    Left = 840
    Top = 8
  end
end