Simplify.

gilsondelima · May 10, 2024 · 6bc0f67 · 6bc0f67
1 parent 4eebe9b
commit 6bc0f67
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 6 deletions.
diff --git a/Examples/CodeClasses.iss b/Examples/CodeClasses.iss
@@ -244,8 +244,7 @@ begin
   StaticText2.Caption := 'TNewStaticText with more text and an adjusted label height so it''s multi-line.';
   StaticText2.Width := 2 * StaticText.Width;
   StaticText2.Parent := Page.Surface;
-
-  WizardForm.AdjustLabelHeight(StaticText2);
+  StaticText2.AdjustHeight;
 
   LinkLabel := TNewLinkLabel.Create(Page);
   LinkLabel.AutoSize := False;
@@ -256,8 +255,7 @@ begin
   LinkLabel.Width := StaticText2.Width;
   LinkLabel.OnLinkClick := @LinkLabelOnLinkClick;
   LinkLabel.Parent := Page.Surface;
-
-  WizardForm.AdjustLinkLabelHeight(LinkLabel);
+  LinkLabel.AdjustHeight;
 
   { TNewProgressBar }
 

diff --git a/iscrypt.iss b/iscrypt.iss
@@ -66,8 +66,8 @@ begin
     WordWrap := True;
     Caption := ALabel1Caption;
     Parent := Page.Surface;
+    AdjustHeight;
   end;
-  WizardForm.AdjustLabelHeight(Label1);
 
   Label2 := TNewStaticText.Create(Page);
   with Label2 do begin
@@ -78,8 +78,8 @@ begin
     WordWrap := True;
     Caption := ALabel2Caption;
     Parent := Page.Surface;
+    AdjustHeight;
   end;
-  WizardForm.AdjustLabelHeight(Label2);
   
   CreateCustomOption(Page, ACheckCaption, CheckBox, Label2);