Register TNewLinkLabel.AdjustHeight.

Projects/Src/ScriptClasses_C.pas

@@ -260,7 +260,10 @@ 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');
+  with Cl.AddClassN(Cl.FindClass('TLinkLabel'), 'TNewLinkLabel') do
+  begin
+    RegisterMethod('function AdjustHeight: Integer');
+  end;
 end;
 
 procedure RegisterNewNotebook_C(Cl: TPSPascalCompiler);

Projects/Src/ScriptClasses_R.pas

@@ -156,7 +156,10 @@ begin
   Cl.Add(TNewButton);
   Cl.Add(TNewCheckBox);
   Cl.Add(TNewRadioButton);
-  Cl.Add(TNewLinkLabel);
+  with Cl.Add(TNewLinkLabel) do
+  begin
+    RegisterMethod(@TNewLinkLabel.AdjustHeight, 'AdjustHeight');
+  end;
 end;
 
 procedure TNewNotebookPages_R(Self: TNewNotebook; var T: TNewNotebookPage; const t1: Integer); begin T := Self.Pages[t1]; end;