From 1b87b746fbe95f9c5c9308b9acf62d4cb41f0e54 Mon Sep 17 00:00:00 2001
From: delphilite <delphilite@users.noreply.github.com>
Date: Sat, 8 Oct 2016 00:19:47 +0800
Subject: [PATCH] =?UTF-8?q?1=E3=80=81=E6=B8=85=E7=90=86=E5=9E=83=E5=9C=BE?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 10.1.UP1/Activator/MainFrm_1.$$$ | 49 --------------------------------
 10.1/Activator/MainFrm_1.$$$     | 49 --------------------------------
 2 files changed, 98 deletions(-)
 delete mode 100644 10.1.UP1/Activator/MainFrm_1.$$$
 delete mode 100644 10.1/Activator/MainFrm_1.$$$

diff --git a/10.1.UP1/Activator/MainFrm_1.$$$ b/10.1.UP1/Activator/MainFrm_1.$$$
deleted file mode 100644
index f6d2388..0000000
--- a/10.1.UP1/Activator/MainFrm_1.$$$
+++ /dev/null
@@ -1,49 +0,0 @@
-{ KOL MCK } // Do not remove this line!
-
-procedure NewMainForm( var Result: PMainForm; AParent: PControl );
-begin
-
-  {$IFDEF KOLCLASSES}
-  Result := PMainForm.Create;
-  {$ELSE OBJECTS}
-  New( Result, Create );
-  {$ENDIF KOL CLASSES/OBJECTS}
-  Result.Form := NewForm( AParent, 'Delphi 10.1 Berlin Activator' ).SetPosition( 8, 8 );
-  Applet :=  Result.Form;
-  Result.Form.Add2AutoFree( Result );
-    Result.Form.Style := Result.Form.Style and not (WS_MINIMIZEBOX or WS_MAXIMIZEBOX);
-    Result.Form.SetClientSize( 534, 122 );
-      Result.Form.OnMessage := Result.kolMainFormMessage;
-      Result.Form.OnShow := Result.kolMainFormShow;
-      Result.Form.OnDestroy := Result.kolMainFormDestroy;
-    Result.btnAbout := NewButton( Result.Form, '&About' ).SetPosition( 325, 16 ).SetSize( 90, 90 );
-    {$IFDEF USE_MHTOOLTIP}
-    Result.btnAbout.Hint.Text := 'About';
-    {$ENDIF USE_MHTOOLTIP}
-    Result.btnReset := NewButton( Result.Form, '&Reset' ).SetPosition( 222, 16 ).SetSize( 90, 90 );
-    {$IFDEF USE_MHTOOLTIP}
-    Result.btnReset.Hint.Text := 'Reset Delphi 10.1';
-    {$ENDIF USE_MHTOOLTIP}
-    Result.btnExit := NewButton( Result.Form, '&Exit' ).SetPosition( 428, 16 ).SetSize( 90, 90 );
-    {$IFDEF USE_MHTOOLTIP}
-    Result.btnExit.Hint.Text := 'Exit';
-    {$ENDIF USE_MHTOOLTIP}
-    Result.btnRunX10 := NewButton( Result.Form, '&Run' ).SetPosition( 119, 16 ).SetSize( 90, 90 );
-    {$IFDEF USE_MHTOOLTIP}
-    Result.btnRunX10.Hint.Text := 'Run Delphi 10.1';
-    {$ENDIF USE_MHTOOLTIP}
-    Result.btnActive := NewButton( Result.Form, '&Active' ).SetPosition( 16, 16 ).SetSize( 90, 90 );
-    {$IFDEF USE_MHTOOLTIP}
-    Result.btnActive.Hint.Text := 'Active Delphi 10.1';
-    {$ENDIF USE_MHTOOLTIP}
-      Result.btnAbout.OnClick := Result.btnAboutClick;
-      Result.btnReset.OnClick := Result.btnResetClick;
-      Result.btnExit.OnClick := Result.btnExitClick;
-      Result.btnRunX10.OnClick := Result.btnRunX10Click;
-      Result.btnActive.OnClick := Result.btnActiveClick;
-    Result.Form.CenterOnParent.CanResize := False;
-    Result.Form.Perform( WM_INITMENU, 0, 0 );
-    Result.kolMainFormFormCreate( Result );
-
-end;
-
diff --git a/10.1/Activator/MainFrm_1.$$$ b/10.1/Activator/MainFrm_1.$$$
deleted file mode 100644
index f6d2388..0000000
--- a/10.1/Activator/MainFrm_1.$$$
+++ /dev/null
@@ -1,49 +0,0 @@
-{ KOL MCK } // Do not remove this line!
-
-procedure NewMainForm( var Result: PMainForm; AParent: PControl );
-begin
-
-  {$IFDEF KOLCLASSES}
-  Result := PMainForm.Create;
-  {$ELSE OBJECTS}
-  New( Result, Create );
-  {$ENDIF KOL CLASSES/OBJECTS}
-  Result.Form := NewForm( AParent, 'Delphi 10.1 Berlin Activator' ).SetPosition( 8, 8 );
-  Applet :=  Result.Form;
-  Result.Form.Add2AutoFree( Result );
-    Result.Form.Style := Result.Form.Style and not (WS_MINIMIZEBOX or WS_MAXIMIZEBOX);
-    Result.Form.SetClientSize( 534, 122 );
-      Result.Form.OnMessage := Result.kolMainFormMessage;
-      Result.Form.OnShow := Result.kolMainFormShow;
-      Result.Form.OnDestroy := Result.kolMainFormDestroy;
-    Result.btnAbout := NewButton( Result.Form, '&About' ).SetPosition( 325, 16 ).SetSize( 90, 90 );
-    {$IFDEF USE_MHTOOLTIP}
-    Result.btnAbout.Hint.Text := 'About';
-    {$ENDIF USE_MHTOOLTIP}
-    Result.btnReset := NewButton( Result.Form, '&Reset' ).SetPosition( 222, 16 ).SetSize( 90, 90 );
-    {$IFDEF USE_MHTOOLTIP}
-    Result.btnReset.Hint.Text := 'Reset Delphi 10.1';
-    {$ENDIF USE_MHTOOLTIP}
-    Result.btnExit := NewButton( Result.Form, '&Exit' ).SetPosition( 428, 16 ).SetSize( 90, 90 );
-    {$IFDEF USE_MHTOOLTIP}
-    Result.btnExit.Hint.Text := 'Exit';
-    {$ENDIF USE_MHTOOLTIP}
-    Result.btnRunX10 := NewButton( Result.Form, '&Run' ).SetPosition( 119, 16 ).SetSize( 90, 90 );
-    {$IFDEF USE_MHTOOLTIP}
-    Result.btnRunX10.Hint.Text := 'Run Delphi 10.1';
-    {$ENDIF USE_MHTOOLTIP}
-    Result.btnActive := NewButton( Result.Form, '&Active' ).SetPosition( 16, 16 ).SetSize( 90, 90 );
-    {$IFDEF USE_MHTOOLTIP}
-    Result.btnActive.Hint.Text := 'Active Delphi 10.1';
-    {$ENDIF USE_MHTOOLTIP}
-      Result.btnAbout.OnClick := Result.btnAboutClick;
-      Result.btnReset.OnClick := Result.btnResetClick;
-      Result.btnExit.OnClick := Result.btnExitClick;
-      Result.btnRunX10.OnClick := Result.btnRunX10Click;
-      Result.btnActive.OnClick := Result.btnActiveClick;
-    Result.Form.CenterOnParent.CanResize := False;
-    Result.Form.Perform( WM_INITMENU, 0, 0 );
-    Result.kolMainFormFormCreate( Result );
-
-end;
-