Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.27 by yoffy, Mon Sep 22 02:51:36 2003 UTC revision 1.28 by yoffy, Mon Sep 22 03:55:01 2003 UTC
# Line 186  const Line 186  const
186          ZERO_DATE: Integer      = 25569;          ZERO_DATE: Integer      = 25569;
187          BETA_VERSION_NAME_E = 'beta';          BETA_VERSION_NAME_E = 'beta';
188          BETA_VERSION_NAME_J = 'バタ';          BETA_VERSION_NAME_J = 'バタ';
189          BETA_VERSION                            = 39;          BETA_VERSION                            = 40;
190          BETA_VERSION_BUILD      = '';                           //debug版など          BETA_VERSION_BUILD      = '';                           //debug版など
191    
192  implementation  implementation
# Line 205  const Line 205  const
205          CSS_DIR_NAME                                                                    = 'css';          CSS_DIR_NAME                                                                    = 'css';
206          SKIN_DIR_NAME                                                                   = 'skin';          SKIN_DIR_NAME                                                                   = 'skin';
207    SKIN_HEADER_FILE_NAME                                 = 'Header.html';    SKIN_HEADER_FILE_NAME                                 = 'Header.html';
208      SKIN_FOOTER_FILE_NAME                                 = 'Footer.html';
209    SKIN_NEWRES_FILE_NAME                                 = 'NewRes.html';    SKIN_NEWRES_FILE_NAME                                 = 'NewRes.html';
210    SKIN_RES_FILE_NAME                                            = 'Res.html';    SKIN_RES_FILE_NAME                                            = 'Res.html';
211          FOLDER_INDEX_VERSION                                    = '1.01';          FOLDER_INDEX_VERSION                                    = '1.01';
# Line 816  var Line 817  var
817    SkinHeaderFileName: string;    SkinHeaderFileName: string;
818    SkinNewRes: TStringList;    SkinNewRes: TStringList;
819    SkinRes: TStringList;    SkinRes: TStringList;
820      SizeByte: Integer;
821  begin  begin
822          ShortDayNames[1] := '日';               ShortDayNames[2] := '月';          ShortDayNames[1] := '日';               ShortDayNames[2] := '月';
823          ShortDayNames[3] := '火';               ShortDayNames[4] := '水';          ShortDayNames[3] := '火';               ShortDayNames[4] := '水';
# Line 865  begin Line 867  begin
867          Skin := TStringList.Create;          Skin := TStringList.Create;
868                                  try                                  try
869                                          Skin.LoadFromFile( SkinHeaderFileName );                                          Skin.LoadFromFile( SkinHeaderFileName );
870            Skin.Text := StringReplace( Skin.Text, '$THISSKINPATH', Setting.CSSFileName, [rfReplaceAll] );            Skin.Text := StringReplace( Skin.Text, '&GETRESCOUNT', IntToStr( NewReceiveNo ), [rfReplaceAll] );
871              Skin.Text := StringReplace( Skin.Text, '&SKINPATH', Setting.CSSFileName, [rfReplaceAll] );
872                                          SaveList.AddStrings( Skin );                                          SaveList.AddStrings( Skin );
873          finally          finally
874                                          Skin.Free;                                          Skin.Free;
# Line 914  begin Line 917  begin
917              SaveList.AddStrings( Skin );              SaveList.AddStrings( Skin );
918    
919              Skin.Free;              Skin.Free;
                 {  
                                                 No := IntToStr(i + 1);  
                                                 if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin  
                                                         SaveList.Add('<a name="new"></a><div class="new">新着レス <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></div>');  
                                                 end;  
                                                 Res := DivideStrLine(ReadList[i]);  
                                                 Res.FBody := ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true');  
   
                                                 if Res.FType = glt2chOld then begin  
                                                         Res.FMailTo := StringReplace(Res.FMailTo, '@`', ',', [rfReplaceAll]);  
                                                         Res.FName := StringReplace(Res.FName, '@`', ',', [rfReplaceAll]);  
                                                         Res.FBody := StringReplace(Res.FBody, '@`', ',', [rfReplaceAll]);  
                                                 end;  
   
                                                 Res.FBody := AddAnchorTag(Res.FBody);  
                                                 if Res.FName = '' then  
                                                         Res.FName := '&nbsp;';  
                                                 if Res.FMailTo = '' then  
                                                         SaveList.Add('<a name="' + No + '"></a>'  
                                                                                                  + '<dt><a href="giko://?no=' + No + '" name="Res' + No + '">' + No + '</a>'  
                                                                                                  + '<u><b> ' + Res.FName + '</b></u>'  
                                                                                                  + '<span> ' + Res.FDateTime+ '</span></dt>'  
                                                                                                  + '<dd>' + Res.FBody + '</dd>')  
                                                 else  
                                                         if GikoSys.Setting.ShowMail then  
                                                                 SaveList.Add('<a name="' + No + '"></a>'  
                                                                                                          + '<dt><a href="giko://?no=' + No + '" name="Res' + No + '">' + No + '</a>'  
                                                                                                          + '<a href="mailto:' + Res.FMailTo + '">'  
                                                                                                          + '<u><b> ' + Res.FName + '</b></u></a> [' + Res.FMailTo + ']'  
                                                                                                          + '<span> ' + Res.FDateTime+ '</span></dt>'  
                                                                                                          + '<dd>' + Res.FBody + '</dd>')  
                                                         else  
                                                                 SaveList.Add('<a name="' + No + '"></a>'  
                                                                                                          + '<dt><a href="giko://?no=' + No + '" name="Res' + No + '">' + No + '</a>'  
                                                                                                          + '<a href="mailto:' + Res.FMailTo + '">'  
                                                                                                          + '<u><b> ' + Res.FName + '</b></u></a>'  
                                                                                                          + '<spa> ' + Res.FDateTime+ '</span></dt>'  
                                                                                                          + '<dd>' + Res.FBody + '</dd>');  
                                                 if ThreadItem.Kokomade = (i + 1) then begin  
                                                         SaveList.Add('<a name="koko"></a><div class="koko">ココまで読んだ</div>');  
                                                 end;  
             }  
920                                          end;                                          end;
921    
922                                          //if SaveList.Count > 50 then begin                                          //if SaveList.Count > 50 then begin
# Line 976  begin Line 937  begin
937                                                  SaveList.Clear;                                                  SaveList.Clear;
938                                          end;                                          end;
939                                  end;                                  end;
940    
941                                  SaveList.Add('<a name="bottom"></a>');                                  SaveList.Add('<a name="bottom"></a>');
942                                  SaveList.Add('</dl>');  
943            // スキン(フッタ)
944            Skin := TStringList.Create;
945                                    try
946                                            Skin.LoadFromFile( Setting.CSSFileName + SKIN_FOOTER_FILE_NAME );
947              SizeByte := Length( SaveList.Text );
948              Skin.Text := StringReplace( Skin.Text, '&SIZEKB', IntToStr( Floor( SizeByte / 1024 ) ), [rfReplaceAll] );
949              Skin.Text := StringReplace( Skin.Text, '&SIZE', IntToStr( SizeByte ), [rfReplaceAll] );
950                                            SaveList.AddStrings( Skin );
951            finally
952                                            Skin.Free;
953                                    end;
954    
955                                  SaveList.Add('<a name="last"></a>');                                  SaveList.Add('<a name="last"></a>');
956                                  SaveList.Add('</body></html>');                                  SaveList.Add('</body></html>');
957    

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26