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.240 by yoffy, Mon Apr 5 10:09:00 2004 UTC revision 1.241 by h677, Mon Apr 5 10:27:29 2004 UTC
# Line 1668  begin Line 1668  begin
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
# Line 1680  begin Line 1676  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
# Line 1842  begin Line 1849  begin
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    
# Line 1856  end; Line 1856  end;
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
# Line 3691  begin Line 3679  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] );

Legend:
Removed from v.1.240  
changed lines
  Added in v.1.241

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