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.364 by yoffy, Mon Jul 12 10:42:46 2004 UTC revision 1.365 by h677, Mon Jul 12 13:29:38 2004 UTC
# Line 551  type Line 551  type
551      OpenLogFolder: TMenuItem;      OpenLogFolder: TMenuItem;
552      Browser: TWebBrowser;      Browser: TWebBrowser;
553      LocalRuleView: TToolButton;      LocalRuleView: TToolButton;
     IdHTTP1: TIdHTTP;  
554      TabSave: TMenuItem;      TabSave: TMenuItem;
555      TabOpen: TMenuItem;      TabOpen: TMenuItem;
556      TabSaveDialog: TSaveDialog;      TabSaveDialog: TSaveDialog;
# Line 559  type Line 558  type
558      Tab: TMenuItem;      Tab: TMenuItem;
559      FileTabSave: TMenuItem;      FileTabSave: TMenuItem;
560      FileTabOpen: TMenuItem;      FileTabOpen: TMenuItem;
561        TabsSaveAction: TAction;
562        TabsOpenAction: TAction;
563        N22: TMenuItem;
564        TabsSaveToFileAction: TAction;
565        TabsOpenFromFileAction: TAction;
566                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
567                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
568                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 895  type Line 899  type
899        NewHeight: Integer; var Resize: Boolean);        NewHeight: Integer; var Resize: Boolean);
900      procedure LogFolderOpenActionExecute(Sender: TObject);      procedure LogFolderOpenActionExecute(Sender: TObject);
901      procedure LogFolderOpenActionUpdate(Sender: TObject);      procedure LogFolderOpenActionUpdate(Sender: TObject);
902      procedure LocalRuleViewClick(Sender: TObject);      procedure TabsSaveActionExecute(Sender: TObject);
903      procedure TabSaveClick(Sender: TObject);      procedure TabsOpenActionExecute(Sender: TObject);
904      procedure TabOpenClick(Sender: TObject);      procedure TabsSaveToFileActionExecute(Sender: TObject);
905      procedure FileTabSaveClick(Sender: TObject);      procedure TabsOpenFromFileActionExecute(Sender: TObject);
     procedure FileTabOpenClick(Sender: TObject);  
906          private          private
907                  { Private 宣言 }                  { Private 宣言 }
908          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 1048  type Line 1051  type
1051                  procedure SetBBSMenu;                  procedure SetBBSMenu;
1052                  function WebBrowserClick(Sender: TObject): WordBool;                  function WebBrowserClick(Sender: TObject): WordBool;
1053                  procedure SkinorCSSFilesCopy(path: string);                  procedure SkinorCSSFilesCopy(path: string);
1054                  //タブ保存                  //タブ保存
1055                  function GetTabURLs : TStringList;                  procedure GetTabURLs(AStringList: TStringList);
1056                  // バンド幅を再計算・再設定する                  // バンド幅を再計算・再設定する
1057                  procedure ResetBandInfo( bar : TGikoCoolBar; band : TToolBar );                  procedure ResetBandInfo( bar : TGikoCoolBar; band : TToolBar );
1058          protected          protected
# Line 10676  begin Line 10679  begin
10679                  LogFolderOpenAction.Enabled := False;                  LogFolderOpenAction.Enabled := False;
10680  end;  end;
10681    
10682  procedure TGikoForm.LocalRuleViewClick(Sender: TObject);  procedure TGikoForm.GetTabURLs(AStringList: TStringList);
 var  
         RefURL,  
         RefeURL,  
         RuleURL,  
         RuleTxt:String;  
         FBoard: TBoard;  
         Indy: TIdHTTP;  
         FileStream: TFileStream;  
 begin  
         //ローカルルール取得 by 定期便  
         RefURL := GikoSys.UrlToServer(FBoard.URL)  
                 + GikoSys.UrlToID(FBoard.URL)  
                 + '/';  
         //試しにローカルルール取得も  
         RuleURL := RefURL  
                 + 'head.txt';  
         //取得〜  
         RuleTxt := Indy.Get(RuleURL);  
         //FileStream.Create('head.txt', fmCreate) := Indy.Get(RuleURL, FileStream);  
         //試験表示〜  
         if RuleTxt = '' then begin  
                 ShowMessage('ローカルルール取得失敗');  
         end;  
         ShowMessage(RuleTxt);  
   
 end;  
   
 procedure TGikoForm.TabSaveClick(Sender: TObject);  
 var  
         SaveStringList: TStringList;  
         TabIdx: Integer;  
 begin  
         SaveStringList := TStringList.Create;  
         SaveStringList := GetTabURLs;  
         SaveStringList.SaveToFile(ExtractFilePath(Application.ExeName) + 'tab.sav');  
 end;  
   
 function TGikoForm.GetTabURLs : TStringList;  
