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.450 by h677, Sat Oct 2 18:37:38 2004 UTC revision 1.451 by h677, Mon Oct 4 11:10:00 2004 UTC
# Line 2794  var Line 2794  var
2794          ActiveFileName: string;          ActiveFileName: string;
2795          e: IHTMLElement;          e: IHTMLElement;
2796          Ext: string;          Ext: string;
2797          buf, buf2: string;  //      buf, buf2: string;
2798          PathRec: TPathRec;          PathRec: TPathRec;
2799  begin  begin
2800          if not( TObject(Sender) is TWebBrowser )then          if not( TObject(Sender) is TWebBrowser )then
# Line 3971  begin Line 3971  begin
3971                  ListView.Items.Clear;                  ListView.Items.Clear;
3972                  ListView.Selected := nil;                  ListView.Selected := nil;
3973  //      ListView.Columns.Clear;  //      ListView.Columns.Clear;
3974                    if (FActiveContent <> nil) and (FActiveContent.Thread <> nil)
3975                  Self.Caption := CAPTION_NAME;                          and (FActiveContent.Thread.IsLogFile) then
3976                            Self.Caption := CAPTION_NAME + ' - [' + FActiveContent.Thread.Title + ']'
3977                    else
3978                            Self.Caption := CAPTION_NAME;
3979                  //Application.Title := CAPTION_NAME;                  //Application.Title := CAPTION_NAME;
3980    
3981  //              ActiveListColumnSave;  //              ActiveListColumnSave;
# Line 11278  end; Line 11281  end;
11281    
11282  function TGikoForm.SaveTabURLs : Boolean;  function TGikoForm.SaveTabURLs : Boolean;
11283  var  var
11284          SaveStringList: TStringList;          SaveStringList, BackStrList: TStringList;
11285  begin  begin
11286          SaveStringList := TStringList.Create;          SaveStringList := TStringList.Create;
11287            BackStrList := TStringList.Create;
11288    
11289            //バックアップ
11290            BackStrList.LoadFromFile(ExtractFilePath(Application.ExeName) + 'tab.sav');
11291            BackStrList.SaveToFile(ExtractFilePath(Application.ExeName) + '~tab.sav');
11292            BackStrList.Free;
11293            //バックアップを作る。
11294          try          try
11295                  Result := GetTabURLs(SaveStringList);                  Result := GetTabURLs(SaveStringList);
11296                    if not Result then begin
11297                     Exit; //逃げ
11298                    end;
11299                  SaveStringList.SaveToFile(ExtractFilePath(Application.ExeName) + 'tab.sav');                  SaveStringList.SaveToFile(ExtractFilePath(Application.ExeName) + 'tab.sav');
11300          finally          finally
11301                  SaveStringList.Free                  SaveStringList.Free;
11302          end;          end;
11303  end;  end;
11304    

Legend:
Removed from v.1.450  
changed lines
  Added in v.1.451

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