OSDN Git Service

少しいコードを整えてひとまず完成
authoryamat0jp <terukohietori@gmail.com>
Sat, 13 Jul 2019 20:26:22 +0000 (05:26 +0900)
committeryamat0jp <terukohietori@gmail.com>
Sat, 13 Jul 2019 20:26:22 +0000 (05:26 +0900)
WebModuleUnit1.dfm
WebModuleUnit1.pas

index ab27013..eb592a9 100644 (file)
@@ -330,9 +330,8 @@ object TWebModule1: TTWebModule1
       
         ' <script src="//ajax.googleapis.com/ajax/libs/jqueryui/1.10.4/jq' +
         'uery-ui.min.js"></script>'
-      '<script src="file?types=js&id=8">easing</script>'
-      '<script src="/file?type=js&id=6">moder</script>'
       '<script src="/file?type=js&id=3">org</script>'
+      '<script src="/file?type=js&id=4">moder</script>'
       '</head>'
       '<body>'
       '<div id="fb-root"></div>'
@@ -1747,7 +1746,7 @@ object TWebModule1: TTWebModule1
     Left = 200
     Top = 272
   end
-  object js6: TPageProducer
+  object js4: TPageProducer
     HTMLDoc.Strings = (
       '/* Modernizr 2.6.2 (Custom Build) | MIT & BSD'
       ' * Build: http://modernizr.com/download/#-shiv-cssclasses'
@@ -1812,7 +1811,7 @@ object TWebModule1: TTWebModule1
         'mentFragment:o};a.html5=r,q(b)}(this,b),e._version=d,g.className' +
         '=g.className.replace(/(^|\s)no-js(\s|$)/,"$1$2")+(f?" js "+p.joi' +
         'n(" "):""),e}(this,this.document);')
-    Left = 56
+    Left = 152
     Top = 272
   end
   object adhead: TDataSetPageProducer
@@ -1837,328 +1836,4 @@ object TWebModule1: TTWebModule1
     Left = 176
     Top = 88
   end
