在Inno Setup Pascal Script中获取字符串的宽度和高度

Question

无论如何，我可以在Pascal Script中获得字符串的宽度和高度吗？

例如：

var
  S: String;

S := 'ThisIsMyStringToBeChecked'

这里我需要根据当前的字体大小和字体返回其高度和宽度。

我阅读了如何获取字符串的TextWidth（没有Canvas）？，但无法将其转换为Inno Setup Pascal代码。

我想用这个尺寸(宽度和高度)来改变< code >标签。当标题的字符串宽度超过< code>TLabel时，标题类似于< code >“太长，无法显示”，带有< code>clRed。宽度。

提前谢谢。

Answer 1

以下操作适用于TNewStticText（不是TLabel）：

type
  TSize = record
    cx, cy: Integer;
  end;

function GetTextExtentPoint32(hdc: THandle; s: string; c: Integer;
  var Size: TSize): Boolean;
  external '[e-mail] stdcall';
function GetDC(hWnd: THandle): THandle;
  external '[e-mail] stdcall';
function SelectObject(hdc: THandle; hgdiobj: THandle): THandle;
  external '[e-mail] stdcall';

procedure SmartSetCaption(L: TNewStaticText; Caption: string);
var
  hdc: THandle;
  Size: TSize;
  OldFont: THandle;
begin
  hdc := GetDC(L.Handle);
  OldFont := SelectObject(hdc, L.Font.Handle);
  GetTextExtentPoint32(hdc, Caption, Length(Caption), Size);
  SelectObject(hdc, OldFont);

  if Size.cx > L.Width then
  begin
    L.Font.Color := clRed;
    L.Caption := 'Too long to display';
  end
    else
  begin
    L.ParentFont := True;
    L.Caption := Caption;
  end;
end;