label - 如何在 Inno Setup 中的斜角线上创建标签

Question

昨天我发现了一个新的设置。它在斜角线上有一个标签。那么，如何在 Inno Setup 中像这样在斜角线上创建和设置标签？

Answer 1

看起来像 group box control (在 Delphi/VCL 中称为 TGroupBox )，而不是斜角。
但是分组框控件在 Inno Setup 中没有公开。
作为替代方案，只需放置一个 TLabel在 TBevel 之上.确保您设置了标签的 Transparent属性(property)到False .
在 Windows Vista 和更新版本上，您还可以添加 hair space周围的填充。为此，您需要 Inno Setup 的 Unicode 版本(Inno Setup 6 的唯一版本)。

procedure InitializeWizard;
var
  Page: TWizardPage;
  Bevel: TBevel;
  Caption: TLabel;
begin
  Page := CreateCustomPage(wpWelcome, '', '');

  Bevel := TBevel.Create(WizardForm);
  with Bevel do
  begin
    Parent := Page.Surface;
    Shape := bsFrame;
    Left := ScaleX(0);
    Top := ScaleY(8);
    Width := ScaleX(417);
    Height := ScaleY(220);
  end;

  Caption := TLabel.Create(WizardForm);
  with Caption do
  begin
    Parent := Page.Surface;
    Left := Bevel.Left + ScaleX(8);
    Top := Bevel.Top - ScaleY(6);
    Transparent := False;
    Caption := 'Caption';

    { On Vista and newer, add padding using a hair space }
    if GetWindowsVersion >= $06000000 then
      Caption := #$200A + Caption + #$200A;
  end;
end;