OSDN Git Service

実は前回のコミット前にいろいろとやっていました
[newbbs/newbbs.git] / WebModuleUnit1.dfm
index d1d98f5..cd75d84 100644 (file)
@@ -1,4 +1,4 @@
-object TWebModule1: TTWebModule1
+object WebModule1: TWebModule1
   OldCreateOrder = False
   OnCreate = WebModuleCreate
   Actions = <
@@ -6,97 +6,101 @@ object TWebModule1: TTWebModule1
       MethodType = mtGet
       Name = 'top'
       PathInfo = '/'
-      OnAction = TWebModule1topAction
+      OnAction = WebModule1topAction
     end
     item
       MethodType = mtGet
       Name = 'indexpage'
       PathInfo = '/index'
-      OnAction = TWebModule1indexpageAction
+      OnAction = WebModule1indexpageAction
     end
     item
       MethodType = mtPost
       Name = 'regist'
       PathInfo = '/regist'
-      OnAction = TWebModule1registAction
+      OnAction = WebModule1registAction
     end
     item
       MethodType = mtGet
       Name = 'admin'
       PathInfo = '/admin'
-      OnAction = TWebModule1adminAction
+      OnAction = WebModule1adminAction
     end
     item
       Name = 'search'
       PathInfo = '/search'
-      OnAction = TWebModule1searchAction
+      OnAction = WebModule1searchAction
     end
     item
       Name = 'help'
       PathInfo = '/help'
-      OnAction = TWebModule1helpAction
+      OnAction = WebModule1helpAction
     end
     item
       Name = 'master'
       PathInfo = '/master'
-      OnAction = TWebModule1masterAction
+      OnAction = WebModule1masterAction
     end
     item
       Name = 'alert'
       PathInfo = '/alert'
-      OnAction = TWebModule1alertAction
+      OnAction = WebModule1alertAction
     end
     item
       MethodType = mtPost
       Name = 'usrdel'
       PathInfo = '/userdel'
-      OnAction = TWebModule1deleteAction
     end
     item
       Name = 'jump'
       PathInfo = '/jump'
-      OnAction = TWebModule1jumpAction
+      OnAction = WebModule1jumpAction
     end
     item
       MethodType = mtGet
       Name = 'link'
       PathInfo = '/link'
-      OnAction = TWebModule1linkAction
+      OnAction = WebModule1linkAction
     end
     item
       MethodType = mtPost
       Name = 'admdel'
       PathInfo = '/admindel'
-      OnAction = TWebModule1admdelAction
+      OnAction = WebModule1admdelAction
     end
     item
       Name = 'login'
       PathInfo = '/login'
-      OnAction = TWebModule1loginAction
+      OnAction = WebModule1loginAction
     end
     item
       MethodType = mtPost
       Name = 'adminset'
       PathInfo = '/adminset'
-      OnAction = TWebModule1adminsetAction
+      OnAction = WebModule1adminsetAction
     end
     item
       MethodType = mtGet
       Name = 'logout'
       PathInfo = '/logout'
-      OnAction = TWebModule1logoutAction
+      OnAction = WebModule1logoutAction
     end
     item
       MethodType = mtGet
       Name = 'img'
       PathInfo = '/src'
-      OnAction = TWebModule1imgAction
+      OnAction = WebModule1imgAction
     end
     item
       MethodType = mtGet
       Name = 'file'
       PathInfo = '/file'
-      OnAction = TWebModule1fileAction
+      OnAction = WebModule1fileAction
+    end
+    item
+      Name = 'title'
+      PathInfo = '/title'
+      OnAction = WebModule1titleAction
     end>
   Height = 385
   Width = 436
@@ -151,7 +155,7 @@ object TWebModule1: TTWebModule1
       '    </title>'
       '  </head>'
       '  <body>'
-      ''
+      '<#pr>'
       '    <a href=/ style=text-decoration:none><#title2></a>'
       ''
       '    <#header>'
@@ -204,8 +208,6 @@ object TWebModule1: TTWebModule1
         FieldName = 'DATE'
       end>
     Footer.Strings = (
-      '<input type=submit value='#21066#38500#12377#12427'><input type=reset value='#12522#12475#12483#12488'>'
-      '</form>'
       '')
     MaxRows = 30
     DataSet = DataModule1.FDTable2
@@ -229,6 +231,7 @@ object TWebModule1: TTWebModule1
       '  </head>'
       ''
       '  <body>'
+      '<#pr>'
       '    <form action="/search<#query>" method="post">'
       '    <p align="center"><strong>'#25237#31295#26908#32034
       '</strong>'
@@ -256,7 +259,7 @@ object TWebModule1: TTWebModule1
       '      <p>'
       '    <input type="submit" value="'#26908#32034'"></p>'
       '    </form>'
-      '      <p><a href="/">'#25522#31034#26495#12408#25147#12427
+      '      <p><a href="/index?db=<#dbnum>">'#25522#31034#26495#12408#25147#12427
       '</a></p>'
       '    <#items>'
       '  </body>'