-  object js7: 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 = 176
-    Top = 328
-  end
-  object js8: TPageProducer
-    HTMLDoc.Strings = (
-      '/*'
-      ' * jQuery Easing v1.3 - http://gsgd.co.uk/sandbox/jquery/easing/'
-      ' *'
-      ' * Uses the built in easing capabilities added In jQuery 1.1'
-      ' * to offer multiple easing options'
-      ' *'
-      ' * TERMS OF USE - jQuery Easing'
-      ' * '
-      ' * Open source under the BSD License. '
-      ' * '
-      ' * Copyright '#65410#65385' 2008 George McGinley Smith'
-      ' * All rights reserved.'
-      ' * '
-      
-        ' * Redistribution and use in source and binary forms, with or wi' +
-        'thout modification, '
-      ' * are permitted provided that the following conditions are met:'
-      ' * '
-      
-        ' * Redistributions of source code must retain the above copyrigh' +
-        't notice, this list of '
-      ' * conditions and the following disclaimer.'
-      
-        ' * Redistributions in binary form must reproduce the above copyr' +
-        'ight notice, this list '
-      
-        ' * of conditions and the following disclaimer in the documentati' +
-        'on and/or other materials '
-      ' * provided with the distribution.'
-      ' * '
-      
-        ' * Neither the name of the author nor the names of contributors ' +
-        'may be used to endorse '
-      
-        ' * or promote products derived from this software without specif' +
-        'ic prior written permission.'
-      ' * '
-      
-        ' * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRI' +
-        'BUTORS "AS IS" AND ANY '
-      
-        ' * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,' +
-        ' THE IMPLIED WARRANTIES OF'
-      
-        ' * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISC' +
-        'LAIMED. IN NO EVENT SHALL THE'
-      
-        ' *  COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, IN' +
-        'DIRECT, INCIDENTAL, SPECIAL,'
-      
-        ' *  EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMI' +
-        'TED TO, PROCUREMENT OF SUBSTITUTE'
-      
-        ' *  GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINES' +
-        'S INTERRUPTION) HOWEVER CAUSED '
-      
-        ' * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT L' +
-        'IABILITY, OR TORT (INCLUDING'
-      
-        ' *  NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE O' +
-        'F THIS SOFTWARE, EVEN IF ADVISED '
-      ' * OF THE POSSIBILITY OF SUCH DAMAGE. '
-      ' *'
-      '*/'
-      ''
-      
-        '// t: current time, b: begInnIng value, c: change In value, d: d' +
-        'uration'
-      'jQuery.easing['#39'jswing'#39'] = jQuery.easing['#39'swing'#39'];'
-      ''
-      'jQuery.extend( jQuery.easing,'
-      '{'
-      #9'def: '#39'easeOutQuad'#39','
-      #9'swing: function (x, t, b, c, d) {'
-      #9#9'//alert(jQuery.easing.default);'
-      #9#9'return jQuery.easing[jQuery.easing.def](x, t, b, c, d);'
-      #9'},'
-      #9'easeInQuad: function (x, t, b, c, d) {'
-      #9#9'return c*(t/=d)*t + b;'
-      #9'},'
-      #9'easeOutQuad: function (x, t, b, c, d) {'
-      #9#9'return -c *(t/=d)*(t-2) + b;'
-      #9'},'
-      #9'easeInOutQuad: function (x, t, b, c, d) {'
-      #9#9'if ((t/=d/2) < 1) return c/2*t*t + b;'
-      #9#9'return -c/2 * ((--t)*(t-2) - 1) + b;'
-      #9'},'
-      #9'easeInCubic: function (x, t, b, c, d) {'
-      #9#9'return c*(t/=d)*t*t + b;'
-      #9'},'
-      #9'easeOutCubic: function (x, t, b, c, d) {'
-      #9#9'return c*((t=t/d-1)*t*t + 1) + b;'
-      #9'},'
-      #9'easeInOutCubic: function (x, t, b, c, d) {'
-      #9#9'if ((t/=d/2) < 1) return c/2*t*t*t + b;'
-      #9#9'return c/2*((t-=2)*t*t + 2) + b;'
-      #9'},'
-      #9'easeInQuart: function (x, t, b, c, d) {'
-      #9#9'return c*(t/=d)*t*t*t + b;'
-      #9'},'
-      #9'easeOutQuart: function (x, t, b, c, d) {'
-      #9#9'return -c * ((t=t/d-1)*t*t*t - 1) + b;'
-      #9'},'
-      #9'easeInOutQuart: function (x, t, b, c, d) {'
-      #9#9'if ((t/=d/2) < 1) return c/2*t*t*t*t + b;'
-      #9#9'return -c/2 * ((t-=2)*t*t*t - 2) + b;'
-      #9'},'
-      #9'easeInQuint: function (x, t, b, c, d) {'
-      #9#9'return c*(t/=d)*t*t*t*t + b;'
-      #9'},'
-      #9'easeOutQuint: function (x, t, b, c, d) {'
-      #9#9'return c*((t=t/d-1)*t*t*t*t + 1) + b;'
-      #9'},'
-      #9'easeInOutQuint: function (x, t, b, c, d) {'
-      #9#9'if ((t/=d/2) < 1) return c/2*t*t*t*t*t + b;'
-      #9#9'return c/2*((t-=2)*t*t*t*t + 2) + b;'
-      #9'},'
-      #9'easeInSine: function (x, t, b, c, d) {'
-      #9#9'return -c * Math.cos(t/d * (Math.PI/2)) + c + b;'
-      #9'},'
-      #9'easeOutSine: function (x, t, b, c, d) {'
-      #9#9'return c * Math.sin(t/d * (Math.PI/2)) + b;'
-      #9'},'
-      #9'easeInOutSine: function (x, t, b, c, d) {'
-      #9#9'return -c/2 * (Math.cos(Math.PI*t/d) - 1) + b;'
-      #9'},'
-      #9'easeInExpo: function (x, t, b, c, d) {'
-      #9#9'return (t==0) ? b : c * Math.pow(2, 10 * (t/d - 1)) + b;'
-      #9'},'
-      #9'easeOutExpo: function (x, t, b, c, d) {'
-      #9#9'return (t==d) ? b+c : c * (-Math.pow(2, -10 * t/d) + 1) + b;'
-      #9'},'
-      #9'easeInOutExpo: function (x, t, b, c, d) {'
-      #9#9'if (t==0) return b;'
-      #9#9'if (t==d) return b+c;'
-      #9#9'if ((t/=d/2) < 1) return c/2 * Math.pow(2, 10 * (t - 1)) + b;'
-      #9#9'return c/2 * (-Math.pow(2, -10 * --t) + 2) + b;'
-      #9'},'
-      #9'easeInCirc: function (x, t, b, c, d) {'
-      #9#9'return -c * (Math.sqrt(1 - (t/=d)*t) - 1) + b;'
-      #9'},'
-      #9'easeOutCirc: function (x, t, b, c, d) {'
-      #9#9'return c * Math.sqrt(1 - (t=t/d-1)*t) + b;'
-      #9'},'
-      #9'easeInOutCirc: function (x, t, b, c, d) {'
-      #9#9'if ((t/=d/2) < 1) return -c/2 * (Math.sqrt(1 - t*t) - 1) + b;'
-      #9#9'return c/2 * (Math.sqrt(1 - (t-=2)*t) + 1) + b;'
-      #9'},'
-      #9'easeInElastic: function (x, t, b, c, d) {'
-      #9#9'var s=1.70158;var p=0;var a=c;'
-      
-        #9#9'if (t==0) return b;  if ((t/=d)==1) return b+c;  if (!p) p=d*.' +
-        '3;'
-      #9#9'if (a < Math.abs(c)) { a=c; var s=p/4; }'
-      #9#9'else var s = p/(2*Math.PI) * Math.asin (c/a);'
-      
-        #9#9'return -(a*Math.pow(2,10*(t-=1)) * Math.sin( (t*d-s)*(2*Math.P' +
-        'I)/p )) + b;'
-      #9'},'
-      #9'easeOutElastic: function (x, t, b, c, d) {'
-      #9#9'var s=1.70158;var p=0;var a=c;'
-      
-        #9#9'if (t==0) return b;  if ((t/=d)==1) return b+c;  if (!p) p=d*.' +
-        '3;'
-      #9#9'if (a < Math.abs(c)) { a=c; var s=p/4; }'
-      #9#9'else var s = p/(2*Math.PI) * Math.asin (c/a);'
-      
-        #9#9'return a*Math.pow(2,-10*t) * Math.sin( (t*d-s)*(2*Math.PI)/p )' +
-        ' + c + b;'
-      #9'},'
-      #9'easeInOutElastic: function (x, t, b, c, d) {'
-      #9#9'var s=1.70158;var p=0;var a=c;'
-      
-        #9#9'if (t==0) return b;  if ((t/=d/2)==2) return b+c;  if (!p) p=d' +
-        '*(.3*1.5);'
-      #9#9'if (a < Math.abs(c)) { a=c; var s=p/4; }'
-      #9#9'else var s = p/(2*Math.PI) * Math.asin (c/a);'
-      
-        #9#9'if (t < 1) return -.5*(a*Math.pow(2,10*(t-=1)) * Math.sin( (t*' +
-        'd-s)*(2*Math.PI)/p )) + b;'
-      
-        #9#9'return a*Math.pow(2,-10*(t-=1)) * Math.sin( (t*d-s)*(2*Math.PI' +
-        ')/p )*.5 + c + b;'
-      #9'},'
-      #9'easeInBack: function (x, t, b, c, d, s) {'
-      #9#9'if (s == undefined) s = 1.70158;'
-      #9#9'return c*(t/=d)*t*((s+1)*t - s) + b;'
-      #9'},'
-      #9'easeOutBack: function (x, t, b, c, d, s) {'
-      #9#9'if (s == undefined) s = 1.70158;'
-      #9#9'return c*((t=t/d-1)*t*((s+1)*t + s) + 1) + b;'
-      #9'},'
-      #9'easeInOutBack: function (x, t, b, c, d, s) {'
-      #9#9'if (s == undefined) s = 1.70158; '
-      
-        #9#9'if ((t/=d/2) < 1) return c/2*(t*t*(((s*=(1.525))+1)*t - s)) + ' +
-        'b;'
-      #9#9'return c/2*((t-=2)*t*(((s*=(1.525))+1)*t + s) + 2) + b;'
-      #9'},'
-      #9'easeInBounce: function (x, t, b, c, d) {'
-      #9#9'return c - jQuery.easing.easeOutBounce (x, d-t, 0, c, d) + b;'
-      #9'},'
-      #9'easeOutBounce: function (x, t, b, c, d) {'
-      #9#9'if ((t/=d) < (1/2.75)) {'
-      #9#9#9'return c*(7.5625*t*t) + b;'
-      #9#9'} else if (t < (2/2.75)) {'
-      #9#9#9'return c*(7.5625*(t-=(1.5/2.75))*t + .75) + b;'
-      #9#9'} else if (t < (2.5/2.75)) {'
-      #9#9#9'return c*(7.5625*(t-=(2.25/2.75))*t + .9375) + b;'
-      #9#9'} else {'
-      #9#9#9'return c*(7.5625*(t-=(2.625/2.75))*t + .984375) + b;'
-      #9#9'}'
-      #9'},'
-      #9'easeInOutBounce: function (x, t, b, c, d) {'
-      
-        #9#9'if (t < d/2) return jQuery.easing.easeInBounce (x, t*2, 0, c, ' +
-        'd) * .5 + b;'
-      
-        #9#9'return jQuery.easing.easeOutBounce (x, t*2-d, 0, c, d) * .5 + ' +
-        'c*.5 + b;'
-      #9'}'
-      '});'
-      ''
-      '/*'
-      ' *'
-      ' * TERMS OF USE - EASING EQUATIONS'
-      ' * '
-      ' * Open source under the BSD License. '
-      ' * '
-      ' * Copyright '#65410#65385' 2001 Robert Penner'
-      ' * All rights reserved.'
-      ' * '
-      
-        ' * Redistribution and use in source and binary forms, with or wi' +
-        'thout modification, '
-      ' * are permitted provided that the following conditions are met:'
-      ' * '
-      
-        ' * Redistributions of source code must retain the above copyrigh' +
-        't notice, this list of '
-      ' * conditions and the following disclaimer.'
-      
-        ' * Redistributions in binary form must reproduce the above copyr' +
-        'ight notice, this list '
-      
-        ' * of conditions and the following disclaimer in the documentati' +
-        'on and/or other materials '
-      ' * provided with the distribution.'
-      ' * '
-      
-        ' * Neither the name of the author nor the names of contributors ' +
-        'may be used to endorse '
-      
-        ' * or promote products derived from this software without specif' +
-        'ic prior written permission.'
-      ' * '
-      
-        ' * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRI' +
-        'BUTORS "AS IS" AND ANY '
-      
-        ' * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,' +
-        ' THE IMPLIED WARRANTIES OF'
-      
-        ' * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISC' +
-        'LAIMED. IN NO EVENT SHALL THE'
-      
-        ' *  COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, IN' +
-        'DIRECT, INCIDENTAL, SPECIAL,'
-      
-        ' *  EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMI' +
-        'TED TO, PROCUREMENT OF SUBSTITUTE'
-      
-        ' *  GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINES' +
-        'S INTERRUPTION) HOWEVER CAUSED '
-      
-        ' * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT L' +
-        'IABILITY, OR TORT (INCLUDING'
-      
-        ' *  NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE O' +
-        'F THIS SOFTWARE, EVEN IF ADVISED '
-      ' * OF THE POSSIBILITY OF SUCH DAMAGE. '
-      ' *'
-      ' */')
-    Left = 128
-    Top = 328
-  end
 end
index 5d1e7f0..cc11444 100644 (file)
@@ -28,10 +28,8 @@ type
     js1: TPageProducer;
     js2: TPageProducer;
     js3: TPageProducer;
-    js6: TPageProducer;
+    js4: TPageProducer;
     adhead: TDataSetPageProducer;
-    js7: TPageProducer;
-    js8: TPageProducer;
     procedure indexHTMLTag(Sender: TObject; Tag: TTag; const TagString: string;
       TagParams: TStrings; var ReplaceText: string);
     procedure TWebModule1indexpageAction(Sender: TObject; Request: TWebRequest;