组件标题+自定义组件页高度

Question

我有两个@Martin Prikryl代码，我无法让它们一起工作。

1. Inno安装程序中较大的“选择组件”页面
2. 关于Inno安装组件的详细说明

我遵循了Martin说的关于@TLama代码的所有说明，但是这些代码并没有一起工作。

当我激活代码以更改页面高度时，不会出现组件标题。

我想要一个方法来合并他们，使他们一起工作。

Answer 1

我通过将页面的自定义高度值添加到组件标题代码的CompLabel.Top来解决这个问题。

我还必须将过程更改为CurPageChanged，并创建一个<event( ' ' )>来合并这两个代码，并创建一个指令#define CustomPageHeight "ScaleY(200)"来定义页面的自定义高度。

                        // Set page height here
#define CustomPageHeight "ScaleY(200)"

[Code]

// Final part of code for component captions

Var StopCall: Boolean;
    <event('CurPageChanged')> // Added event here
Procedure CurPageChanged1(CurPageID: Integer);
Begin
  If StopCall = false Then
    Begin
      If CurPageID = wpWelcome Then
        Begin
          SetTimer(0, 0, 50, CreateCallback(@HoverTimerProc));

          CompLabel := TLabel.Create(WizardForm);
          CompLabel.Parent := WizardForm.SelectComponentsPage;
          CompLabel.Left := WizardForm.ComponentsList.Left;
          CompLabel.Width := WizardForm.ComponentsList.Width;
          CompLabel.Height := ScaleY(37);                                                   // Added here
          CompLabel.Top := WizardForm.ComponentsList.Top + WizardForm.ComponentsList.Height + {#CustomPageHeight} - CompLabel.Height;
          
          CompLabel.AutoSize := False;
          CompLabel.WordWrap := True;

          WizardForm.ComponentsList.Height := WizardForm.ComponentsList.Height - CompLabel.Height - ScaleY(2);
          StopCall := true;
        End;
    End;
End;

// Code for custom height page 

var
  CompPageModified: Boolean;
    <event('CurPageChanged')> // Added event here
procedure CurPageChanged2(CurPageID: Integer);
begin
  if CurpageID = wpSelectComponents then
  begin                                     // Changed here
    WizardForm.Height := WizardForm.Height + {#CustomPageHeight};
    CompPageModified := True;
  end
    else
  if CompPageModified then
  begin                                     // Changed here
    WizardForm.Height := WizardForm.Height - {#CustomPageHeight};
    CompPageModified := False;
  end;
end;