From 19218f20bb4cd2aed26f86a3619a2df529db6e2b Mon Sep 17 00:00:00 2001 From: Riley McArdle Date: Tue, 17 May 2011 11:37:54 -0500 Subject: [PATCH] Fixed RD Gateway default properties and RDP reconnection count setting not being saved. --- mRemoteV1/App/App.Runtime.vb | 6 +++ mRemoteV1/CHANGELOG.TXT | 1 + mRemoteV1/Connection/Connection.Info.vb | 8 +-- mRemoteV1/My Project/Settings.Designer.vb | 63 ++++++++++++++++++++++- mRemoteV1/My Project/Settings.settings | 30 +++++++---- mRemoteV1/app.config | 12 +++++ 6 files changed, 106 insertions(+), 14 deletions(-) diff --git a/mRemoteV1/App/App.Runtime.vb b/mRemoteV1/App/App.Runtime.vb index 3dda2258f..2c6168b1e 100644 --- a/mRemoteV1/App/App.Runtime.vb +++ b/mRemoteV1/App/App.Runtime.vb @@ -471,6 +471,12 @@ Namespace App My.Settings.ConDefaultVNCSmartSizeMode = .VNCSmartSizeMode.ToString My.Settings.ConDefaultVNCViewOnly = .VNCViewOnly My.Settings.ConDefaultExtApp = .ExtApp + My.Settings.ConDefaultRDGatewayUsageMethod = .RDGatewayUsageMethod.ToString + My.Settings.ConDefaultRDGatewayHostname = .RDGatewayHostname + My.Settings.ConDefaultRDGatewayUsername = .RDGatewayUsername + My.Settings.ConDefaultRDGatewayPassword = .RDGatewayPassword + My.Settings.ConDefaultRDGatewayDomain = .RDGatewayDomain + My.Settings.ConDefaultRDGatewayUseConnectionCredentials = .RDGatewayUseConnectionCredentials.ToString End With End Sub #End Region diff --git a/mRemoteV1/CHANGELOG.TXT b/mRemoteV1/CHANGELOG.TXT index fcc3a86da..02a4f08b7 100644 --- a/mRemoteV1/CHANGELOG.TXT +++ b/mRemoteV1/CHANGELOG.TXT @@ -2,6 +2,7 @@ Fixed migration of external tools configuration and panel layout from Local to Roaming folder. Disable ICA Hotkeys for Citrix connections. Fixes issue with international users. Added a language selection option so users can override the language if they don't want it automatically detected. + Fixed RD Gateway default properties and RDP reconnection count setting not being saved. 1.66 (2011-05-02): Fixed connections not working diff --git a/mRemoteV1/Connection/Connection.Info.vb b/mRemoteV1/Connection/Connection.Info.vb index ebb3e9ee1..ae71d70e5 100644 --- a/mRemoteV1/Connection/Connection.Info.vb +++ b/mRemoteV1/Connection/Connection.Info.vb @@ -439,7 +439,7 @@ Namespace Connection End Set End Property - Private _RDGatewayHostname As String + Private _RDGatewayHostname As String = My.Settings.ConDefaultRDGatewayHostname ' This code was generated by a tool. -' Runtime Version:2.0.50727.5444 +' Runtime Version:2.0.50727.4959 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. @@ -1951,6 +1951,7 @@ Namespace My End Property _ Public Property ConDefaultRDGatewayUsageMethod() As String @@ -1963,6 +1964,7 @@ Namespace My End Property _ Public Property ConDefaultRDGatewayUseConnectionCredentials() As String @@ -1988,6 +1990,7 @@ Namespace My End Property _ Public Property InhDefaultRDGatewayUsageMethod() As Boolean @@ -2000,6 +2003,7 @@ Namespace My End Property _ Public Property InhDefaultRDGatewayHostname() As Boolean @@ -2012,6 +2016,7 @@ Namespace My End Property _ Public Property InhDefaultRDGatewayUsername() As Boolean @@ -2024,6 +2029,7 @@ Namespace My End Property _ Public Property InhDefaultRDGatewayPassword() As Boolean @@ -2036,6 +2042,7 @@ Namespace My End Property _ Public Property InhDefaultRDGatewayDomain() As Boolean @@ -2048,6 +2055,7 @@ Namespace My End Property _ Public Property InhDefaultRDGatewayUseConnectionCredentials() As Boolean @@ -2060,6 +2068,7 @@ Namespace My End Property _ Public Property RdpReconnectionCount() As Integer @@ -2092,6 +2101,58 @@ Namespace My Return CType(Me("SupportedUICultures"),String) End Get End Property + + _ + Public Property ConDefaultRDGatewayHostname() As String + Get + Return CType(Me("ConDefaultRDGatewayHostname"),String) + End Get + Set + Me("ConDefaultRDGatewayHostname") = value + End Set + End Property + + _ + Public Property ConDefaultRDGatewayUsername() As String + Get + Return CType(Me("ConDefaultRDGatewayUsername"),String) + End Get + Set + Me("ConDefaultRDGatewayUsername") = value + End Set + End Property + + _ + Public Property ConDefaultRDGatewayPassword() As String + Get + Return CType(Me("ConDefaultRDGatewayPassword"),String) + End Get + Set + Me("ConDefaultRDGatewayPassword") = value + End Set + End Property + + _ + Public Property ConDefaultRDGatewayDomain() As String + Get + Return CType(Me("ConDefaultRDGatewayDomain"),String) + End Get + Set + Me("ConDefaultRDGatewayDomain") = value + End Set + End Property End Class End Namespace diff --git a/mRemoteV1/My Project/Settings.settings b/mRemoteV1/My Project/Settings.settings index 3804d343f..9e242ebd3 100644 --- a/mRemoteV1/My Project/Settings.settings +++ b/mRemoteV1/My Project/Settings.settings @@ -440,34 +440,34 @@ False - + Never - + Yes mRemoteNG - + False - + False - + False - + False - + False - + False - + 5 @@ -476,5 +476,17 @@ de,en,en-US + + + + + + + + + + + + \ No newline at end of file diff --git a/mRemoteV1/app.config b/mRemoteV1/app.config index 1a15c5b9e..eb9f94a55 100644 --- a/mRemoteV1/app.config +++ b/mRemoteV1/app.config @@ -530,6 +530,18 @@ + + + + + + + + + + + +