Develop and Download Open Source Software

Browse Subversion Repository

Contents of /Unit11.dfm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 16 - (show annotations) (download)
Sat Aug 6 08:27:34 2016 UTC (7 years, 7 months ago) by yamat0jp
File size: 13080 byte(s)
ソースコードだけ更新します
pngからjpegに変更しました
データベースファイルは画像データ削除しないとエラーで動作しません
1 object AdminFile: TAdminFile
2 Left = 0
3 Top = 0
4 Width = 464
5 Height = 591
6 RenderInvisibleControls = True
7 AllowPageAccess = True
8 ConnectionMode = cmAny
9 OnCreate = IWAppFormCreate
10 OnDestroy = IWAppFormDestroy
11 Background.Fixed = False
12 LayoutMgr = IWTemplateProcessorHTML1
13 HandleTabs = False
14 LeftToRight = True
15 LockUntilLoaded = True
16 LockOnSubmit = True
17 ShowHint = True
18 XPTheme = True
19 DesignLeft = 8
20 DesignTop = 8
21 object IWGrid1: TIWGrid
22 Left = 60
23 Top = 416
24 Width = 300
25 Height = 150
26 BorderColors.Color = clNone
27 BorderColors.Light = clNone
28 BorderColors.Dark = clNone
29 BGColor = clNone
30 BorderSize = 1
31 BorderStyle = tfDefault
32 Caption = 'IWGrid1'
33 CellPadding = 0
34 CellSpacing = 0
35 Font.Color = clNone
36 Font.Size = 10
37 Font.Style = []
38 FrameBuffer = 40
39 Lines = tlAll
40 UseFrame = False
41 UseSize = True
42 OnRender = IWGrid1Render
43 FriendlyName = 'IWGrid1'
44 ColumnCount = 5
45 OnCellClick = IWGrid1CellClick
46 RowCount = 1
47 ShowEmptyCells = True
48 ShowInvisibleRows = True
49 ScrollToCurrentRow = False
50 end
51 object IWButton2: TIWButton
52 Left = 369
53 Top = 472
54 Width = 75
55 Height = 25
56 Caption = 'IWButton2'
57 Color = clBtnFace
58 Font.Color = clNone
59 Font.Size = 10
60 Font.Style = []
61 FriendlyName = 'IWButton2'
62 TabOrder = 8
63 OnClick = IWButton2Click
64 end
65 object IWFileUploader1: TIWFileUploader
66 Left = 29
67 Top = 503
68 Width = 400
69 Height = 60
70 TabOrder = 9
71 TextStrings.DragText = 'Drop files here to upload'
72 TextStrings.UploadButtonText = 'Upload a file'
73 TextStrings.CancelButtonText = 'Cancel'
74 TextStrings.UploadErrorText = 'Upload failed'
75 TextStrings.MultipleFileDropNotAllowedText = 'You may only drop a single file'
76 TextStrings.OfTotalText = 'of'
77 TextStrings.RemoveButtonText = 'Remove'
78 TextStrings.TypeErrorText =
79 '{file} has an invalid extension. Only {extensions} files are all' +
80 'owed.'
81 TextStrings.SizeErrorText = '{file} is too large, maximum file size is {sizeLimit}.'
82 TextStrings.MinSizeErrorText = '{file} is too small, minimum file size is {minSizeLimit}.'
83 TextStrings.EmptyErrorText = '{file} is empty, please select files again without it.'
84 TextStrings.NoFilesErrorText = 'No files to upload.'
85 TextStrings.OnLeaveWarningText =
86 'The files are being uploaded, if you leave now the upload will b' +
87 'e cancelled.'
88 Style.ButtonOptions.Alignment = taCenter
89 Style.ButtonOptions.Font.Color = clWebWHITE
90 Style.ButtonOptions.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
91 Style.ButtonOptions.Font.Size = 10
92 Style.ButtonOptions.Font.Style = []
93 Style.ButtonOptions.FromColor = clWebMAROON
94 Style.ButtonOptions.ToColor = clWebMAROON
95 Style.ButtonOptions.Height = 30
96 Style.ButtonOptions.Width = 200
97 Style.ButtonHoverOptions.Alignment = taCenter
98 Style.ButtonHoverOptions.Font.Color = clWebWHITE
99 Style.ButtonHoverOptions.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
100 Style.ButtonHoverOptions.Font.Size = 10
101 Style.ButtonHoverOptions.Font.Style = []
102 Style.ButtonHoverOptions.FromColor = 214
103 Style.ButtonHoverOptions.ToColor = 214
104 Style.ListOptions.Alignment = taLeftJustify
105 Style.ListOptions.Font.Color = clWebBLACK
106 Style.ListOptions.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
107 Style.ListOptions.Font.Size = 10
108 Style.ListOptions.Font.Style = []
109 Style.ListOptions.FromColor = clWebGOLD
110 Style.ListOptions.ToColor = clWebGOLD
111 Style.ListOptions.Height = 30
112 Style.ListOptions.Width = 0
113 Style.ListSuccessOptions.Alignment = taLeftJustify
114 Style.ListSuccessOptions.Font.Color = clWebWHITE
115 Style.ListSuccessOptions.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
116 Style.ListSuccessOptions.Font.Size = 10
117 Style.ListSuccessOptions.Font.Style = []
118 Style.ListSuccessOptions.FromColor = clWebFORESTGREEN
119 Style.ListSuccessOptions.ToColor = clWebFORESTGREEN
120 Style.ListErrorOptions.Alignment = taLeftJustify
121 Style.ListErrorOptions.Font.Color = clWebWHITE
122 Style.ListErrorOptions.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
123 Style.ListErrorOptions.Font.Size = 10
124 Style.ListErrorOptions.Font.Style = []
125 Style.ListErrorOptions.FromColor = clWebRED
126 Style.ListErrorOptions.ToColor = clWebRED
127 Style.DropAreaOptions.Alignment = taCenter
128 Style.DropAreaOptions.Font.Color = clWebWHITE
129 Style.DropAreaOptions.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
130 Style.DropAreaOptions.Font.Size = 10
131 Style.DropAreaOptions.Font.Style = []
132 Style.DropAreaOptions.FromColor = clWebDARKORANGE
133 Style.DropAreaOptions.ToColor = clWebDARKORANGE
134 Style.DropAreaOptions.Height = 60
135 Style.DropAreaOptions.Width = 0
136 Style.DropAreaActiveOptions.Alignment = taCenter
137 Style.DropAreaActiveOptions.Font.Color = clWebWHITE
138 Style.DropAreaActiveOptions.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
139 Style.DropAreaActiveOptions.Font.Size = 10
140 Style.DropAreaActiveOptions.Font.Style = []
141 Style.DropAreaActiveOptions.FromColor = clWebLIMEGREEN
142 Style.DropAreaActiveOptions.ToColor = clWebLIMEGREEN
143 Style.DropAreaActiveOptions.Height = 60
144 Style.DropAreaActiveOptions.Width = 0
145 AutoUpload = False
146 CssClasses.Strings = (
147 'button='
148 'button-hover='
149 'drop-area='
150 'drop-area-active='
151 'drop-area-disabled='
152 'list='
153 'upload-spinner='
154 'progress-bar='
155 'upload-file='
156 'upload-size='
157 'upload-listItem='
158 'upload-cancel='
159 'upload-success='
160 'upload-fail='
161 'success-icon='
162 'fail-icon=')
163 FriendlyName = 'IWFileUploader1'
164 Font.Color = clNone
165 Font.Size = 10
166 Font.Style = []
167 end
168 object IWRegion1: TIWRegion
169 Left = 1
170 Top = 1
171 Width = 428
172 Height = 397
173 RenderInvisibleControls = True
174 BorderOptions.NumericWidth = 1
175 BorderOptions.BorderWidth = cbwNumeric
176 BorderOptions.Style = cbsSolid
177 BorderOptions.Color = clNone
178 object IWDBText1: TIWDBText
179 Left = 148
180 Top = 17
181 Width = 121
182 Height = 121
183 ConvertSpaces = False
184 DataField = 'COMMENT'
185 DataSource = DataModule3.view
186 FriendlyName = 'IWDBText1'
187 Font.Color = clNone
188 Font.Size = 10
189 Font.Style = []
190 RawText = False
191 UseFrame = False
192 WantReturns = True
193 end
194 object IWDBNavigator1: TIWDBNavigator
195 Left = 43
196 Top = 335
197 Width = 300
198 Height = 28
199 Confirmations.Delete = 'Are you sure you want to delete this record?'
200 Confirmations.Post = 'Are you sure you want to update this record?'
201 Confirmations.Cancel = 'Are you sure you want to cancel your changes to this record?'
202 DataSource = DataModule3.view
203 FriendlyName = 'IWDBNavigator1'
204 ImageHeight = 24
205 ImageWidth = 24
206 VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
207 Orientation = orHorizontal
208 OnInsert = IWDBNavigator1Insert
209 OnDelete = IWDBNavigator1Post
210 OnPost = IWDBNavigator1Post
211 OnBeforeAction = IWDBNavigator1BeforeAction
212 end
213 object IWDBEdit6: TIWDBEdit
214 Left = 80
215 Top = 225
216 Width = 121
217 Height = 21
218 Font.Color = clNone
219 Font.Size = 10
220 Font.Style = []
221 FriendlyName = 'IWDBEdit6'
222 SubmitOnAsyncEvent = True
223 TabOrder = 0
224 AutoEditable = False
225 DataField = 'WEIGHT'
226 PasswordPrompt = False
227 DataSource = DataModule3.view
228 end
229 object IWDBEdit5: TIWDBEdit
230 Left = 80
231 Top = 184
232 Width = 121
233 Height = 21
234 Font.Color = clNone
235 Font.Size = 10
236 Font.Style = []
237 FriendlyName = 'IWDBEdit5'
238 MaxLength = 80
239 SubmitOnAsyncEvent = True
240 TabOrder = 2
241 AutoEditable = False
242 DataField = 'PRICE'
243 PasswordPrompt = False
244 DataSource = DataModule3.view
245 end
246 object IWDBEdit4: TIWDBEdit
247 Left = 284
248 Top = 300
249 Width = 121
250 Height = 21
251 Font.Color = clNone
252 Font.Size = 10
253 Font.Style = []
254 FriendlyName = 'IWDBEdit4'
255 SubmitOnAsyncEvent = True
256 TabOrder = 4
257 AutoEditable = False
258 DataField = 'STOCK'
259 PasswordPrompt = False
260 DataSource = DataModule3.view
261 end
262 object IWDBEdit3: TIWDBEdit
263 Left = 284
264 Top = 263
265 Width = 121
266 Height = 21
267 Font.Color = clNone
268 Font.Size = 10
269 Font.Style = []
270 FriendlyName = 'IWDBEdit3'
271 MaxLength = 80
272 SubmitOnAsyncEvent = True
273 TabOrder = 5
274 AutoEditable = False
275 DataField = 'CATEGORY'
276 PasswordPrompt = False
277 DataSource = DataModule3.view
278 end
279 object IWDBEdit2: TIWDBEdit
280 Left = 284
281 Top = 225
282 Width = 121
283 Height = 21
284 Font.Color = clNone
285 Font.Size = 10
286 Font.Style = []
287 FriendlyName = 'IWDBEdit2'
288 MaxLength = 480
289 SubmitOnAsyncEvent = True
290 TabOrder = 6
291 AutoEditable = False
292 DataField = 'MAKER'
293 PasswordPrompt = False
294 DataSource = DataModule3.view
295 end
296 object IWDBEdit1: TIWDBEdit
297 Left = 284
298 Top = 184
299 Width = 121
300 Height = 21
301 Font.Color = clNone
302 Font.Size = 10
303 Font.Style = []
304 FriendlyName = 'IWDBEdit1'
305 MaxLength = 480
306 SubmitOnAsyncEvent = True
307 TabOrder = 7
308 AutoEditable = False
309 DataField = 'NAME'
310 PasswordPrompt = False
311 DataSource = DataModule3.view
312 end
313 object IWButton1: TIWButton
314 Left = 284
315 Top = 145
316 Width = 59
317 Height = 25
318 Caption = #35501#12415#36796#12415
319 Color = clBtnFace
320 Font.Color = clNone
321 Font.Size = 10
322 Font.Style = []
323 FriendlyName = 'IWButton1'
324 TabOrder = 3
325 OnClick = IWButton1Click
326 end
327 object IWLabel1: TIWLabel
328 Left = 220
329 Top = 189
330 Width = 49
331 Height = 16
332 Font.Color = clNone
333 Font.Size = 10
334 Font.Style = []
335 HasTabOrder = False
336 FriendlyName = 'IWLabel1'
337 Caption = #21830#21697#21517
338 end
339 object IWLabel2: TIWLabel
340 Left = 220
341 Top = 230
342 Width = 66
343 Height = 16
344 Font.Color = clNone
345 Font.Size = 10
346 Font.Style = []
347 HasTabOrder = False
348 FriendlyName = 'IWLabel2'
349 Caption = #12513#12540#12459#12540#21517
350 end
351 object IWLabel3: TIWLabel
352 Left = 220
353 Top = 263
354 Width = 47
355 Height = 16
356 Font.Color = clNone
357 Font.Size = 10
358 Font.Style = []
359 HasTabOrder = False
360 FriendlyName = 'IWLabel3'
361 Caption = #12459#12486#12468#12522
362 end
363 object IWLabel4: TIWLabel
364 Left = 220
365 Top = 305
366 Width = 49
367 Height = 16
368 Font.Color = clNone
369 Font.Size = 10
370 Font.Style = []
371 HasTabOrder = False
372 FriendlyName = 'IWLabel4'
373 Caption = #22312#24235#25968
374 end
375 object IWLabel5: TIWLabel
376 Left = 16
377 Top = 192
378 Width = 33
379 Height = 16
380 Font.Color = clNone
381 Font.Size = 10
382 Font.Style = []
383 HasTabOrder = False
384 FriendlyName = 'IWLabel5'
385 Caption = #20516#27573
386 end
387 object IWLabel6: TIWLabel
388 Left = 16
389 Top = 230
390 Width = 66
391 Height = 16
392 Font.Color = clNone
393 Font.Size = 10
394 Font.Style = []
395 HasTabOrder = False
396 FriendlyName = 'IWLabel6'
397 Caption = #21830#21697#37325#37327
398 end
399 object IWImage1: TIWImage
400 Left = 296
401 Top = 17
402 Width = 96
403 Height = 64
404 RenderSize = False
405 StyleRenderOptions.RenderSize = False
406 BorderOptions.Width = 0
407 TabOrder = -1
408 UseSize = False
409 FriendlyName = 'IWImage1'
410 TransparentColor = clNone
411 JpegOptions.CompressionQuality = 90
412 JpegOptions.Performance = jpBestSpeed
413 JpegOptions.ProgressiveEncoding = False
414 JpegOptions.Smoothing = True
415 end
416 object IWButton3: TIWButton
417 Left = 360
418 Top = 145
419 Width = 45
420 Height = 25
421 Caption = #21066#38500
422 Color = clBtnFace
423 Font.Color = clNone
424 Font.Size = 10
425 Font.Style = []
426 FriendlyName = 'IWButton3'
427 TabOrder = 10
428 OnClick = IWButton3Click
429 end
430 end
431 object IWTemplateProcessorHTML1: TIWTemplateProcessorHTML
432 TagType = ttIntraWeb
433 Templates.Default = 'adminfile.htm'
434 Left = 288
435 Top = 432
436 end
437 object FileOpenDialog1: TFileOpenDialog
438 FavoriteLinks = <>
439 FileTypes = <>
440 Options = []
441 Left = 337
442 Top = 113
443 end
444 end

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26