OSDN Git Service

(root) / newbbs / newbbs.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 8ee73c9)
あとはレイアウトぐらいかなと思う
authoryamat0jp <terukohietori@gmail.com>
Fri, 10 Jan 2020 11:08:37 +0000 (20:08 +0900)
committeryamat0jp <terukohietori@gmail.com>
Fri, 10 Jan 2020 11:08:37 +0000 (20:08 +0900)
Unit1.dfm patch | blob | history
WebModuleUnit1.dfm patch | blob | history
WebModuleUnit1.pas patch | blob | history

diff --git a/Unit1.dfm b/Unit1.dfm
index 90557bc..3cfb06d 100644 (file)
--- a/Unit1.dfm
+++ b/Unit1.dfm
@@ -130,6 +130,7 @@ object DataModule1: TDataModule1
     Top = 152
   end
   object FDTable4: TFDTable
+    IndexFieldNames = 'ID'
     Connection = FDConnection1
     UpdateOptions.UpdateTableName = 'req'
     TableName = 'req'
diff --git a/WebModuleUnit1.dfm b/WebModuleUnit1.dfm
index 09ae14c..ee01214 100644 (file)
--- a/WebModuleUnit1.dfm
+++ b/WebModuleUnit1.dfm
@@ -291,13 +291,7 @@ object WebModule1: TWebModule1
       '<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'
diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 15ccd2d..28c4f58 100644 (file)
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -159,9 +159,9 @@ var
   s: TStringList;
   i: Integer;
 begin
-  if (TagString = 'plus')and(alert.Tag = 0) then
+  if (TagString = 'plus') and (alert.Tag = 0) then
     ReplaceText :=
-        '<a href=/jump?db=<#dbname>&num=<#posnum>>[ <#dbname>-<#posnum> ]</a>'
+      '<a href=/jump?db=<#dbname>&num=<#posnum>>[ <#dbname>-<#posnum> ]</a>'
   else if TagString = 'article' then
   begin
     with DataModule1 do
@@ -272,7 +272,24 @@ procedure TWebModule1.helpHTMLTag(Sender: TObject; Tag: TTag;
   const TagString: string; TagParams: TStrings; var ReplaceText: string);
 begin
   if TagString = 'pr' then
-    ReplaceText := promotion;
+    ReplaceText := promotion
+  else if TagString = 'area' then
+    if help.Tag = 0 then
+    begin
+      ss := TStringList.Create;
+      try
+        ss.Add('<form action=/help method=post><p>\82¨\96â\82¢\8d\87\82í\82¹<\8dí\8f\9c\88Ë\97\8a\82È\82Ç\89½\82Å\82à></p>');
+        ss.Add('<textarea name=help style=height:100px;width:250px>\93\8a\8de\8eÒ\96¼\82È\82Ç\81F');
+        ss.Add('\91\8a\92k\93à\97e\81F');
+        ss.Add('\82»\82Ì\91¼\81F</textarea><br>');
+        ss.Add('<input type=submit value="\91\97\90M"></form>');
+        ReplaceText := ss.Text;
+      finally
+        ss.Free;
+      end;
+    end
+    else
+      ReplaceText := '<p style=color:yellow;background-color:aqua>\82²\95ñ\8d\90\82 \82è\82ª\82Æ\82¤\82²\82´\82¢\82Ü\82·.';
 end;
 
 procedure TWebModule1.indexHTMLTag(Sender: TObject; Tag: TTag;
@@ -374,9 +391,9 @@ begin
       while Eof = false do
       begin
         if FieldByName('posnum').AsInteger = -1 then
-          alert.Tag:=1
+          alert.Tag := 1
         else
-          alert.Tag:=0;
+          alert.Tag := 0;
         ReplaceText := ReplaceText + alert.ContentFromString(alert.Content);
         Next;
       end;
@@ -697,7 +714,7 @@ var
   s: string;
 begin
   num1 := DataModule1.FDTable1.FieldByName('dbnum').AsInteger;
-  num2 := StrToIntDef(Request.QueryFields.Values['num'],-1);
+  num2 := StrToIntDef(Request.QueryFields.Values['num'], -1);
   if num2 = -1 then
     num1 := -1;
   if Request.MethodType = mtGet then
@@ -712,13 +729,14 @@ begin
     begin
       Last;
       i := FieldByName('id').AsInteger + 1;
-      s:=Request.ContentFields.Values['request'];
+      s := Request.ContentFields.Values['request'];
       if s = '' then
-        s:='(No Comment)';
+        s := '(No Comment)';
       AppendRecord([i, num1, num2, Now, s]);
     end;
     if num1 > -1 then
-      Response.SendRedirect(Format('/index?db=%d&num=%d#%d', [num1, num2, num2]))
+      Response.SendRedirect(Format('/index?db=%d&num=%d#%d',
+        [num1, num2, num2]))
     else
       Response.SendRedirect('/top');
   end;
@@ -773,15 +791,14 @@ begin
   Response.ContentType := 'text/html;charset=utf-8';
   if Request.MethodType = mtPost then
   begin
-  {
-    i := DataModule1.FDTable1.FieldByName('dbnum').AsInteger;;
-    j := DataModule1.FDTable2.FieldByName('number').AsInteger;
-    }
     s := Request.ContentFields.Values['help'];
     DataModule1.FDTable4.Last;
     k := DataModule1.FDTable4.FieldByName('id').AsInteger + 1;
-    DataModule1.FDTable4.AppendRecord([k, -1,-1, Now, s]);
-  end;
+    DataModule1.FDTable4.AppendRecord([k, -1, -1, Now, s]);
+    help.Tag := 1;
+  end
+  else
+    help.Tag := 0;
   Response.Content := help.Content;
 end;
 
@@ -934,7 +951,7 @@ begin
       if Locate('database', 'master') = false then
       begin
         Last;
-        i:=FieldByName('dbnum').AsInteger+1;
+        i := FieldByName('dbnum').AsInteger + 1;
         AppendRecord([i, 'master']);
       end;
     WebModule1loginAction(nil, Request, Response, Handled);
About OSDN
Find Software
Develop Software
Help