@@ -286,14 +289,9 @@ object TWebModule1: TTWebModule1
       ''
       '<html><head><meta charset=utf8><title>'#20351#12356#26041'</title></head>'
       '<body>'
+      '<#pr>'
       '<P>'#35370#21839#32773#12398#30342#12373#12435'</P>'
-      '<form action=/help method=post>'
-      #9'<p>'#12362#21839#12356#21512#12431#12379'<'#21066#38500#20381#38972#12394#12393#20309#12391#12418'></p>'
-      #9'<textarea name=help style=height:100px;width:250px>'
-      #25237#31295#32773#21517#12394#12393#65306
-      #30456#35527#20869#23481#65306
-      #12381#12398#20182#65306'</textarea><br>'
-      #9'<input type=submit value="'#36865#20449'"></form>'
+      '<#area>'
       #9'<p><br>'
       '<p>'#38283#30330#32773#12398#30342#12373#12435
       '<p>pybbs'#12398'API'
@@ -306,6 +304,7 @@ object TWebModule1: TTWebModule1
       '<p style=text-align:center><a href=/>'#25147#12427'</a>'
       '</body>'
       '</html>')
+    OnHTMLTag = helpHTMLTag
     Left = 304
     Top = 32
   end
@@ -334,6 +333,7 @@ object TWebModule1: TTWebModule1
       '<script src="/file?type=js&id=4">moder</script>'
       '</head>'
       '<body>'
+      '<#pr>'
       '<div id="fb-root"></div>'
       ''
       '<script>(function(d, s, id) {'
@@ -361,6 +361,7 @@ object TWebModule1: TTWebModule1
       ''
       #9'<div class="slideshow-indicator"></div>'
       '</div>'
+      '<p>'#12288'<em style="background-color: aqua;">'#12288#12288#12288#12288'</em>'#12539#12539#12539'new!'
       
         '        <p>[ <a href=/index?db=<#dbnum>><#info></a> ] ='#12362#30693#12425#12379' <p>[' +
         ' <a href="/master">master'
@@ -374,6 +375,7 @@ object TWebModule1: TTWebModule1
         'counter.php?id=pybbs" border="0"></a>'
       '<footer>'
       '<p><br>'
+      '<p><a href=/title>'#12479#12452#12488#12523#34920#31034'</a>'
       '<p><a href="/help">'#20351#12356#26041#26696#20869
       '</a>'
       '<p><a href=/search>'#26908#32034'</a>'
@@ -410,12 +412,14 @@ object TWebModule1: TTWebModule1
       '<meta charset=utf-8>'
       '</head>'
       '<body>'
+      '<#pr>'
       '<form action=/master method=post>'
       '<p><#request>'
       '<input type=radio name=delete value=some checked>'#21066#38500#28168#12415#12434#28040#21435#12288
       '<input type=radio name=delete value=all>'#12377#12409#12390#28040#21435
       '<input type=submit value="'#36865#20449'">'
       '</form>'
+      '<p style=text-align:center><a href=/logout>'#12525#12464#12450#12454#12488'</a>'
       '<p style=text-align:center><a href=/>'#25147#12427'</a>'
       '</body></html>')
     OnHTMLTag = masterHTMLTag
@@ -425,8 +429,7 @@ object TWebModule1: TTWebModule1
   object alert: TDataSetPageProducer
     HTMLDoc.Strings = (
       '<tr><td>'
-      '<p><a href=/jump?db=<#dbname>&num=<#posnum>>'
-      '    [ <#dbname>-<#posnum> ]</a><#date>'
+      '<p><#plus><#date>'
       '<p><#article></td><td><#request>'
       '</td><tr>')
     DataSet = DataModule1.FDTable4
@@ -448,6 +451,7 @@ object TWebModule1: TTWebModule1
       '<html>'
       '<head><meta charset=utf-8></head>'
       '<body>'
+      '<#pr>'
       '<form action=/alert<#query>  method=post>'
       '  <#content>'
       '<textarea name=request></textarea>'
@@ -1365,6 +1369,7 @@ object TWebModule1: TTWebModule1
       '    <title>'#12525#12464#12452#12531'</title>'
       '  </head>'
       '  <body>'
+      '<#pr>'
       '    <p style=text-align:center>'#31649#29702#32773#29992#12525#12464#12452#12531#30011#38754
       '</p>'
       '    <br>'
@@ -1379,6 +1384,7 @@ object TWebModule1: TTWebModule1
       '  </body>'
       '</html>')
     DataSet = DataModule1.FDTable1
+    OnHTMLTag = loginHTMLTag
     Left = 304
     Top = 144
   end
