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.637 by h677, Mon Jun 11 22:58:35 2007 UTC revision 1.638 by h677, Tue Jun 19 15:43:14 2007 UTC
# Line 1431  begin Line 1431  begin
1431  end;  end;
1432  //  //
1433  procedure TGikoForm.FormShow(Sender: TObject);  procedure TGikoForm.FormShow(Sender: TObject);
1434    var
1435            item        : TThreadItem;
1436  begin  begin
1437          if FStartUp then begin          if FStartUp then begin
1438                  ShowWindow(Application.Handle, SW_HIDE);                  ShowWindow(Application.Handle, SW_HIDE);
# Line 1464  begin Line 1466  begin
1466              GikoDM.TabsOpenAction.Tag := 1;              GikoDM.TabsOpenAction.Tag := 1;
1467                          GikoDM.TabsOpenAction.Execute;                          GikoDM.TabsOpenAction.Execute;
1468              GikoDM.TabsOpenAction.Tag := 0;              GikoDM.TabsOpenAction.Tag := 0;
1469                if (GikoSys.Setting.LastCloseTabURL <> '') then begin
1470                    item := BBSsFindThreadFromURL( GikoSys.Setting.LastCloseTabURL );
1471                    if (item <> nil) and (item.IsLogFile) then begin
1472                        OpenThreadItem(item, item.URL);
1473                    end;
1474                    GikoSys.Setting.LastCloseTabURL := '';
1475                end;
1476                  end;                  end;
1477    
1478          //ActionListのGroupIndexを元に戻す          //ActionListのGroupIndexを元に戻す
# Line 1484  begin Line 1493  begin
1493                          Exit;                          Exit;
1494          end;          end;
1495    
1496        GikoSys.Setting.LastCloseTabURL := '';
1497          if GikoSys.Setting.TabAutoLoadSave then begin          if GikoSys.Setting.TabAutoLoadSave then begin
1498                  GikoDM.TabsSaveAction.Execute;                  GikoDM.TabsSaveAction.Execute;
1499            if (GetActiveContent <> nil) and
1500                (GetActiveContent.IsLogFile) then begin
1501                GikoSys.Setting.LastCloseTabURL := GetActiveContent.URL;
1502            end;
1503          end;          end;
1504    
1505          if (SearchDialog <> nil) then begin          if (SearchDialog <> nil) then begin
# Line 3571  begin Line 3585  begin
3585      end;      end;
3586      BrowserTab.Tabs.BeginUpdate;      BrowserTab.Tabs.BeginUpdate;
3587      try      try
3588            GikoSys.Setting.LastCloseTabURL :=
3589                TBrowserRecord(BrowserTab.Tabs.Objects[index]).Thread.URL;
3590          TBrowserRecord(BrowserTab.Tabs.Objects[index]).Free;          TBrowserRecord(BrowserTab.Tabs.Objects[index]).Free;
3591          if ( BrowserTab.Tabs.Count - 1 = index ) and          if ( BrowserTab.Tabs.Count - 1 = index ) and
3592              ( BrowserTab.TabRect(index).Left              ( BrowserTab.TabRect(index).Left

Legend:
Removed from v.1.637  
changed lines
  Added in v.1.638

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