10683  var  var
10684    rec : TBrowserRecord;    rec : TBrowserRecord;
   URLs : TStringList;  
10685    i, bound : Integer;    i, bound : Integer;
10686  begin  begin
   URLs := TStringList.Create();  
10687    bound := BrowserTab.Tabs.Count -1;    bound := BrowserTab.Tabs.Count -1;
10688    for i := 0 to bound do begin    for i := 0 to bound do begin
10689      rec := TBrowserRecord( BrowserTab.Tabs.Objects[ i ] );          rec := TBrowserRecord( BrowserTab.Tabs.Objects[ i ] );
10690      URLs.Add( rec.Thread.URL );          if( rec <> nil) and (rec.Thread <> nil) then
10691                    AStringList.Add( rec.Thread.URL );
10692    end;    end;
   Result := URLs;  
10693  end;  end;
10694    
10695  procedure TGikoForm.TabOpenClick(Sender: TObject);  procedure TGikoForm.TabsSaveActionExecute(Sender: TObject);
10696  var  var
10697      i, bound    : Integer;          SaveStringList: TStringList;
10698      item        : TThreadItem;  begin
10699      URLs : TStringList;          SaveStringList := TStringList.Create;
10700      GikoTab: TGikoTabAppend;          try
10701  begin                  GetTabURLs(SaveStringList);
10702      URLs := TStringList.Create();                  SaveStringList.SaveToFile(ExtractFilePath(Application.ExeName) + 'tab.sav');
10703      try          finally
10704          URLs.LoadFromFile(ExtractFilePath(Application.ExeName) + 'tab.sav');                  SaveStringList.Free
10705      except          end;
         on EFOpenError do  
                 ShowMessage('タブファイルが開けません');  
     end;  
     bound    := URLs.Count - 1;  
     GikoTab := GikoSys.Setting.BrowserTabAppend;  
     GikoSys.Setting.BrowserTabAppend := gtpLast;//TGikoTabAppend(1);  
     for i := 0 to bound do begin  
         item := BBSsFindThreadFromURL( URLs[ i ] );  
         if item <> nil then  
             InsertBrowserTab( item, false );  
     end;  
     GikoSys.Setting.BrowserTabAppend := GikoTab;  
