Sync from PC

Author: sebaxakerhtc

src-rdpcheck/MainUnit.dcu

@@ -1,29 +1,28 @@
-object Frm: TFrm
-  Left = 0
-  Top = 0
-  BorderIcons = [biSystemMenu, biMinimize]
-  BorderStyle = bsSingle
-  Caption = 'Local RDP Checker'
-  ClientHeight = 480
-  ClientWidth = 640
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
-  OldCreateOrder = False
-  Position = poDesktopCenter
-  OnCreate = FormCreate
-  PixelsPerInch = 96
-  TextHeight = 13
-  object RDP: TMsRdpClient2
-    Left = 0
-    Top = 0
-    Width = 640
-    Height = 480
-    TabOrder = 0
-    OnDisconnected = RDPDisconnected
-    ControlData = {0003000008000200000000000B0000000B000000}
-  end
-end
+object Frm: TFrm
+  Left = 0
+  Top = 0
+  AutoSize = True
+  BorderIcons = [biSystemMenu, biMinimize]
+  BorderStyle = bsSingle
+  Caption = 'Local RDP Checker by sebaxakerhtc'
+  ClientHeight = 600
+  ClientWidth = 800
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  Position = poDesktopCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RDP: TMsRdpClient7NotSafeForScripting
+    Left = 0
+    Top = 0
+    Width = 800
+    Height = 600
+    TabOrder = 0
+    ControlData = {0008000008000200000000000B0000000B000000}
+  end
+end

src-rdpcheck/MainUnit.dfm

@@ -24,7 +24,7 @@ interface
 
 type
   TFrm = class(TForm)
-    RDP: TMsRdpClient2;
+    RDP: TMsRdpClient7NotSafeForScripting;
     procedure RDPDisconnected(ASender: TObject; discReason: Integer);
     procedure FormCreate(Sender: TObject);
   private

src-rdpcheck/MainUnit.pas

@@ -1,31 +1,28 @@
-{
-  Copyright 2014 Stas'M Corp.
-
-  Licensed under the Apache License, Version 2.0 (the "License");
-  you may not use this file except in compliance with the License.
-  You may obtain a copy of the License at
-
-      http://www.apache.org/licenses/LICENSE-2.0
-
-  Unless required by applicable law or agreed to in writing, software
-  distributed under the License is distributed on an "AS IS" BASIS,
-  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-  See the License for the specific language governing permissions and
-  limitations under the License.
-}
-
-program RDPCheck;
-
-uses
-  Forms,
-  MainUnit in 'MainUnit.pas' {Frm};
-
-{$R *.res}
-
-begin
-  Application.Initialize;
-  Application.MainFormOnTaskbar := True;
-  Application.Title := 'Local RDP Checker';
-  Application.CreateForm(TFrm, Frm);
-  Application.Run;
-end.
+{
+  Copyright 2014 Stas'M Corp.
+  Licensed under the Apache License, Version 2.0 (the "License");
+  you may not use this file except in compliance with the License.
+  You may obtain a copy of the License at
+      http://www.apache.org/licenses/LICENSE-2.0
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+}
+program RDPCheck;
+uses
+  Forms,
+  MainUnit in 'MainUnit.pas' {Frm},
+  Vcl.Themes,
+  Vcl.Styles;
+
+{$R *.res}
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.Title := 'Local RDP Checker';
+  Application.CreateForm(TFrm, Frm);
+  Application.CreateForm(TFrm, Frm);
+  Application.Run;
+end.