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
|
object frmTodo: TfrmTodo
Left = 462
Height = 300
Top = 419
Width = 643
ActiveControl = lvTodo
Caption = 'frmTodo'
ClientHeight = 300
ClientWidth = 643
KeyPreview = True
OnCreate = FormCreate
OnKeyDown = FormKeyDown
Position = poScreenCenter
LCLVersion = '0.9.27'
object StatusBar: TStatusBar
Left = 0
Height = 21
Top = 279
Width = 643
Panels = <>
end
object lvTodo: TListView
Left = 0
Height = 231
Top = 48
Width = 643
Align = alClient
Columns = <
item
AutoSize = True
Caption = 'Caption'
Width = 57
end
item
AutoSize = True
Caption = 'Caption'
Width = 57
end
item
AutoSize = True
Caption = 'Caption'
Width = 57
end
item
AutoSize = True
Caption = 'Caption'
Width = 57
end
item
Caption = 'Caption'
end
item
Caption = 'Caption'
end
item
Caption = 'Caption'
Width = 315
end>
RowSelect = True
ScrollBars = ssAutoBoth
TabOrder = 0
ViewStyle = vsReport
OnClick = lvTodoClick
end
object ToolBar: TToolBar
Left = 0
Height = 48
Top = 0
Width = 643
AutoSize = True
ButtonHeight = 46
ButtonWidth = 47
Caption = 'ToolBar'
ParentShowHint = False
ShowCaptions = True
ShowHint = True
TabOrder = 1
object tbOptions: TToolButton
Left = 189
Top = 2
AllowAllUp = True
AutoSize = True
Caption = 'Options'
Visible = False
end
object tbPrint: TToolButton
Left = 142
Top = 2
AutoSize = True
Caption = 'Print'
Visible = False
end
object tbRefresh: TToolButton
Left = 1
Top = 2
Action = acRefresh
AutoSize = True
end
object tbGoto: TToolButton
Left = 48
Top = 2
Action = acGoto
AutoSize = True
end
object tbExport: TToolButton
Left = 95
Top = 2
Action = acExport
AutoSize = True
end
end
object ActionList: TActionList
left = 414
top = 11
object acGoto: TAction
Caption = 'Goto'
OnExecute = acGotoExecute
end
object acRefresh: TAction
Caption = 'Refresh'
OnExecute = acRefreshExecute
end
object acExport: TAction
Caption = 'Export'
OnExecute = acExportExecute
end
end
object SaveDialog1: TSaveDialog
OnShow = SaveDialog1Show
DefaultExt = '.csv'
Filter = 'csv|*.csv'
Options = [ofCreatePrompt, ofEnableSizing, ofViewDetail]
left = 448
top = 11
end
end
|
