Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
| 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 |
|
|
|