Develop and Download Open Source Software

Browse Subversion Repository

Annotation of /Unit11.dfm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 16 - (hide annotations) (download)
Sat Aug 6 08:27:34 2016 UTC (7 years, 8 months ago) by yamat0jp
File size: 13080 byte(s)
ソースコードだけ更新します
pngからjpegに変更しました
データベースファイルは画像データ削除しないとエラーで動作しません
1 yamat0jp 15 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 yamat0jp 16 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 yamat0jp 15 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 yamat0jp 16 TabOrder = 0
224 yamat0jp 15 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 yamat0jp 16 Top = 145
316     Width = 59
317 yamat0jp 15 Height = 25
318 yamat0jp 16 Caption = #35501#12415#36796#12415
319 yamat0jp 15 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 yamat0jp 16 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 yamat0jp 15 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 yamat0jp 16 FileTypes = <>
440 yamat0jp 15 Options = []
441 yamat0jp 16 Left = 337
442     Top = 113
443 yamat0jp 15 end
444     end

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