| 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); |
| 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を元に戻す |
| 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 |
| 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 |