From 527dd9a6834b4e8f19d6d93c184920184f35dcfc Mon Sep 17 00:00:00 2001 From: yamat0jp Date: Sat, 6 Jul 2019 21:02:32 +0900 Subject: [PATCH] =?utf8?q?>>\d+=20=E3=81=AE=E3=83=AA=E3=83=B3=E3=82=AF?= =?utf8?q?=E4=BD=9C=E6=88=90=E3=81=A7=E5=A4=89=E6=95=B0=E3=81=AE=E4=BD=BF?= =?utf8?q?=E3=81=84=E3=81=BE=E3=82=8F=E3=81=97=E3=81=AB=E3=82=88=E3=82=8B?= =?utf8?q?=E3=82=A8=E3=83=A9=E3=83=BC=E3=82=92=E4=BF=AE=E6=AD=A3?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- WebModuleUnit1.dfm | 111 ++++++++++++++++++++++++++++++++++++++++++++++++++++- WebModuleUnit1.pas | 18 +++++---- 2 files changed, 120 insertions(+), 9 deletions(-) diff --git a/WebModuleUnit1.dfm b/WebModuleUnit1.dfm index b346513..169c199 100644 --- a/WebModuleUnit1.dfm +++ b/WebModuleUnit1.dfm @@ -297,12 +297,16 @@ object TWebModule1: TTWebModule1 '' '<#css id=1>' '<#css id=3>' + '' '' '' '

