From: Peter T. <pe...@us...> - 2002-10-07 20:01:06
|
Update of /cvsroot/jvcl/jvcl/source In directory usw-pr-cvs1:/tmp/cvs-serv7518/source Modified Files: JvConnectNetwork.pas Log Message: Moved TJvDisconnectNetwork class into this unit instead Index: JvConnectNetwork.pas =================================================================== RCS file: /cvsroot/jvcl/jvcl/source/JvConnectNetwork.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** JvConnectNetwork.pas 20 Jul 2002 11:52:35 -0000 1.2 --- JvConnectNetwork.pas 7 Oct 2002 20:01:00 -0000 1.3 *************** *** 34,48 **** uses ! Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, ! JvBaseDlg; type TJvConnectNetwork = class(TJvCommonDialog) private published function Execute: Boolean; override; end; implementation {**************************************************} --- 34,61 ---- uses ! Forms, JvBaseDlg; type TJvConnectNetwork = class(TJvCommonDialog) + published + function Execute: Boolean; override; + end; + + TJvDisconnectNetwork = class(TJvCommonDialog) + published + function Execute: Boolean; override; + end; + + TJvNetworkConnect = class(TJvCommonDialog) private + FConnect: boolean; published + property Connect:boolean read FConnect write FConnect; function Execute: Boolean; override; end; implementation + uses + Windows; {**************************************************} *************** *** 51,54 **** --- 64,82 ---- begin Result := WNetConnectionDialog(Application.Handle, RESOURCETYPE_DISK) = NO_ERROR; + end; + + function TJvDisconnectNetwork.Execute: Boolean; + begin + Result := WNetDisconnectDialog(Application.Handle, RESOURCETYPE_DISK) = NO_ERROR; + end; + + { TJvNetworkConnect } + + function TJvNetworkConnect.Execute: Boolean; + begin + if FConnect then + Result := WNetConnectionDialog(Application.Handle, RESOURCETYPE_DISK) = NO_ERROR + else + Result := WNetDisconnectDialog(Application.Handle, RESOURCETYPE_DISK) = NO_ERROR; end; |