PathInfo = '/file'
OnAction = TWebModule1fileAction
end>
- Height = 353
+ Height = 385
Width = 436
object articles: TDataSetPageProducer
HTMLDoc.Strings = (
'<html lang="ja">'
'<head>'
#9'<title>Top Page</title>'
- '<style type="text/css">'
- '<!--'
- '<#css id=1 ref=top>'
- '<#css id=3 ref=normal>'
- '-->'
- '</style>'
- '<script src=/file?tyle=js&id=3></script>'
- '<script src=/file?tyle=js&id=4></script>'
- '<script src=/file?tyle=js&id=5></script>'
- '<script src=/file?tyle=js&id=6></script>'
- '<script src=/file?tyle=js&id=7></script>'
+
+ '<link rel=stylesheet type=text/css href=/file?type=css&id=1 ref=' +
+ 'top>'
+
+ '<link rel=stylesheet type=text/css href=/file?type=css&id=3 ref=' +
+ 'normal>'
+ ''
+ '<script src=/file?type=js&id=3></script>'
'</head>'
'<body>'
'<div id="fb-root"></div>'
'a.aspectRatio,p=!1)),p||(a.position.left=a.prevPosition.left,a.p' +
'osition.top=a.prevPosition.top,a.size.width=a.prevSize.width,a.s' +
'ize.height=a.prevSize.')
- Left = 8
- Top = 272
+ Left = 304
+ Top = 328
+ end
+ object js8: TPageProducer
+ Left = 256
+ Top = 328
end
end
js6: 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;