| 1668 |
end; |
end; |
| 1669 |
|
|
| 1670 |
procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
|
var |
|
|
i: Integer; |
|
|
// CoolSet: TCoolSet; |
|
|
wp: TWindowPlacement; |
|
| 1671 |
begin |
begin |
| 1672 |
if ( GikoSys.Setting.ShowDialogForEnd ) and |
if ( GikoSys.Setting.ShowDialogForEnd ) and |
| 1673 |
(MessageDlg('ギコナビを終了してよろしいですか?', mtConfirmation,[mbOk, mbCancel], 0) = mrCancel ) then begin |
(MessageDlg('ギコナビを終了してよろしいですか?', mtConfirmation,[mbOk, mbCancel], 0) = mrCancel ) then begin |
| 1676 |
end else begin |
end else begin |
| 1677 |
CanClose := True; |
CanClose := True; |
| 1678 |
end; |
end; |
| 1679 |
|
//Application.HookMainWindow(Hook); |
| 1680 |
|
Application.UnhookMainWindow(Hook); |
| 1681 |
|
Application.Terminate; |
| 1682 |
|
end; |
| 1683 |
|
|
| 1684 |
|
procedure TGikoForm.FormDestroy(Sender: TObject); |
| 1685 |
|
var |
| 1686 |
|
i: Integer; |
| 1687 |
|
// CoolSet: TCoolSet; |
| 1688 |
|
wp: TWindowPlacement; |
| 1689 |
|
begin |
| 1690 |
// Application.OnDeactivate := nil; |
// Application.OnDeactivate := nil; |
| 1691 |
// Self.OnDeactivate := nil; |
// Self.OnDeactivate := nil; |
| 1692 |
try |
try |
| 1849 |
end; |
end; |
| 1850 |
except |
except |
| 1851 |
end; |
end; |
|
//Application.HookMainWindow(Hook); |
|
|
Application.UnhookMainWindow(Hook); |
|
|
Application.Terminate; |
|
|
end; |
|
|
|
|
|
procedure TGikoForm.FormDestroy(Sender: TObject); |
|
|
begin |
|
| 1852 |
|
|
| 1853 |
end; |
end; |
| 1854 |
|
|
| 1856 |
procedure TGikoForm.FormClose(Sender: TObject; var Action: TCloseAction); |
procedure TGikoForm.FormClose(Sender: TObject; var Action: TCloseAction); |
| 1857 |
begin |
begin |
| 1858 |
end; |
end; |
|
{ |
|
|
//procedure TGikoForm.FormClose(Sender: TObject; var Action: TCloseAction); |
|
|
//begin |
|
|
//end; |
|
|
// ListCoolBar.WindowProc := nil; |
|
|
// BrowserCoolBar.WindowProc := nil; |
|
|
// MainCoolBar.WindowProc := nil; |
|
|
// Application.Terminate; |
|
|
// Action := caFree; |
|
|
// Application.UnhookMainWindow(Hook); |
|
|
|
|
|
} |
|
| 1859 |
//キャビネット×ボタンクリック |
//キャビネット×ボタンクリック |
| 1860 |
procedure TGikoForm.CabinetPanelHide(Sender: TObject); |
procedure TGikoForm.CabinetPanelHide(Sender: TObject); |
| 1861 |
begin |
begin |
| 3679 |
SetBoardTreeNode( inBBS ); |
SetBoardTreeNode( inBBS ); |
| 3680 |
TreeView.TopItem.Expanded := True; //ツリートップ項目だけを開く |
TreeView.TopItem.Expanded := True; //ツリートップ項目だけを開く |
| 3681 |
//ツリーのトップ項目を選択する |
//ツリーのトップ項目を選択する |
| 3682 |
if GetActiveList = nil then |
if GetActiveList = nil then begin |
| 3683 |
TreeClick( TreeView.Items[0] ) |
try |
| 3684 |
else begin |
TreeClick( TreeView.Items[0] ); |
| 3685 |
|
except |
| 3686 |
|
end; |
| 3687 |
|
|
| 3688 |
|
end else begin |
| 3689 |
for i := 0 to TreeView.Items.Count - 1 do begin |
for i := 0 to TreeView.Items.Count - 1 do begin |
| 3690 |
if TreeView.Items[i].Data = GetActiveList then begin |
if TreeView.Items[i].Data = GetActiveList then begin |
| 3691 |
TreeClick( TreeView.Items[i] ); |
TreeClick( TreeView.Items[i] ); |