Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.338 by h677, Tue Jun 8 15:14:18 2004 UTC revision 1.339 by h677, Tue Jun 15 14:45:25 2004 UTC
# Line 3822  begin Line 3822  begin
3822              else if TObject(FHistoryList[ i ]) is TFavoriteBoardItem then              else if TObject(FHistoryList[ i ]) is TFavoriteBoardItem then
3823                  TFavoriteBoardItem(FHistoryList[ i ]).Free;                  TFavoriteBoardItem(FHistoryList[ i ]).Free;
3824    
3825              //FHistoryList.Delete(i);                          //FHistoryList.Delete(i);
3826          end;          end;
3827          except          except
3828          end;          end;
# Line 4952  var Line 4952  var
4952  begin  begin
4953          Item := GetActiveContent;          Item := GetActiveContent;
4954          if Item = nil then Exit;          if Item = nil then Exit;
   
         if Item.Count >= 1000 then begin  
                 msg := 'このスレッドはレス数が1000を超えているので書込み出来ません。' + #13#10  
                                  + '新スレッドを探してください。';  
                 if MsgBox(Handle, msg, '警告', MB_YESNO or MB_ICONEXCLAMATION) <> 7 then begin  
                                                 Exit;  
                                 end;  
         end;  
4955          Editor := TEditorForm.Create(Self);          Editor := TEditorForm.Create(Self);
4956          Editor.SetThreadItem(Item);          Editor.SetThreadItem(Item);
4957      GikoSys.LoadEditorKeySetting(Editor.ActionList);      GikoSys.LoadEditorKeySetting(Editor.ActionList);
# Line 6242  begin Line 6234  begin
6234                                  BrowserRecord.FEvent.OnClick := WebBrowserClick;  //追加したOnClickイベント                                  BrowserRecord.FEvent.OnClick := WebBrowserClick;  //追加したOnClickイベント
6235                          end;                          end;
6236                  end else begin                  end else begin
6237                    if GetActiveContent <> nil then begin
6238                                  FDispHtmlDocument := Idispatch(OleVariant(Browser.ControlInterface).Document) as DispHTMLDocument;                                  FDispHtmlDocument := Idispatch(OleVariant(Browser.ControlInterface).Document) as DispHTMLDocument;
6239                                  if FEvent <> nil then                                  if FEvent <> nil then
6240                                          FEvent.Free;                                          FEvent.Free;
6241                                  FEvent := THTMLDocumentEventSink.Create(Self, FDispHtmlDocument, HTMLDocumentEvents2);                                  FEvent := THTMLDocumentEventSink.Create(Self, FDispHtmlDocument, HTMLDocumentEvents2);
6242                                  FEvent.OnContextMenu := OnDocumentContextMenu;                                  FEvent.OnContextMenu := OnDocumentContextMenu;
6243                                  FEvent.OnClick := WebBrowserClick;  //追加したOnClickイベント                                  FEvent.OnClick := WebBrowserClick;  //追加したOnClickイベント
6244                            end;
6245                  end;                  end;
6246          end;          end;
6247  end;  end;
# Line 7112  begin Line 7106  begin
7106                          // 過去ログ倉庫から、ダウソしたスレが発見できないのでここで探すようにする (2004/01/22)                          // 過去ログ倉庫から、ダウソしたスレが発見できないのでここで探すようにする (2004/01/22)
7107                          Board := BBSs[ 0 ].FindBBSID( Copy(BBSID, 1 , Length(BBSID) - 1) );                          Board := BBSs[ 0 ].FindBBSID( Copy(BBSID, 1 , Length(BBSID) - 1) );
7108                  end;                  end;
7109                  if Board = nil then begin                  if (Board = nil) or (boardURL <> Board.URL) then begin
7110                          GikoSys.OpenBrowser(URL, gbtUserApp);                          GikoSys.OpenBrowser(URL, gbtUserApp);
7111                          Exit;                          Exit;
7112                          //Board := GikoSys.GetUnknownBoard( nil, boardURL );                          //Board := GikoSys.GetUnknownBoard( nil, boardURL );
# Line 7538  begin Line 7532  begin
7532                  // 文字コードはプラグインに任せる                  // 文字コードはプラグインに任せる
7533                  for i := StNum to ToNum do begin                  for i := StNum to ToNum do begin
7534                      Line := i;                      Line := i;
7535                      //ここで2ちゃんねるのdatの形式で1行読み込めれば・・・。↓読めるようになった                                          //ここで2ちゃんねるのdatの形式で1行読み込めれば・・・。↓読めるようになった
7536                      tmp := boardPlugIn.GetDat( DWORD( threadItem ), i );                                          tmp := boardPlugIn.GetDat( DWORD( threadItem ), i );
7537                      if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin                      if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin
7538                          Res := GikoSys.DivideStrLine(tmp);                          Res := GikoSys.DivideStrLine(tmp);
7539                          if (GikoSys.Setting.ShowMail = false) or (Length(res.FMailTo) = 0) then                          if (GikoSys.Setting.ShowMail = false) or (Length(res.FMailTo) = 0) then
# Line 9748  begin Line 9742  begin
9742                                  Header := CustomStringReplace(Header, '</b>', '',true);                                  Header := CustomStringReplace(Header, '</b>', '',true);
9743                                  Header := CustomStringReplace(Header, '<b>', '',true);                                  Header := CustomStringReplace(Header, '<b>', '',true);
9744                          end;                          end;
9745                            if ThreadItem.IsBoardPlugInAvailable then begin
9746                                    Body := CustomStringReplace(Res.FBody, '<br>', #13#10,true);
9747                                    Body := CustomStringReplace(Body, '<br>', #13#10,true);
9748                            end else begin
9749                                    Body := CustomStringReplace(Res.FBody, ' <br> ', #13#10,true);
9750                                    Body := CustomStringReplace(Body, ' <br>', #13#10,true);
9751                                    Body := CustomStringReplace(Body, '<br> ', #13#10,true);
9752                                    Body := CustomStringReplace(Body, '<br>', #13#10,true);
9753    
9754                          //Body := CustomStringReplace(Res.FBody, '<br> ', #13#10,true);                          end;
                         Body := CustomStringReplace(Res.FBody, '<br>', #13#10,true);  
                         Body := CustomStringReplace(Body, '<br>', #13#10,true);  
9755                          Body := CustomStringReplace(Body, '</a>', '',true);                          Body := CustomStringReplace(Body, '</a>', '',true);
9756    
9757                          Body := GikoSys.DeleteLink(Body);                          Body := GikoSys.DeleteLink(Body);

Legend:
Removed from v.1.338  
changed lines
  Added in v.1.339

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