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

Question

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

Answer 1

看起来像group box control（在Delphi / VCL中称为TGroupBox），而不是斜角。

但在Inno Setup中没有公开组框控件。

作为替代方案，只需将TLabel放在TBevel之上即可。确保将标签的Transparent属性设置为False。

在Windows Vista及更高版本上，您还可以为填充添加hair space。您需要Unicode版本的Inno Setup（但无论如何你都应该使用它）。

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;