From 20d249bdb632411889f17232faf158ed0c50aad3 Mon Sep 17 00:00:00 2001 From: yamat0jp Date: Sun, 14 Jul 2019 05:26:22 +0900 Subject: [PATCH] =?utf8?q?=E5=B0=91=E3=81=97=E3=81=84=E3=82=B3=E3=83=BC?= =?utf8?q?=E3=83=89=E3=82=92=E6=95=B4=E3=81=88=E3=81=A6=E3=81=B2=E3=81=A8?= =?utf8?q?=E3=81=BE=E3=81=9A=E5=AE=8C=E6=88=90?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- WebModuleUnit1.dfm | 331 +---------------------------------------------------- WebModuleUnit1.pas | 4 +- 2 files changed, 4 insertions(+), 331 deletions(-) diff --git a/WebModuleUnit1.dfm b/WebModuleUnit1.dfm index ab27013..eb592a9 100644 --- a/WebModuleUnit1.dfm +++ b/WebModuleUnit1.dfm @@ -330,9 +330,8 @@ object TWebModule1: TTWebModule1 ' ' - '' - '' '' + '' '' '' '

' @@ -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 diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas index 5d1e7f0..cc11444 100644 --- a/WebModuleUnit1.pas +++ b/WebModuleUnit1.pas @@ -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; -- 2.11.0