Add TLinkLabel from Delphi 2010. Todo: doc & example.

Components/BidiCtrls.pas

@@ -2,20 +2,18 @@ unit BidiCtrls;
 
 {
   Inno Setup
-  Copyright (C) 1997-2007 Jordan Russell
+  Copyright (C) 1997-2024 Jordan Russell
   Portions by Martijn Laan
   For conditions of distribution and use, see LICENSE.TXT.
 
   RTL-capable versions of standard controls
-
-  $jrsoftware: issrc/Components/BidiCtrls.pas,v 1.2 2007/11/27 04:52:53 jr Exp $
 }
 
 interface
 
 uses
   Windows, SysUtils, Messages, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls;
+  StdCtrls, ExtCtrls;
 
 type
   TNewEdit = class(TEdit)
@@ -53,6 +51,11 @@ type
     procedure CreateParams(var Params: TCreateParams); override;
   end;
 
+  TNewLinkLabel = class(TLinkLabel)
+  protected
+    procedure CreateParams(var Params: TCreateParams); override;
+  end;
+
 procedure Register;
   
 implementation
@@ -123,4 +126,12 @@ begin
   SetBiDiStyles(Self, Params);
 end;
 
+{ TNewLinkLabel }
+
+procedure TNewLinkLabel.CreateParams(var Params: TCreateParams);
+begin
+  inherited;
+  SetBiDiStyles(Self, Params);
+end;
+
 end.

Components/UniPs

@@ -1 +1 @@
-Subproject commit cb4a077428e9b1daeb1653b08d297200bd21e4bb
+Subproject commit b0d63ded120276b0721534b598695913a59b6c76

Projects/Src/ScriptClasses_C.pas

@@ -260,6 +260,7 @@ begin
   Cl.AddClassN(Cl.FindClass('TButton'), 'TNewButton');
   Cl.AddClassN(Cl.FindClass('TCheckBox'), 'TNewCheckBox');
   Cl.AddClassN(Cl.FindClass('TRadioButton'), 'TNewRadioButton');
+  Cl.AddClassN(Cl.FindClass('TLinkLabel'), 'TNewLinkLabel');
 end;
 
 procedure RegisterNewNotebook_C(Cl: TPSPascalCompiler);
@@ -633,6 +634,8 @@ begin
   SIRegisterTBevel(Cl);
   SIRegisterTCustomPanel(Cl);
   SIRegisterTPanel(Cl);
+  SIRegisterTCustomLinkLabel(Cl);
+  SIRegisterTLinkLabel(Cl);
 
   { ComObj }
   SIRegister_ComObj(Cl);

Projects/Src/ScriptClasses_R.pas

@@ -156,6 +156,7 @@ begin
   Cl.Add(TNewButton);
   Cl.Add(TNewCheckBox);
   Cl.Add(TNewRadioButton);
+  Cl.Add(TNewLinkLabel);
 end;
 
 procedure TNewNotebookPages_R(Self: TNewNotebook; var T: TNewNotebookPage; const t1: Integer); begin T := Self.Pages[t1]; end;
@@ -410,6 +411,8 @@ begin
     RIRegisterTBevel(Cl);
     RIRegisterTCustomPanel(Cl);
     RIRegisterTPanel(Cl);
+    RIRegisterTCustomLinkLabel(Cl);
+    RIRegisterTLinkLabel(Cl);
 
     { ComObj }
     RIRegister_ComObj(ScriptInterpreter);