Martijn Laan hai 1 ano
pai
achega
6bc0f675e1
Modificáronse 2 ficheiros con 4 adicións e 6 borrados
  1. 2 4
      Examples/CodeClasses.iss
  2. 2 2
      iscrypt.iss

+ 2 - 4
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 }
 

+ 2 - 2
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);