TMsTscAxNotSafeForScripting = class(TOleControl)
private
FOnConnecting: TNotifyEvent;
FOnConnected: TNotifyEvent;
FOnLoginComplete: TNotifyEvent;
FOnDisconnected: TMsTscAxNotSafeForScriptingOnDisconnected;
FOnEnterFullScreenMode: TNotifyEvent;
FOnLeaveFullScreenMode: TNotifyEvent;
FOnChannelReceivedData: TMsTscAxNotSafeForScriptingOnChannelReceivedData;
FOnRequestGoFullScreen: TNotifyEvent;
FOnRequestLeaveFullScreen: TNotifyEvent;
FOnFatalError: TMsTscAxNotSafeForScriptingOnFatalError;
FOnWarning: TMsTscAxNotSafeForScriptingOnWarning;
FOnRemoteDesktopSizeChange: TMsTscAxNotSafeForScriptingOnRemoteDesktopSizeChange;
FOnIdleTimeoutNotification: TNotifyEvent;
FOnRequestContainerMinimize: TNotifyEvent;
FOnConfirmClose: TNotifyEvent;
FOnReceivedTSPublicKey: TMsTscAxNotSafeForScriptingOnReceivedTSPublicKey;
FOnAutoReconnecting: TMsTscAxNotSafeForScriptingOnAutoReconnecting;
FOnAuthenticationWarningDisplayed: TNotifyEvent;
FOnAuthenticationWarningDismissed: TNotifyEvent;
FOnRemoteProgramResult: TMsTscAxNotSafeForScriptingOnRemoteProgramResult;
FOnRemoteProgramDisplayed: TMsTscAxNotSafeForScriptingOnRemoteProgramDisplayed;
FOnRemoteWindowDisplayed: TMsTscAxNotSafeForScriptingOnRemoteWindowDisplayed;
FOnLogonError: TMsTscAxNotSafeForScriptingOnLogonError;
FOnFocusReleased: TMsTscAxNotSafeForScriptingOnFocusReleased;
FOnUserNameAcquired: TMsTscAxNotSafeForScriptingOnUserNameAcquired;
FOnMouseInputModeChanged: TMsTscAxNotSafeForScriptingOnMouseInputModeChanged;
FOnServiceMessageReceived: TMsTscAxNotSafeForScriptingOnServiceMessageReceived;
FOnConnectionBarPullDown: TNotifyEvent;
FOnNetworkStatusChanged: TMsTscAxNotSafeForScriptingOnNetworkStatusChanged;
FOnDevicesButtonPressed: TNotifyEvent;
FOnAutoReconnected: TNotifyEvent;
FOnAutoReconnecting2: TMsTscAxNotSafeForScriptingOnAutoReconnecting2;
FIntf: IMsTscAx;
function GetControlInterface: IMsTscAx;
protected
procedure CreateControl;
procedure InitControlData; override;
function Get_SecuredSettings: IMsTscSecuredSettings;
function Get_AdvancedSettings: IMsTscAdvancedSettings;
function Get_Debugger: IMsTscDebug;
public
procedure Connect;
procedure Disconnect;
procedure CreateVirtualChannels(const newVal: WideString);
procedure SendOnVirtualChannel(const chanName: WideString; const ChanData: WideString);
property ControlInterface: IMsTscAx read GetControlInterface;
property DefaultInterface: IMsTscAx read GetControlInterface;
property Connected: Smallint index 6 read GetSmallintProp;
property HorizontalScrollBarVisible: Integer index 17 read GetIntegerProp;
property VerticalScrollBarVisible: Integer index 18 read GetIntegerProp;
property FullScreenTitle: WideString index 19 write SetWideStringProp;
property CipherStrength: Integer index 20 read GetIntegerProp;
property Version: WideString index 21 read GetWideStringProp;
property SecuredSettingsEnabled: Integer index 22 read GetIntegerProp;
property SecuredSettings: IMsTscSecuredSettings read Get_SecuredSettings;
property AdvancedSettings: IMsTscAdvancedSettings read Get_AdvancedSettings;
property Debugger: IMsTscDebug read Get_Debugger;
published
property Anchors;
property TabStop;
property Align;
property DragCursor;
property DragMode;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property Visible;
property OnDragDrop;
property OnDragOver;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnStartDrag;
property Server: WideString index 1 read GetWideStringProp write SetWideStringProp stored False;
property Domain: WideString index 2 read GetWideStringProp write SetWideStringProp stored False;
property UserName: WideString index 3 read GetWideStringProp write SetWideStringProp stored False;
property DisconnectedText: WideString index 4 read GetWideStringProp write SetWideStringProp stored False;
property ConnectingText: WideString index 5 read GetWideStringProp write SetWideStringProp stored False;
property DesktopWidth: Integer index 12 read GetIntegerProp write SetIntegerProp stored False;
property DesktopHeight: Integer index 13 read GetIntegerProp write SetIntegerProp stored False;
property StartConnected: Integer index 16 read GetIntegerProp write SetIntegerProp stored False;
property OnConnecting: TNotifyEvent read FOnConnecting write FOnConnecting;
property OnConnected: TNotifyEvent read FOnConnected write FOnConnected;
property OnLoginComplete: TNotifyEvent read FOnLoginComplete write FOnLoginComplete;
property OnDisconnected: TMsTscAxNotSafeForScriptingOnDisconnected read FOnDisconnected write FOnDisconnected;
property OnEnterFullScreenMode: TNotifyEvent read FOnEnterFullScreenMode write FOnEnterFullScreenMode;
property OnLeaveFullScreenMode: TNotifyEvent read FOnLeaveFullScreenMode write FOnLeaveFullScreenMode;
property OnChannelReceivedData: TMsTscAxNotSafeForScriptingOnChannelReceivedData read FOnChannelReceivedData write FOnChannelReceivedData;
property OnRequestGoFullScreen: TNotifyEvent read FOnRequestGoFullScreen write FOnRequestGoFullScreen;
property OnRequestLeaveFullScreen: TNotifyEvent read FOnRequestLeaveFullScreen write FOnRequestLeaveFullScreen;
property OnFatalError: TMsTscAxNotSafeForScriptingOnFatalError read FOnFatalError write FOnFatalError;
property OnWarning: TMsTscAxNotSafeForScriptingOnWarning read FOnWarning write FOnWarning;
property OnRemoteDesktopSizeChange: TMsTscAxNotSafeForScriptingOnRemoteDesktopSizeChange read FOnRemoteDesktopSizeChange write FOnRemoteDesktopSizeChange;
property OnIdleTimeoutNotification: TNotifyEvent read FOnIdleTimeoutNotification write FOnIdleTimeoutNotification;
property OnRequestContainerMinimize: TNotifyEvent read FOnRequestContainerMinimize write FOnRequestContainerMinimize;
property OnConfirmClose: TNotifyEvent read FOnConfirmClose write FOnConfirmClose;
property OnReceivedTSPublicKey: TMsTscAxNotSafeForScriptingOnReceivedTSPublicKey read FOnReceivedTSPublicKey write FOnReceivedTSPublicKey;
property OnAutoReconnecting: TMsTscAxNotSafeForScriptingOnAutoReconnecting read FOnAutoReconnecting write FOnAutoReconnecting;
property OnAuthenticationWarningDisplayed: TNotifyEvent read FOnAuthenticationWarningDisplayed write FOnAuthenticationWarningDisplayed;
property OnAuthenticationWarningDismissed: TNotifyEvent read FOnAuthenticationWarningDismissed write FOnAuthenticationWarningDismissed;
property OnRemoteProgramResult: TMsTscAxNotSafeForScriptingOnRemoteProgramResult read FOnRemoteProgramResult write FOnRemoteProgramResult;
property OnRemoteProgramDisplayed: TMsTscAxNotSafeForScriptingOnRemoteProgramDisplayed read FOnRemoteProgramDisplayed write FOnRemoteProgramDisplayed;
property OnRemoteWindowDisplayed: TMsTscAxNotSafeForScriptingOnRemoteWindowDisplayed read FOnRemoteWindowDisplayed write FOnRemoteWindowDisplayed;
property OnLogonError: TMsTscAxNotSafeForScriptingOnLogonError read FOnLogonError write FOnLogonError;
property OnFocusReleased: TMsTscAxNotSafeForScriptingOnFocusReleased read FOnFocusReleased write FOnFocusReleased;
property OnUserNameAcquired: TMsTscAxNotSafeForScriptingOnUserNameAcquired read FOnUserNameAcquired write FOnUserNameAcquired;
property OnMouseInputModeChanged: TMsTscAxNotSafeForScriptingOnMouseInputModeChanged read FOnMouseInputModeChanged write FOnMouseInputModeChanged;
property OnServiceMessageReceived: TMsTscAxNotSafeForScriptingOnServiceMessageReceived read FOnServiceMessageReceived write FOnServiceMessageReceived;
property OnConnectionBarPullDown: TNotifyEvent read FOnConnectionBarPullDown write FOnConnectionBarPullDown;
property OnNetworkStatusChanged: TMsTscAxNotSafeForScriptingOnNetworkStatusChanged read FOnNetworkStatusChanged write FOnNetworkStatusChanged;
property OnDevicesButtonPressed: TNotifyEvent read FOnDevicesButtonPressed write FOnDevicesButtonPressed;
property OnAutoReconnected: TNotifyEvent read FOnAutoReconnected write FOnAutoReconnected;
property OnAutoReconnecting2: TMsTscAxNotSafeForScriptingOnAutoReconnecting2 read FOnAutoReconnecting2 write FOnAutoReconnecting2;
end;