' @@ -1636,4 +1640,109 @@ object TWebModule1: TTWebModule1 Left = 256 Top = 272 end + object js3: TPageProducer + HTMLDoc.Strings = ( + '$(function(){' + #9'$('#39'.slideshow'#39').each(function(){' + #9#9'var $container = $(this),' + #9#9#9'$slideGroup = $container.find('#39'.slideshow-slides'#39'),' + #9#9#9'$slides = $slideGroup.find('#39'.slide'#39'),' + #9#9#9'$nav = $container.find('#39'.slideshow-nav'#39'),' + #9#9#9'$indicator = $container.find('#39'.slideshow-indicator'#39'),' + #9#9#9'$images = $slides.find('#39'img'#39'),' + #9#9#9 + #9#9#9'slideCount = $slides.length,' + #9#9#9'indicatorHTML = '#39#39',' + #9#9#9'currentIndex = 0,' + #9#9#9'duration = 500,' + #9#9#9'easing = '#39'easeInOutExpo'#39',' + #9#9#9'interval = 7500,' + #9#9#9'timer;' + #9#9#9#9 + #9#9 + #9#9'$slides.each(function(i){' + #9#9#9'$(this).css({left:100*i+'#39'%'#39'});' + #9#9#9'indicatorHTML += '#39''#39'+(i+1)+'#39''#39';' + #9#9'});' + #9#9 + #9#9'$indicator.html(indicatorHTML);' + #9#9 + #9#9'function goToSlide(index){' + #9#9#9'$slideGroup.animate({left:-100*index+'#39'%'#39'},duration,easing);' + #9#9#9'currentIndex = index;' + #9#9#9'updateNav();' + #9#9'}' + #9#9 + #9#9'function updateNav(){' + #9#9#9'var $navPrev = $nav.find('#39'.prev'#39'),' + #9#9#9#9'$navNext = $nav.find('#39'.next'#39');' + #9#9#9'if (currentIndex === 0){' + #9#9#9#9'$navPrev.addClass('#39'disabled'#39');' + #9#9#9'} else {' + #9#9#9#9'$navPrev.removeClass('#39'disabled'#39');' + #9#9#9'}' + #9#9#9'if (currentIndex === slideCount-1){' + #9#9#9#9'$navNext.addClass('#39'disabled'#39');' + #9#9#9'} else {' + #9#9#9#9'$navNext.removeClass('#39'disabled'#39');' + #9#9#9'}' + #9#9#9'$indicator.find('#39'a'#39').removeClass('#39'active'#39')' + #9#9#9#9'.eq(currentIndex).addClass('#39'active'#39');' + #9#9'}' + '' + #9#9'function startTimer(){' + #9#9' timer = setInterval(function(){' + #9' var nextIndex = (currentIndex + 1) % slideCount;' + #9' goToSlide(nextIndex);' + ' }, interval)' + #9#9'}' + '' + #9#9'function stopTimer(){' + #9#9' clearInterval(timer);' + #9#9'}' + #9#9#9 + #9#9'$nav.on('#39'click'#39','#39'a'#39',function(event){' + #9#9#9'event.preventDefault();' + #9#9#9'if ($(this).hasClass('#39'prev'#39')){' + #9#9#9#9'goToSlide(currentIndex-1);' + #9#9#9'} else {' + #9#9#9#9'goToSlide(currentIndex+1);' + #9#9#9'}' + #9#9'});' + #9#9 + #9#9'$indicator.on('#39'click'#39','#39'a'#39',function(event){' + #9#9#9'event.preventDefault();' + #9#9#9'if (!$(this).hasClass('#39'active'#39')){' + #9#9#9#9'goToSlide($(this).index());' + #9#9#9'}' + #9#9'});' + '' + #9#9'$container.on({' + #9#9' mouseenter: stopTimer,' + #9#9' mouseleave: startTimer' + #9#9'});' + '' + #9#9#9 + #9#9'goToSlide(currentIndex);' + '' + #9#9'startTimer();' + #9#9 + #9'});' + #9 + '});') + Left = 200 + Top = 272 + end + object js4: TPageProducer + Left = 152 + Top = 272 + end + object js5: TPageProducer + Left = 104 + Top = 272 + end + object js6: TPageProducer + Left = 56 + Top = 272 + end end diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas index edb7913..20d08b7 100644 --- a/WebModuleUnit1.pas +++ b/WebModuleUnit1.pas @@ -26,6 +26,10 @@ type login: TDataSetPageProducer; js1: TPageProducer; js2: TPageProducer; + js3: TPageProducer; + js4: TPageProducer; + js5: TPageProducer; + js6: TPageProducer; procedure indexHTMLTag(Sender: TObject; Tag: TTag; const TagString: string; TagParams: TStrings; var ReplaceText: string); procedure TWebModule1indexpageAction(Sender: TObject; Request: TWebRequest; @@ -230,7 +234,7 @@ begin else ReplaceText := header.Content; end - else if (TagString = 'css')or(TagString = 'js') then + else if (TagString = 'css') or (TagString = 'js') then ReplaceText := detail; end; @@ -498,15 +502,13 @@ begin i := footer.HTMLDoc.Add ('

>ßé'); if admin.Tag = 0 then - begin - admin.footer.Insert(3, footer.Content); - admin.Tag := 1; - end + admin.footer.Insert(3, footer.Content) else begin admin.footer.Delete(3); admin.footer.Insert(3, footer.Content); end; + admin.Tag := DataModule1.FDTable2.RecNo; footer.HTMLDoc.Delete(i); Response.ContentType := 'text/html;charset=utf-8'; Response.Content := admin.Content; @@ -676,7 +678,7 @@ var reg: TRegEx; coll: TMatchCollection; j: Integer; - s: string; + s, t: string; begin Text := TNetEncoding.HTML.Encode(Text); s := TNetEncoding.HTML.Encode('>>'); @@ -685,10 +687,10 @@ var for j := coll.count - 1 downto 0 do begin Delete(Text, coll[i].index, coll[i].Length); - s := Copy(coll[j].Value, Length(s) + 1, coll[j].Length); + t := Copy(coll[j].Value, Length(s) + 1, coll[j].Length); result := Format ('>>%s', - [s, s, s]); + [t, t, t]); Insert(result, Text, coll[j].index); end; result := Text; -- 2.11.0