source: tags/1.2.0/Forms/UFormImportFormat.lfm

Last change on this file was 69, checked in by chronos, 8 years ago
  • Fixed: Set zero imported acronyms count before start of processing import sources.
  • Modified: Open dialogs positioned at center of screen.
  • Added: Open example acronyms by default if no other files were openned yet.
File size: 3.7 KB
Line 
1object FormImportFormat: TFormImportFormat
2 Left = 462
3 Height = 433
4 Top = 322
5 Width = 664
6 Caption = 'Import format'
7 ClientHeight = 433
8 ClientWidth = 664
9 OnCreate = FormCreate
10 OnShow = FormShow
11 Position = poScreenCenter
12 LCLVersion = '1.6.0.4'
13 object ButtonOk: TButton
14 Left = 560
15 Height = 25
16 Top = 384
17 Width = 75
18 Anchors = [akRight, akBottom]
19 Caption = 'Ok'
20 ModalResult = 1
21 TabOrder = 6
22 end
23 object ButtonCancel: TButton
24 Left = 464
25 Height = 25
26 Top = 384
27 Width = 75
28 Anchors = [akRight, akBottom]
29 Caption = 'Cancel'
30 ModalResult = 2
31 TabOrder = 5
32 end
33 object Label1: TLabel
34 Left = 20
35 Height = 20
36 Top = 53
37 Width = 43
38 Caption = 'Name:'
39 ParentColor = False
40 end
41 object EditName: TEdit
42 Left = 179
43 Height = 28
44 Top = 48
45 Width = 461
46 Anchors = [akTop, akLeft, akRight]
47 TabOrder = 1
48 end
49 object Label8: TLabel
50 Left = 20
51 Height = 20
52 Top = 90
53 Width = 72
54 Caption = 'Block start:'
55 ParentColor = False
56 end
57 object EditBlockStart: TEdit
58 Left = 179
59 Height = 28
60 Top = 85
61 Width = 461
62 Anchors = [akTop, akLeft, akRight]
63 TabOrder = 2
64 end
65 object Label9: TLabel
66 Left = 20
67 Height = 20
68 Top = 130
69 Width = 68
70 Caption = 'Block end:'
71 ParentColor = False
72 end
73 object EditBlockEnd: TEdit
74 Left = 179
75 Height = 28
76 Top = 125
77 Width = 461
78 Anchors = [akTop, akLeft, akRight]
79 TabOrder = 3
80 end
81 object ListViewItemRules: TListView
82 Left = 20
83 Height = 192
84 Top = 181
85 Width = 620
86 Anchors = [akTop, akLeft, akRight, akBottom]
87 Columns = <
88 item
89 Caption = 'Start string'
90 Width = 100
91 end
92 item
93 Caption = 'End string'
94 Width = 100
95 end
96 item
97 Caption = 'Action'
98 Width = 100
99 end
100 item
101 Caption = 'Variable'
102 Width = 100
103 end
104 item
105 Caption = 'Repetition'
106 Width = 100
107 end>
108 OwnerData = True
109 PopupMenu = PopupMenu1
110 ReadOnly = True
111 RowSelect = True
112 TabOrder = 4
113 ViewStyle = vsReport
114 OnData = ListViewItemRulesData
115 OnDblClick = AModifyExecute
116 end
117 object Label2: TLabel
118 Left = 20
119 Height = 20
120 Top = 157
121 Width = 68
122 Caption = 'Item rules:'
123 ParentColor = False
124 end
125 object Label3: TLabel
126 Left = 20
127 Height = 20
128 Top = 13
129 Width = 35
130 Caption = 'Type:'
131 ParentColor = False
132 end
133 object ComboBoxType: TComboBox
134 Left = 179
135 Height = 28
136 Top = 13
137 Width = 197
138 ItemHeight = 20
139 Items.Strings = (
140 'Text parse HTTP'
141 'MS Access database'
142 'Text parse file'
143 )
144 Style = csDropDownList
145 TabOrder = 0
146 end
147 object PopupMenu1: TPopupMenu
148 Images = FormMain.ImageList1
149 left = 181
150 top = 277
151 object MenuItem1: TMenuItem
152 Action = AAdd
153 end
154 object MenuItem2: TMenuItem
155 Action = AModify
156 end
157 object MenuItem3: TMenuItem
158 Action = ARemove
159 end
160 object MenuItem4: TMenuItem
161 Action = AMoveUp
162 end
163 object MenuItem5: TMenuItem
164 Action = AMoveDown
165 end
166 end
167 object ActionList1: TActionList
168 Images = FormMain.ImageList1
169 left = 383
170 top = 282
171 object AAdd: TAction
172 Caption = 'Add'
173 OnExecute = AAddExecute
174 ShortCut = 45
175 end
176 object AModify: TAction
177 Caption = 'Modify'
178 OnExecute = AModifyExecute
179 ShortCut = 13
180 end
181 object ARemove: TAction
182 Caption = 'Remove'
183 OnExecute = ARemoveExecute
184 ShortCut = 46
185 end
186 object AMoveUp: TAction
187 Caption = 'Move up'
188 OnExecute = AMoveUpExecute
189 end
190 object AMoveDown: TAction
191 Caption = 'Move down'
192 OnExecute = AMoveDownExecute
193 end
194 end
195end
Note: See TracBrowser for help on using the repository browser.