source: trunk/Forms/FormImportSources.lfm

Last change on this file was 227, checked in by chronos, 44 hours ago
  • Modified: Do not reference global Core object if possible.
File size: 3.9 KB
Line 
1object FormImportSources: TFormImportSources
2 Left = 475
3 Height = 497
4 Top = 329
5 Width = 974
6 Caption = 'Import sources'
7 ClientHeight = 497
8 ClientWidth = 974
9 DesignTimePPI = 144
10 OnCreate = FormCreate
11 OnShow = FormShow
12 Position = poScreenCenter
13 LCLVersion = '3.6.0.0'
14 object ToolBar1: TToolBar
15 Left = 0
16 Height = 33
17 Top = 464
18 Width = 974
19 Align = alBottom
20 Caption = 'ToolBar1'
21 Images = Core.ImageListSmall
22 ParentShowHint = False
23 ShowHint = True
24 TabOrder = 0
25 object ToolButton1: TToolButton
26 Left = 1
27 Top = 2
28 Action = AAdd
29 end
30 object ToolButton2: TToolButton
31 Left = 36
32 Top = 2
33 Action = AModify
34 end
35 object ToolButton3: TToolButton
36 Left = 71
37 Top = 2
38 Action = ARemove
39 end
40 object ToolButton4: TToolButton
41 Left = 106
42 Top = 2
43 Action = AProcess
44 end
45 end
46 object ListView1: TListView
47 Left = 5
48 Height = 419
49 Top = 40
50 Width = 964
51 Align = alClient
52 BorderSpacing.Left = 5
53 BorderSpacing.Right = 5
54 BorderSpacing.Bottom = 5
55 Checkboxes = True
56 Columns = <
57 item
58 Caption = 'Name'
59 Width = 180
60 end
61 item
62 Caption = 'URL'
63 Width = 300
64 end
65 item
66 Caption = 'Categories'
67 Width = 240
68 end
69 item
70 Caption = 'Count'
71 Width = 84
72 end
73 item
74 Caption = 'Date'
75 Width = 145
76 end>
77 MultiSelect = True
78 OwnerData = True
79 PopupMenu = PopupMenuImportSource
80 ReadOnly = True
81 RowSelect = True
82 TabOrder = 1
83 ViewStyle = vsReport
84 OnChange = ListView1Change
85 OnData = ListView1Data
86 OnDblClick = ListView1DblClick
87 OnKeyPress = ListView1KeyPress
88 OnResize = ListView1Resize
89 OnSelectItem = ListView1SelectItem
90 end
91 object ListViewFilter1: TListViewFilter
92 Left = 5
93 Height = 35
94 Top = 5
95 Width = 964
96 OnChange = ListViewFilter1Change
97 Align = alTop
98 BorderSpacing.Left = 5
99 BorderSpacing.Top = 5
100 BorderSpacing.Right = 5
101 end
102 object ActionList1: TActionList
103 Left = 490
104 Top = 269
105 object AAdd: TAction
106 Caption = 'Add'
107 ImageIndex = 0
108 OnExecute = AAddExecute
109 ShortCut = 45
110 end
111 object ARemove: TAction
112 Caption = 'Remove'
113 ImageIndex = 4
114 OnExecute = ARemoveExecute
115 ShortCut = 46
116 end
117 object AModify: TAction
118 Caption = 'Modify'
119 ImageIndex = 3
120 OnExecute = AModifyExecute
121 ShortCut = 13
122 end
123 object AProcess: TAction
124 Caption = 'Process'
125 ImageIndex = 5
126 OnExecute = AProcessExecute
127 end
128 object AEnable: TAction
129 Caption = 'Enable'
130 OnExecute = AEnableExecute
131 end
132 object ADisable: TAction
133 Caption = 'Disable'
134 OnExecute = ADisableExecute
135 end
136 end
137 object PopupMenuImportSource: TPopupMenu
138 Left = 176
139 Top = 264
140 object MenuItem1: TMenuItem
141 Action = AAdd
142 end
143 object MenuItem2: TMenuItem
144 Action = AModify
145 end
146 object MenuItem3: TMenuItem
147 Action = ARemove
148 end
149 object MenuItem4: TMenuItem
150 Action = AProcess
151 end
152 object MenuItem7: TMenuItem
153 Caption = '-'
154 end
155 object MenuItem5: TMenuItem
156 Action = AEnable
157 end
158 object MenuItem6: TMenuItem
159 Action = ADisable
160 end
161 end
162 object JobProgressView1: TJobProgressView
163 OwnerDraw = False
164 ShowDelay = 0
165 AutoClose = True
166 Left = 359
167 Top = 143
168 end
169 object ListViewSort1: TListViewSort
170 ListView = ListView1
171 OnCompareItem = ListViewSort1CompareItem
172 OnFilter = ListViewSort1Filter
173 OnColumnWidthChanged = ListViewSort1ColumnWidthChanged
174 Column = 0
175 Order = soNone
176 Left = 656
177 Top = 206
178 end
179end
Note: See TracBrowser for help on using the repository browser.