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.488 by h677, Thu Nov 4 13:34:46 2004 UTC revision 1.489 by h677, Fri Nov 5 14:25:48 2004 UTC
# Line 11091  end; Line 11091  end;
11091    
11092  procedure TGikoForm.TabsSaveActionExecute(Sender: TObject);  procedure TGikoForm.TabsSaveActionExecute(Sender: TObject);
11093  begin  begin
11094    
11095          if not SaveTabURLs then begin          if not SaveTabURLs then begin
11096                  ShowMessage('保存するタブがありません');                  if TabsSaveAction.Tag = 0 then
11097                            ShowMessage('保存するタブがありません');
11098          end;          end;
11099  end;  end;
11100    
# Line 11126  end; Line 11128  end;
11128  procedure TGikoForm.TabsOpenActionExecute(Sender: TObject);  procedure TGikoForm.TabsOpenActionExecute(Sender: TObject);
11129  begin  begin
11130          if not LoadTabURLs then begin          if not LoadTabURLs then begin
11131                  ShowMessage('表示するタブがありません。');                  if TabsOpenAction.Tag = 0 then
11132                            ShowMessage('表示するタブがありません。');
11133          end;          end;
11134  end;  end;
 {  
  procedure TGikoForm.FileTabSaveClick(Sender: TObject);  
 var  
         SaveStringList: TStringList;  
 begin  
                  SaveTabList := TStringList.Create;  
                  SaveTabList := GetTabURLs;  
                  if TabSaveDialog.Execute then begin  
                                  SaveTabList.SaveToFile(TabSaveDialog.FileName);  
                  end;  
 end;  
 }  
11135    
11136  function TGikoForm.LoadTabURLs : Boolean;  function TGikoForm.LoadTabURLs : Boolean;
11137  var  var

Legend:
Removed from v.1.488  
changed lines
  Added in v.1.489

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