@@ -1653,6 +1659,7 @@ object TWebModule1: TTWebModule1
   end
   object js3: TPageProducer
     HTMLDoc.Strings = (
+      ''
       '$(function(){'
       #9'$('#39'.slideshow'#39').each(function(){'
       #9#9'var $container = $(this),'
@@ -1814,11 +1821,12 @@ object TWebModule1: TTWebModule1
   end
   object adhead: TPageProducer
     HTMLDoc.Strings = (
+      '<#pr>'
       '<form method=post action=/adminset style=text-align:center>'
       '    <label><p>'#12497#12473#12527#12540#12489#12398#22793#26356
       
         '      <input type="password" style="HEIGHT: 23px; WIDTH: 85px" n' +
-        'ame="pass" value="<#password>">'
+        'ame="pass">'
       '      </p>'
       '    </label>'
       '    <p>'
@@ -1826,11 +1834,91 @@ object TWebModule1: TTWebModule1
         '    <input type="checkbox" value="on" name="mente" <#mente>>'#12513#12531#12486#12490 +
         #12531#12473#34920#31034'</p>'
       '    <p><input type="submit" value="'#22793#26356'"></p>'
-      '    <p><a href="/logout">'#12525#12464#12450#12454#12488'</a></p>'
+      '    <p><a href="/logout?db=<#database>">'#12525#12464#12450#12454#12488'</a></p>'
       '</form>'
       '<form action=/admindel method=post style=text-align:center>')
     OnHTMLTag = adheadHTMLTag
     Left = 176
     Top = 88
   end
+  object js5: TPageProducer
+    HTMLDoc.Strings = (
+      ''
+      '$(function(){'
+      #9'$('#39'div'#39').on('#39'click'#39',function(){'
+      #9#9'var $title = $(this),'
+      #9#9#9'span1 = 1500,'
+      #9#9#9'span2 = 200;'
+      #9#9'$title.css('#39'font-size'#39','#39'2em'#39');'
+      #9#9'$({deg:5}).animate({deg:365},{'
+      #9#9#9'duration:500,'
+      #9#9#9'progress:function(){'
+      #9#9#9#9'$title.css({'
+      #9#9#9#9#9#39'-webkit-transform'#39':'#39'rotate('#39'+this.deg+'#39'deg)'#39','
+      #9#9#9#9#9#39'-ms-transform'#39':'#39'rotate('#39'+this.deg+'#39'deg)'#39','
+      #9#9#9#9#9#39'ransform'#39':'#39'rotate('#39'+this.deg+'#39'deg)'#39
+      #9#9#9#9'});'
+      #9#9#9'}'
+      #9#9'});'
+      #9#9'$({deg:5}).delay(span1).animate({deg:0},{'
+      #9#9#9'duration:span2,'
+      #9#9#9'progress:function(){'
+      #9#9#9#9'$title.css({'#9
+      #9#9#9#9#9#39'-webkit-transform'#39':'#39'rotate('#39'+this.deg+'#39'deg)'#39','
+      #9#9#9#9#9#39'-ms-transform'#39':'#39'rotate('#39'+this.deg+'#39'deg)'#39','
+      #9#9#9#9#9#39'transform'#39':'#39'rotate('#39'+this.deg+'#39'deg)'#39
+      #9#9#9#9'});'
+      #9#9#9'}'
+      #9#9'});'
+      #9#9'$title.delay(span1+span2).animate({'#39'font-size'#39':'#39'1em'#39'},1);'
+      #9'});'
+      '});'
+      '')
+    Left = 104
+    Top = 272
+  end
+  object title: TPageProducer
+    HTMLDoc.Strings = (
+      '<!doctype html>'
+      '<html>'
+      '<head>'
+      '<meta charset=utf-8>'
+      '<title>'#12479#12452#12488#12523#34920#31034'</title>'
+      
+        '<script type="text/javascript" src="//ajax.googleapis.com/ajax/l' +
+        'ibs/jquery/2.1.4/jquery.min.js"></script>'
+      
+        '<link rel="stylesheet" href="//ajax.googleapis.com/ajax/libs/jqu' +
+        'eryui/1.10.4/themes/smoothness/jquery-ui.css" />'
+      
+        '<script src="//ajax.googleapis.com/ajax/libs/jqueryui/1.10.4/jqu' +
+        'ery-ui.min.js"></script>'
+      '<script>'
+      '<!--'
+      '<#js id=5>'
+      '-->'
+      '</script>'
+      '</head>'
+      '<body>'
+      '<#pr>'
+      '<#main>'
+      '<p style=text-align:center><a href=/>'#25147#12427'</a>'
+      '</body>'
+      '</html>')
+    OnHTMLTag = titleHTMLTag
+    Left = 48
+    Top = 256
+  end
+  object ti: TDataSetPageProducer
+    HTMLDoc.Strings = (
+      
+        '<p style=font-weight:bold><a href=/index?db=<#dbnum>><#database>' +
+        '</a>'#8595'</p>'
+      '<div>'#12479#12452#12488#12523': <#title> ; '#35352#20107#25968': <#count> ; '#26356#26032#26178#21051': <#date></div><p>'
+      '')
+    DataSet = DataModule1.FDQuery1
+    OnHTMLTag = tiHTMLTag
+    Left = 48
+    Top = 320
+  end
 end