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.639 by h677, Sun Jul 29 03:40:06 2007 UTC revision 1.640 by h677, Wed Aug 1 15:02:42 2007 UTC
# Line 2791  begin Line 2791  begin
2791          ThreadTitle := Thread.Thread.Title;          ThreadTitle := Thread.Thread.Title;
2792          ThreadPTitle := Thread.Thread.ParentBoard.Title;          ThreadPTitle := Thread.Thread.ParentBoard.Title;
2793          //ThreadScrollTop := Thread.Thread.ScrollTop;          //ThreadScrollTop := Thread.Thread.ScrollTop;
2794        if Thread.Thread.IsLogFile then  begin
2795            if not FileExists(Thread.Thread.GetThreadFileName) then begin
2796                Thread.Thread.DeleteLogFile;
2797            end;
2798        end;
2799    
2800          ThreadIsLog := Thread.Thread.IsLogFile;          ThreadIsLog := Thread.Thread.IsLogFile;
2801          ThreadItem := Thread.Thread;          ThreadItem := Thread.Thread;
2802          ThreadNewArraical :=  Thread.Thread.NewArrival;          ThreadNewArraical :=  Thread.Thread.NewArrival;
# Line 6969  end; Line 6975  end;
6975    
6976  procedure TGikoForm.BrowserPanelResize(Sender: TObject);  procedure TGikoForm.BrowserPanelResize(Sender: TObject);
6977  begin  begin
6978          if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin      if (FIsMinimize <> mtMinimizing) then begin
6979                  MoveWindow(FActiveContent.Browser.Handle, 0, 0, BrowserPanel.ClientWidth, BrowserPanel.ClientHeight, false);          if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
6980          end;                  MoveWindow(FActiveContent.Browser.Handle, 0, 0, BrowserPanel.ClientWidth, BrowserPanel.ClientHeight, false);
6981            end;
6982        end;
6983  end;  end;
6984  procedure TGikoForm.CoolBarResized(Sender: TObject; CoolBar: TCoolBar);  procedure TGikoForm.CoolBarResized(Sender: TObject; CoolBar: TCoolBar);
6985  var  var
# Line 7659  end; Line 7666  end;
7666  //! ファイルチェック  //! ファイルチェック
7667  function TGikoForm.isValidFile(FileName: String) : boolean;  function TGikoForm.isValidFile(FileName: String) : boolean;
7668  var  var
     tmp: String;  
         unixtime: Int64;  
7669      dt: TDateTime;      dt: TDateTime;
7670  begin  begin
7671      Result := True;      Result := True;

Legend:
Removed from v.1.639  
changed lines
  Added in v.1.640

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