Develop and Download Open Source Software

Browse Subversion Repository

Contents of /Unit1.dfm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 15 - (show annotations) (download)
Fri Aug 5 10:33:26 2016 UTC (7 years, 7 months ago) by yamat0jp
File size: 13762 byte(s)
TDataSetNotifyEventの切り替え方法がはっきりわかりませんでしたが適当に実装しました。
1 object IWForm1: TIWForm1
2 Left = 0
3 Top = 0
4 Width = 577
5 Height = 716
6 RenderInvisibleControls = False
7 OnRender = IWAppFormRender
8 AllowPageAccess = True
9 ConnectionMode = cmAny
10 OnCreate = IWAppFormCreate
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 IWLabel1: TIWLabel
22 Left = 153
23 Top = 192
24 Width = 99
25 Height = 16
26 Font.Color = clNone
27 Font.Size = 10
28 Font.Style = []
29 HasTabOrder = False
30 FriendlyName = 'IWLabel1'
31 Caption = #12424#12358#12371#12381#12466#12473#12488#27096
32 end
33 object IWDBLabel1: TIWDBLabel
34 Left = 153
35 Top = 175
36 Width = 36
37 Height = 16
38 Font.Color = clNone
39 Font.Size = 10
40 Font.Style = []
41 HasTabOrder = False
42 DataField = 'NAME'
43 DataSource = DataModule3.user
44 FriendlyName = 'IWDBLabel1'
45 end
46 object IWLink1: TIWLink
47 Left = 286
48 Top = 191
49 Width = 92
50 Height = 17
51 Alignment = taLeftJustify
52 Color = clNone
53 Font.Color = clNone
54 Font.Size = 10
55 Font.Style = [fsUnderline]
56 DoSubmitValidation = False
57 FriendlyName = 'IWLink1'
58 OnClick = IWLink1Click
59 TabOrder = 0
60 RawText = False
61 Caption = #12518#12540#12470#12540#30331#37682
62 end
63 object IWLabel6: TIWLabel
64 Left = 329
65 Top = 143
66 Width = 49
67 Height = 16
68 Font.Color = clNone
69 Font.Size = 10
70 Font.Style = []
71 HasTabOrder = False
72 FriendlyName = 'IWLabel6'
73 Caption = #26908#32034#20013
74 end
75 object IWGrid1: TIWGrid
76 Left = 52
77 Top = 240
78 Width = 429
79 Height = 150
80 BorderColors.Color = clNone
81 BorderColors.Light = clNone
82 BorderColors.Dark = clNone
83 BGColor = clNone
84 BorderSize = 2
85 BorderStyle = tfDefault
86 Caption = #21830#21697#19968#35239
87 CellPadding = 10
88 CellSpacing = 10
89 Font.Color = clNone
90 Font.Size = 10
91 Font.Style = []
92 FrameBuffer = 40
93 Lines = tlAll
94 UseFrame = False
95 UseSize = True
96 FriendlyName = 'IWGrid1'
97 ColumnCount = 4
98 OnCellClick = IWGrid1CellClick
99 RowCount = 1
100 ShowEmptyCells = True
101 ShowInvisibleRows = True
102 ScrollToCurrentRow = False
103 end
104 object IWText1: TIWText
105 Left = 41
106 Top = 136
107 Width = 145
108 Height = 36
109 BGColor = clNone
110 ConvertSpaces = False
111 Font.Color = clNone
112 Font.Size = 10
113 Font.Style = []
114 FriendlyName = 'IWText1'
115 Lines.Strings = (
116 #12356#12425#12387#12375#12419#12356#12414#12379
117 #12469#12452#12531#12452#12531#12375#12390#12367#12384#12373#12356)
118 RawText = False
119 UseFrame = False
120 WantReturns = True
121 end
122 object IWLink3: TIWLink
123 Left = 400
124 Top = 142
125 Width = 65
126 Height = 17
127 Alignment = taLeftJustify
128 Color = clNone
129 Font.Color = clNone
130 Font.Size = 10
131 Font.Style = [fsUnderline]
132 DoSubmitValidation = False
133 FriendlyName = 'IWLink3'
134 OnClick = IWLink3Click
135 TabOrder = 9
136 RawText = False
137 Caption = #30331#37682#24773#22577
138 end
139 object IWLink5: TIWLink
140 Left = 375
141 Top = 165
142 Width = 127
143 Height = 17
144 Alignment = taLeftJustify
145 Color = clNone
146 Font.Color = clNone
147 Font.Size = 10
148 Font.Style = [fsUnderline]
149 DoSubmitValidation = False
150 FriendlyName = 'IWLink5'
151 OnClick = IWLink5Click
152 TabOrder = 10
153 RawText = False
154 Caption = #12497#12473#12527#12540#12489#12362#24536#12428#12398#26041
155 end
156 object IWLink6: TIWLink
157 Left = 509
158 Top = 504
159 Width = 65
160 Height = 17
161 Alignment = taLeftJustify
162 Color = clNone
163 Font.Color = clNone
164 Font.Size = 10
165 Font.Style = [fsUnderline]
166 DoSubmitValidation = False
167 FriendlyName = 'IWLink6'
168 OnClick = IWLink6Click
169 TabOrder = 14
170 RawText = False
171 Caption = 'IWLink6'
172 end
173 object IWLink7: TIWLink
174 Left = 509
175 Top = 542
176 Width = 65
177 Height = 17
178 Alignment = taLeftJustify
179 Color = clNone
180 Font.Color = clNone
181 Font.Size = 10
182 Font.Style = [fsUnderline]
183 DoSubmitValidation = False
184 FriendlyName = 'IWLink7'
185 OnClick = IWLink6Click
186 TabOrder = 15
187 RawText = False
188 Caption = 'IWLink7'
189 end
190 object IWRegion1: TIWRegion
191 Left = 16
192 Top = 192
193 Width = 122
194 Height = 97
195 RenderInvisibleControls = True
196 BorderOptions.NumericWidth = 1
197 BorderOptions.BorderWidth = cbwNumeric
198 BorderOptions.Style = cbsSolid
199 BorderOptions.Color = clNone
200 object IWLabel2: TIWLabel
201 Left = 1
202 Top = 1
203 Width = 120
204 Height = 16
205 Align = alTop
206 Font.Color = clNone
207 Font.Size = 10
208 Font.Style = []
209 HasTabOrder = False
210 FriendlyName = 'IWLabel2'
211 Caption = #12459#12486#12468#12522
212 ExplicitLeft = 0
213 ExplicitTop = 40
214 ExplicitWidth = 58
215 end
216 object IWList1: TIWList
217 Left = 1
218 Top = 17
219 Width = 120
220 Height = 79
221 Align = alClient
222 FriendlyName = 'IWList1'
223 Font.Color = clNone
224 Font.Size = 10
225 Font.Style = []
226 Numbered = False
227 ExplicitLeft = 8
228 ExplicitTop = 48
229 ExplicitWidth = 116
230 ExplicitHeight = 24
231 end
232 end
233 object IWRegion2: TIWRegion
234 Left = 16
235 Top = 304
236 Width = 122
237 Height = 107
238 RenderInvisibleControls = True
239 BorderOptions.NumericWidth = 1
240 BorderOptions.BorderWidth = cbwNumeric
241 BorderOptions.Style = cbsSolid
242 BorderOptions.Color = clNone
243 object IWLabel3: TIWLabel
244 Left = 1
245 Top = 1
246 Width = 120
247 Height = 16
248 Align = alTop
249 Font.Color = clNone
250 Font.Size = 10
251 Font.Style = []
252 HasTabOrder = False
253 FriendlyName = 'IWLabel3'
254 Caption = #26032#30528#21830#21697
255 ExplicitLeft = 0
256 ExplicitTop = 32
257 ExplicitWidth = 58
258 end
259 object IWLabel4: TIWLabel
260 Left = 1
261 Top = 90
262 Width = 120
263 Height = 16
264 Align = alBottom
265 Font.Color = clNone
266 Font.Size = 10
267 Font.Style = []
268 HasTabOrder = False
269 FriendlyName = 'IWLabel4'
270 Caption = 'IWLabel4'
271 ExplicitLeft = 0
272 ExplicitTop = 32
273 ExplicitWidth = 58
274 end
275 object IWImage1: TIWImage
276 Left = 25
277 Top = 23
278 Width = 64
279 Height = 61
280 RenderSize = False
281 StyleRenderOptions.RenderSize = False
282 BorderOptions.Width = 0
283 TabOrder = -1
284 UseSize = False
285 FriendlyName = 'IWImage1'
286 TransparentColor = clNone
287 JpegOptions.CompressionQuality = 90
288 JpegOptions.Performance = jpBestSpeed
289 JpegOptions.ProgressiveEncoding = False
290 JpegOptions.Smoothing = True
291 end
292 end
293 object IWRegion3: TIWRegion
294 Left = 17
295 Top = 417
296 Width = 201
297 Height = 57
298 RenderInvisibleControls = True
299 BorderOptions.NumericWidth = 1
300 BorderOptions.BorderWidth = cbwNumeric
301 BorderOptions.Style = cbsSolid
302 BorderOptions.Color = clNone
303 object IWEdit1: TIWEdit
304 Left = 16
305 Top = 16
306 Width = 121
307 Height = 21
308 Font.Color = clNone
309 Font.Size = 10
310 Font.Style = []
311 FriendlyName = 'IWEdit1'
312 SubmitOnAsyncEvent = True
313 TabOrder = 1
314 end
315 object IWButton1: TIWButton
316 Left = 143
317 Top = 16
318 Width = 50
319 Height = 25
320 Caption = #26908#32034
321 Color = clBtnFace
322 Font.Color = clNone
323 Font.Size = 10
324 Font.Style = []
325 FriendlyName = 'IWButton1'
326 TabOrder = 2
327 OnClick = IWButton1Click
328 end
329 end
330 object IWRegion4: TIWRegion
331 Left = 376
332 Top = 192
333 Width = 129
334 Height = 105
335 RenderInvisibleControls = True
336 BorderOptions.NumericWidth = 1
337 BorderOptions.BorderWidth = cbwNumeric
338 BorderOptions.Style = cbsSolid
339 BorderOptions.Color = clNone
340 object IWEdit2: TIWEdit
341 Left = 24
342 Top = 21
343 Width = 81
344 Height = 21
345 Hint = 'EMAIL'
346 Font.Color = clNone
347 Font.Size = 10
348 Font.Style = []
349 FriendlyName = 'IWEdit2'
350 SubmitOnAsyncEvent = True
351 TabOrder = 3
352 end
353 object IWEdit3: TIWEdit
354 Left = 24
355 Top = 48
356 Width = 81
357 Height = 21
358 Hint = 'PASSWORD'
359 Font.Color = clNone
360 Font.Size = 10
361 Font.Style = []
362 FriendlyName = 'IWEdit3'
363 SubmitOnAsyncEvent = True
364 TabOrder = 5
365 PasswordPrompt = True
366 end
367 object IWLink2: TIWLink
368 Left = 40
369 Top = 75
370 Width = 65
371 Height = 17
372 Alignment = taLeftJustify
373 Color = clNone
374 Font.Color = clNone
375 Font.Size = 10
376 Font.Style = [fsUnderline]
377 DoSubmitValidation = False
378 FriendlyName = 'IWLink2'
379 OnClick = IWLink2Click
380 TabOrder = 6
381 RawText = False
382 Caption = #12525#12464#12452#12531
383 end
384 end
385 object IWRegion5: TIWRegion
386 Left = 375
387 Top = 332
388 Width = 129
389 Height = 60
390 RenderInvisibleControls = True
391 BorderOptions.NumericWidth = 1
392 BorderOptions.BorderWidth = cbwNumeric
393 BorderOptions.Style = cbsSolid
394 BorderOptions.Color = clNone
395 object IWLabel7: TIWLabel
396 Left = 1
397 Top = 1
398 Width = 127
399 Height = 16
400 Align = alTop
401 Font.Color = clNone
402 Font.Size = 10
403 Font.Style = []
404 HasTabOrder = False
405 FriendlyName = 'IWLabel3'
406 Caption = #12458#12531#12521#12452#12531#12398#12362#23458#27096
407 ExplicitLeft = 8
408 ExplicitTop = 24
409 ExplicitWidth = 106
410 end
411 end
412 object IWRegion6: TIWRegion
413 Left = 376
414 Top = 414
415 Width = 127
416 Height = 60
417 RenderInvisibleControls = True
418 BorderOptions.NumericWidth = 1
419 BorderOptions.BorderWidth = cbwNumeric
420 BorderOptions.Style = cbsSolid
421 BorderOptions.Color = clNone
422 object IWLabel8: TIWLabel
423 Left = 1
424 Top = 1
425 Width = 125
426 Height = 16
427 Align = alTop
428 Font.Color = clNone
429 Font.Size = 10
430 Font.Style = []
431 HasTabOrder = False
432 FriendlyName = 'IWLabel8'
433 Caption = #12471#12519#12483#12500#12531#12464#12459#12540#12488
434 ExplicitLeft = 0
435 ExplicitTop = 24
436 ExplicitWidth = 118
437 end
438 object IWList2: TIWList
439 Left = 1
440 Top = 17
441 Width = 125
442 Height = 25
443 Align = alClient
444 FriendlyName = 'IWList2'
445 Font.Color = clNone
446 Font.Size = 10
447 Font.Style = []
448 Numbered = False
449 ExplicitLeft = 8
450 ExplicitTop = 16
451 ExplicitWidth = 116
452 ExplicitHeight = 24
453 end
454 object IWLink4: TIWLink
455 Left = 1
456 Top = 42
457 Width = 125
458 Height = 17
459 Align = alBottom
460 Alignment = taLeftJustify
461 Color = clNone
462 Font.Color = clNone
463 Font.Size = 10
464 Font.Style = [fsUnderline]
465 DoSubmitValidation = False
466 FriendlyName = 'IWLink4'
467 OnClick = IWLink4Click
468 TabOrder = 8
469 RawText = False
470 Caption = #12459#12540#12488#12395#31227#21205
471 ExplicitLeft = 32
472 ExplicitTop = 24
473 ExplicitWidth = 65
474 end
475 end
476 object IWRegion7: TIWRegion
477 Left = 239
478 Top = 413
479 Width = 104
480 Height = 60
481 RenderInvisibleControls = True
482 BorderOptions.NumericWidth = 1
483 BorderOptions.BorderWidth = cbwNumeric
484 BorderOptions.Style = cbsSolid
485 BorderOptions.Color = clNone
486 object IWLabel5: TIWLabel
487 Left = 1
488 Top = 1
489 Width = 102
490 Height = 16
491 Align = alTop
492 Font.Color = clNone
493 Font.Size = 10
494 Font.Style = []
495 HasTabOrder = False
496 FriendlyName = 'IWLabel5'
497 Caption = #26368#36817#12398#12372#27880#25991
498 ExplicitLeft = -32
499 ExplicitTop = 24
500 ExplicitWidth = 58
501 end
502 object IWList3: TIWList
503 Left = 1
504 Top = 17
505 Width = 102
506 Height = 42
507 Align = alClient
508 FriendlyName = 'IWList3'
509 Font.Color = clNone
510 Font.Size = 10
511 Font.Style = []
512 Numbered = False
513 ExplicitLeft = -8
514 ExplicitTop = 16
515 ExplicitWidth = 116
516 ExplicitHeight = 24
517 end
518 end
519 inline IWFrame8: TIWFrame8
520 Left = 52
521 Top = 496
522 Width = 429
523 Height = 217
524 TabOrder = 7
525 Visible = False
526 ExplicitLeft = 52
527 ExplicitTop = 496
528 ExplicitHeight = 217
529 inherited IWFrameRegion: TIWRegion
530 Height = 217
531 TabOrder = 7
532 ExplicitHeight = 217
533 inherited IWImage1: TIWImage
534 Width = 97
535 Height = 129
536 ExplicitWidth = 97
537 ExplicitHeight = 129
538 end
539 inherited IWDBLabel2: TIWDBLabel
540 Width = 44
541 DataField = 'STOCK'
542 ExplicitWidth = 44
543 end
544 inherited IWButton1: TIWButton
545 OnClick = IWFrame8IWButton1Click
546 end
547 inherited IWLink1: TIWLink
548 OnClick = IWFrame8IWLink1Click
549 end
550 end
551 end
552 inline IWFrame1: TIWFrame1
553 Left = -76
554 Top = 0
555 Width = 653
556 Height = 131
557 TabOrder = 8
558 ExplicitLeft = -76
559 inherited IWFrameRegion: TIWRegion
560 TabOrder = 13
561 ExplicitWidth = 653
562 ExplicitHeight = 131
563 end
564 end
565 object IWTemplateProcessorHTML1: TIWTemplateProcessorHTML
566 TagType = ttIntraWeb
567 Templates.Default = 'toppage.htm'
568 Left = 256
569 Top = 224
570 end
571 end

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