Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

RDP connections can now be switched to full screen mode when redirect…

… key combinations is enabled.
  • Loading branch information...
commit b23fb58977f53181e354b53ca1b9148ba9742e16 1 parent 7b831c6
Riley McArdle authored
1  CHANGELOG.TXT
@@ -8,6 +8,7 @@
8 8 Fixed issue MR-381 - Notifications panel - whitespace context menu allows Copy and Delete on nothing
9 9 The username and domain settings are now hidden for VNC connections since they are not supported.
10 10 Changed "Automatically get session information" to be disabled by default.
  11 + RDP connections can now be switched to full screen mode when redirect key combinations is enabled.
11 12
12 13 1.71 Beta 1 (2013-03-04):
13 14 Added feature MR-329 - Create Option to disable the "Quick: " prefix
17 mRemoteV1/Connection/Connection.Protocol.RDP.vb
@@ -42,16 +42,9 @@ Namespace Connection
42 42 Try
43 43 If Not _redirectKeys Then Return
44 44
45   - RDP.AdvancedSettings2.ContainerHandledFullScreen = 1
46   - RDP.AdvancedSettings2.DisplayConnectionBar = False
47   - RDP.AdvancedSettings2.PinConnectionBar = False
48   -
49   - If RDPVersion >= Versions.RDC70 Then
50   - Dim msRdpClientNonScriptable As MSTSCLib.IMsRdpClientNonScriptable5 = RDP.GetOcx()
51   - msRdpClientNonScriptable.DisableConnectionBar = True
52   - End If
53   -
54   - RDP.FullScreen = True
  45 + Debug.Assert(RDP.SecuredSettingsEnabled)
  46 + Dim msRdpClientSecuredSettings As MSTSCLib.IMsRdpClientSecuredSettings = RDP.SecuredSettings2
  47 + msRdpClientSecuredSettings.KeyboardHookMode = 1 ' Apply key combinations at the remote server.
55 48 Catch ex As Exception
56 49 MessageCollector.AddMessage(Messages.MessageClass.ErrorMsg, My.Language.strRdpSetRedirectKeysFailed & vbNewLine & ex.Message, True)
57 50 End Try
@@ -104,7 +97,7 @@ Namespace Connection
104 97 RDP.AdvancedSettings3.MaxReconnectAttempts = My.Settings.RdpReconnectionCount
105 98 RDP.AdvancedSettings2.keepAliveInterval = 60000 'in milliseconds (10.000 = 10 seconds)
106 99 RDP.AdvancedSettings5.AuthenticationLevel = 0
107   - RDP.AdvancedSettings.EncryptionEnabled = 1
  100 + RDP.AdvancedSettings2.EncryptionEnabled = 1
108 101
109 102 RDP.AdvancedSettings2.overallConnectionTimeout = 20
110 103
@@ -222,7 +215,7 @@ Namespace Connection
222 215 SmartSize Then Return
223 216
224 217 Dim size As Size
225   - If RedirectKeys Or Not Fullscreen Then
  218 + If Not Fullscreen Then
226 219 size = Control.Size
227 220 Else
228 221 size = Screen.FromControl(Control).Bounds.Size
8 mRemoteV1/UI/UI.Window.Connection.vb
@@ -448,12 +448,8 @@ Namespace UI
448 448 If IC.Info.Protocol = mRemoteNG.Connection.Protocol.Protocols.RDP Then
449 449 Dim rdp As mRemoteNG.Connection.Protocol.RDP = IC.Protocol
450 450
451   - If rdp.RedirectKeys Then
452   - cmenTabFullscreen.Enabled = False
453   - Else
454   - cmenTabFullscreen.Enabled = True
455   - cmenTabFullscreen.Checked = rdp.Fullscreen
456   - End If
  451 + cmenTabFullscreen.Enabled = True
  452 + cmenTabFullscreen.Checked = rdp.Fullscreen
457 453
458 454 cmenTabSmartSize.Enabled = True
459 455 cmenTabSmartSize.Checked = rdp.SmartSize

0 comments on commit b23fb58

Please sign in to comment.
Something went wrong with that request. Please try again.