Providing backwards theme compatibility

Author: lmbelo

Source/Design/PythonTools.Design.dfm

@@ -10,6 +10,7 @@ object DesignForm: TDesignForm
   Font.Height = -12
   Font.Name = 'Segoe UI'
   Font.Style = []
+  OldCreateOrder = True
   PixelsPerInch = 96
   TextHeight = 15
 end

Source/Design/PythonTools.Design.pas

@@ -1,3 +1,4 @@
+{$I PythonTools.inc}
 unit PythonTools.Design;
 
 interface
@@ -7,10 +8,13 @@ interface
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ToolsAPI;
 
 type
-  TDesignForm = class(TForm, INTAIDEThemingServicesNotifier)
+  TDesignForm = class(TForm {$IFDEF DELPHI10_2_UP}, INTAIDEThemingServicesNotifier{$ENDIF DELPHI10_2_UP})
   private
+    {$IFDEF DELPHI10_2_UP}
     FIDEThemingNotifierId: integer;
+    {$ENDIF DELPHI10_2_UP}
   private
+    {$IFDEF DELPHI10_2_UP}
     //IOTANotifier
     procedure AfterSave;
     procedure BeforeSave;
@@ -19,6 +23,7 @@   TDesignForm = class(TForm, INTAIDEThemingServicesNotifier)
     //INTAIDEThemingServicesNotifier
     procedure ChangingTheme();
     procedure ChangedTheme();
+    {$ENDIF DELPHI10_2_UP}
   protected
     procedure RegisterIDEThemingNotifier();
     procedure UnRegisterIDEThemingNotifier();
@@ -40,11 +45,17 @@ implementation
 constructor TDesignForm.Create(AOwner: TComponent);
 begin
   inherited;
+{$IFDEF DELPHI10_2_UP}
+  {$IFDEF DELPHI10_4_UP}
   with (BorlandIDEServices as IOTAIDEThemingServices) do begin
+  {$ELSE}
+  with (BorlandIDEServices as IOTAIDEThemingServices250) do begin
+  {$ENDIF DELPHI10_4_UP}
     RegisterFormClass(TCustomFormClass(Self.ClassType));
     ApplyIDETheming();
     RegisterIDEThemingNotifier();
   end;
+{$ENDIF DELPHI10_2_UP}
 end;
 
 destructor TDesignForm.Destroy;
@@ -53,6 +64,8 @@ destructor TDesignForm.Destroy;
   inherited;
 end;
 
+{$IFDEF DELPHI10_2_UP}
+
 procedure TDesignForm.AfterSave;
 begin
 end;
@@ -78,25 +91,33 @@ procedure TDesignForm.ChangedTheme;
   ApplyIDETheming();
 end;
 
+{$ENDIF DELPHI10_2_UP}
+
 procedure TDesignForm.ApplyIDETheming;
 begin
+{$IFDEF DELPHI10_2_UP}
   with (BorlandIDEServices as IOTAIDEThemingServices) do begin
     ApplyTheme(Self);
   end;
+{$ENDIF DELPHI10_2_UP}
 end;
 
 procedure TDesignForm.RegisterIDEThemingNotifier;
 begin
+{$IFDEF DELPHI10_2_UP}
   with (BorlandIDEServices as IOTAIDEThemingServices) do begin
     FIDEThemingNotifierId := AddNotifier(Self);
   end;
+{$ENDIF DELPHI10_2_UP}
 end;
 
 procedure TDesignForm.UnRegisterIDEThemingNotifier;
 begin
+{$IFDEF DELPHI10_2_UP}
   with (BorlandIDEServices as IOTAIDEThemingServices) do begin
     RemoveNotifier(FIDEThemingNotifierId);
   end;
+{$ENDIF DELPHI10_2_UP}
 end;
 
 end.