From 605cb4048bab04ec0e6e85fb1e51416d5bfd7fef Mon Sep 17 00:00:00 2001 From: Andreas Rehm Date: Sat, 30 Apr 2011 18:55:18 +0200 Subject: [PATCH] Fixed issue 38 - config should be stored in Roaming AppData. Fixed two settings - should be user settings. --- mRemoteV1/App/App.Info.vb | 2 +- mRemoteV1/My Project/Settings.Designer.vb | 16 +++++++++++----- mRemoteV1/My Project/Settings.settings | 4 ++-- mRemoteV1/app.config | 19 ++++++------------- 4 files changed, 20 insertions(+), 21 deletions(-) diff --git a/mRemoteV1/App/App.Info.vb b/mRemoteV1/App/App.Info.vb index 5b898675..d804e3e7 100644 --- a/mRemoteV1/App/App.Info.vb +++ b/mRemoteV1/App/App.Info.vb @@ -15,7 +15,7 @@ Namespace App Public Class Settings #If Not PORTABLE Then - Public Shared ReadOnly SettingsPath As String = GetFolderPath(SpecialFolder.LocalApplicationData) & "\" & My.Application.Info.ProductName + Public Shared ReadOnly SettingsPath As String = GetFolderPath(SpecialFolder.ApplicationData) & "\" & My.Application.Info.ProductName #Else Public Shared ReadOnly SettingsPath As String = My.Application.Info.DirectoryPath #End If diff --git a/mRemoteV1/My Project/Settings.Designer.vb b/mRemoteV1/My Project/Settings.Designer.vb index ee7231c3..3445f4dc 100644 --- a/mRemoteV1/My Project/Settings.Designer.vb +++ b/mRemoteV1/My Project/Settings.Designer.vb @@ -1,7 +1,7 @@ '------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:2.0.50727.4952 +' Laufzeitversion:2.0.50727.5444 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. @@ -1950,22 +1950,28 @@ Namespace My End Set End Property - _ - Public ReadOnly Property ConDefaultRDGatewayUsageMethod() As String + Public Property ConDefaultRDGatewayUsageMethod() As String Get Return CType(Me("ConDefaultRDGatewayUsageMethod"),String) End Get + Set + Me("ConDefaultRDGatewayUsageMethod") = value + End Set End Property - _ - Public ReadOnly Property ConDefaultRDGatewayUseConnectionCredentials() As String + Public Property ConDefaultRDGatewayUseConnectionCredentials() As String Get Return CType(Me("ConDefaultRDGatewayUseConnectionCredentials"),String) End Get + Set + Me("ConDefaultRDGatewayUseConnectionCredentials") = value + End Set End Property False - + Never - + Yes diff --git a/mRemoteV1/app.config b/mRemoteV1/app.config index 542ed898..82c54f14 100644 --- a/mRemoteV1/app.config +++ b/mRemoteV1/app.config @@ -5,9 +5,6 @@
- -
- @@ -497,6 +494,12 @@ False + + Never + + + Yes + mRemoteNG @@ -523,14 +526,4 @@ - - - - Never - - - Yes - - -