source: trunk/Forms/UFormImportSources.lfm

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