Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 1134 |
|
|
| 1135 |
RoundList.LoadRoundThreadFile; |
RoundList.LoadRoundThreadFile; |
| 1136 |
|
|
| 1137 |
if RoundList.OldFileRead then |
if RoundList.OldFileRead or ( RoundList.Count[grtItem] > 0 ) then |
| 1138 |
GikoSys.ReadBoardFile; |
GikoSys.ReadBoardFile; |
| 1139 |
|
|
|
|
|
| 1140 |
// SetBoardTreeNode; //ツリーにボード追加 |
// SetBoardTreeNode; //ツリーにボード追加 |
| 1141 |
// メニューに追加 |
// メニューに追加 |
| 1142 |
for i := Length( BBSs ) - 1 downto 0 do begin |
for i := Length( BBSs ) - 1 downto 0 do begin |
| 1561 |
end else begin |
end else begin |
| 1562 |
CanClose := True; |
CanClose := True; |
| 1563 |
end; |
end; |
| 1564 |
Application.OnDeactivate := nil; |
// Application.OnDeactivate := nil; |
| 1565 |
Self.OnDeactivate := nil; |
// Self.OnDeactivate := nil; |
| 1566 |
|
|
| 1567 |
//column幅 |
//column幅 |
| 1568 |
if GetActiveList is TBBS then begin |
if GetActiveList is TBBS then begin |
| 1637 |
except |
except |
| 1638 |
end; |
end; |
| 1639 |
|
|
|
//巡回リスト保存&破棄 |
|
|
try |
|
|
RoundList.SaveRoundFile; |
|
|
except |
|
|
end; |
|
|
|
|
|
try |
|
|
RoundList.Clear; |
|
|
except |
|
|
end; |
|
|
try |
|
|
RoundList.Free; |
|
|
except |
|
|
end; |
|
|
|
|
| 1640 |
//ヒストリリスト保存 |
//ヒストリリスト保存 |
| 1641 |
try |
try |
| 1642 |
SaveHistory; |
SaveHistory; |
| 1660 |
except |
except |
| 1661 |
end; |
end; |
| 1662 |
|
|
| 1663 |
|
|
| 1664 |
|
|
| 1665 |
// FDownload.Free; |
// FDownload.Free; |
| 1666 |
try |
try |
| 1667 |
SetActiveList(nil); |
//SetActiveList(nil); |
| 1668 |
except |
except |
| 1669 |
end; |
end; |
| 1670 |
|
|
| 1717 |
except |
except |
| 1718 |
end; |
end; |
| 1719 |
|
|
| 1720 |
|
//巡回リスト保存&破棄 |
| 1721 |
|
try |
| 1722 |
|
RoundList.SaveRoundFile; |
| 1723 |
|
except |
| 1724 |
|
end; |
| 1725 |
|
|
| 1726 |
|
try |
| 1727 |
|
RoundList.Clear; |
| 1728 |
|
except |
| 1729 |
|
end; |
| 1730 |
|
try |
| 1731 |
|
RoundList.Free; |
| 1732 |
|
except |
| 1733 |
|
end; |
| 1734 |
|
|
| 1735 |
try |
try |
| 1736 |
//Hint破棄 |
//Hint破棄 |
| 1737 |
if FHint <> nil then begin |
if FHint <> nil then begin |
| 1750 |
|
|
| 1751 |
procedure TGikoForm.FormDestroy(Sender: TObject); |
procedure TGikoForm.FormDestroy(Sender: TObject); |
| 1752 |
begin |
begin |
| 1753 |
|
; |
| 1754 |
end; |
end; |
| 1755 |
|
|
| 1756 |
//フォームクローズ |
//フォームクローズ |
| 1757 |
procedure TGikoForm.FormClose(Sender: TObject; var Action: TCloseAction); |
procedure TGikoForm.FormClose(Sender: TObject; var Action: TCloseAction); |
| 1758 |
begin |
begin |
| 1759 |
|
// ListCoolBar.WindowProc := nil; |
| 1760 |
|
// BrowserCoolBar.WindowProc := nil; |
| 1761 |
|
// MainCoolBar.WindowProc := nil; |
| 1762 |
Application.Terminate; |
Application.Terminate; |
| 1763 |
Action := caFree; |
Action := caFree; |
| 1764 |
|
// Application.UnhookMainWindow(Hook); |
| 1765 |
end; |
end; |
| 1766 |
|
|
| 1767 |
//キャビネット×ボタンクリック |
//キャビネット×ボタンクリック |
|
|
Legend:
| Removed from v.1.180 |
|
| changed lines |
| |
Added in v.1.181 |
|
|
|