[JVCL-Checkins] CVS: jvcl/source JvDisconnectNetwork.pas,1.2,1.3

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/jvcl/source
In directory usw-pr-cvs1:/tmp/cvs-serv7693/source

Modified Files:
	JvDisconnectNetwork.pas 
Log Message:
Moved TJVDisconnectNetwork into JvConnectNetwork

Index: JvDisconnectNetwork.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvDisconnectNetwork.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvDisconnectNetwork.pas	20 Jul 2002 11:52:35 -0000	1.2
--- JvDisconnectNetwork.pas	7 Oct 2002 20:01:20 -0000	1.3
***************
*** 1,55 ****
- {-----------------------------------------------------------------------------
- The contents of this file are subject to the Mozilla Public License
- Version 1.1 (the "License"); you may not use this file except in compliance
- with the License. You may obtain a copy of the License at
- http://www.mozilla.org/MPL/MPL-1.1.html
- 
- Software distributed under the License is distributed on an "AS IS" basis,
- WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
- the specific language governing rights and limitations under the License.
- 
- The Original Code is: JvDisconnectNetwork.PAS, released on 2001-02-28.
- 
- The Initial Developer of the Original Code is Sébastien Buysse [sb...@bu...]
- Portions created by Sébastien Buysse are Copyright (C) 2001 Sébastien Buysse.
- All Rights Reserved.
- 
- Contributor(s): Michael Beck [mb...@bi...].
- 
- Last Modified: 2000-02-28
- 
- You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
- located at http://jvcl.sourceforge.net
- 
- Known Issues:
- -----------------------------------------------------------------------------}
- 
- {$I JVCL.INC}
- 
  unit JvDisconnectNetwork;
- 
- 
- 
  interface
! 
! uses
!   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
!   JvBaseDlg;
! 
! type
!   TJvDisconnectNetwork = class(TJvCommonDialog)
!   private
!   published
!     function Execute: Boolean; override;
!   end;
! 
  implementation
- 
- {**************************************************}
- 
- function TJvDisconnectNetwork.Execute: Boolean;
- begin
-   Result := WNetDisconnectDialog(Application.Handle, RESOURCETYPE_DISK) = NO_ERROR;
- end;
- 
  end.
--- 1,5 ----
  unit JvDisconnectNetwork;
  interface
! { moved to JvConnectNetwork.pas}
  implementation
  end.