10706  end;  end;
10707    
10708  procedure TGikoForm.FileTabSaveClick(Sender: TObject);  procedure TGikoForm.TabsOpenActionExecute(Sender: TObject);
10709  var  var
10710          SaveTabList : TStringList;          i, bound    : Integer;
10711            item        : TThreadItem;
10712            URLs : TStringList;
10713            GikoTab: TGikoTabAppend;
10714            fileName: string;
10715  begin  begin
10716          SaveTabList := TStringList.Create;          fileName := ExtractFilePath(Application.ExeName) + 'tab.sav';
10717          SaveTabList := GetTabURLs;          URLs := TStringList.Create();
10718          if TabSaveDialog.Execute then begin          try
10719                  SaveTabList.SaveToFile(TabSaveDialog.FileName);                  try
10720          end;                          if FileExists(fileName) then
10721                                    URLs.LoadFromFile(fileName);
10722                    except
10723                            on EFOpenError do
10724                                            ShowMessage('タブファイルが開けません');
10725                    end;
10726                    bound    := URLs.Count - 1;
10727                    GikoTab := GikoSys.Setting.BrowserTabAppend;
10728                    GikoSys.Setting.BrowserTabAppend := gtpLast;//TGikoTabAppend(1);
10729                    for i := 0 to URLs.Count - 1 do begin
10730                            item := BBSsFindThreadFromURL( URLs[ i ] );
10731                            if item <> nil then
10732                                    InsertBrowserTab( item, false );
10733                    end;
10734            finally
10735                    GikoSys.Setting.BrowserTabAppend := GikoTab;
10736                    URLs.Free;
10737            end;
10738    end;
10739    {
10740     procedure TGikoForm.FileTabSaveClick(Sender: TObject);
10741    var
10742            SaveStringList: TStringList;
10743    begin
10744                     SaveTabList := TStringList.Create;
10745                     SaveTabList := GetTabURLs;
10746                     if TabSaveDialog.Execute then begin
10747                                     SaveTabList.SaveToFile(TabSaveDialog.FileName);
10748                     end;
10749    end;
10750    }
10751    procedure TGikoForm.TabsSaveToFileActionExecute(Sender: TObject);
10752    var
10753            SaveTabList: TStringList;
10754    begin
10755            SaveTabList := TStringList.Create;
10756            try
10757                    GetTabURLs(SaveTabList);
10758                    if TabSaveDialog.Execute then begin
10759                            SaveTabList.SaveToFile(TabSaveDialog.FileName);
10760                    end;
10761            finally
10762                    SaveTabList.Free;
10763            end;
10764  end;  end;
10765    
10766  procedure TGikoForm.FileTabOpenClick(Sender: TObject);  procedure TGikoForm.TabsOpenFromFileActionExecute(Sender: TObject);
10767  var  var
10768      i, bound, Tab    : Integer;          i, Tab    : Integer;
10769      item        : TThreadItem;          item        : TThreadItem;
10770      URLs : TStringList;          URLs : TStringList;
10771      GikoTab: TGikoTabAppend;          GikoTab: TGikoTabAppend;
10772  begin  begin
10773      URLs := TStringList.Create();          URLs := TStringList.Create();
10774      try          try
10775          if TabOpenDialog.Execute then begin                  try
10776                  URLs.LoadFromFile(TabOpenDialog.FileName);                          if TabOpenDialog.Execute then begin
10777          end;                                  URLs.LoadFromFile(TabOpenDialog.FileName);
10778      except                          end;
10779          on EFOpenError do                  except
10780                  ShowMessage('タブファイルが開けません');                          on EFOpenError do ShowMessage('タブファイルが開けません');
10781      end;                  end;
10782      bound    := URLs.Count - 1;                  GikoTab := GikoSys.Setting.BrowserTabAppend;
10783      GikoTab := GikoSys.Setting.BrowserTabAppend;                  GikoSys.Setting.BrowserTabAppend := gtpLast;//TGikoTabAppend(1);
10784      GikoSys.Setting.BrowserTabAppend := gtpLast;//TGikoTabAppend(1);                  for i := 0 to URLs.Count - 1 do begin
10785      for i := 0 to bound do begin                          item := BBSsFindThreadFromURL( URLs[ i ] );
10786          item := BBSsFindThreadFromURL( URLs[ i ] );                          if item <> nil then
10787          if item <> nil then                                  InsertBrowserTab( item, false );
10788              InsertBrowserTab( item, false );                  end;
10789      end;          finally
10790      GikoSys.Setting.BrowserTabAppend := GikoTab;                  GikoSys.Setting.BrowserTabAppend := GikoTab;
10791                    URLs.Free;
10792            end;
10793  end;  end;
10794    
10795  initialization  initialization

Legend:
Removed from v.1.364  
changed lines
  Added in v.1.365

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