如何以编程方式确定 TMemo 中文本行的高度？

Question

我有一个 TMemo，并且我希望始终将其设置得足够高以显示它包含的行数。不幸的是，我不太知道如何计算。我无法将其基于 .Font.Size 属性，因为这会根据 DPI 的不同而有所不同。而且我无法使用 TCanvas.TextHeight 因为 TMemo 似乎没有画布。

有人知道如何正确执行此操作吗？

Answer 1

我看到一个问题，我认为 TMemo 上的所有行在高度上都相等，但有些行可能是空的...

因此，获取空行的高度将给出零，而它们在 TMemo 上的高度不是零。

因此，解决方案可能会执行类似 Memo.Lines.Count*LineHeight 的操作

，请注意，Canvas.TextHeight 可能无法获取 Lineheight，因为 Canvas.TextHeight 或多或少会给出文本最小高度的精确高度...我的意思是它将文本“ABC”的高度不与“ABCp”的高度相同...

我建议（如果不想调用 Windows API）使用 Font.Height，但如果它是负数，则每行的内部行距不是测量...

所以我建议执行接下来的步骤（已测试）：

• 在 OnCreate 事件或任何您想要的地方为 Memo.Font.Height 指定一个正值，这样 TMemo 的行高将是您指定的
• Total 值现在可以通过 Memo.Lines.Count*LineHeight 直接获得高度，因为您已为 Memo.Font.Height 指定了一个正值（请记住，这将使 Memo.Font.Size 为否定）

我个人在 TForm OnCreate 事件上执行此操作（以确保仅执行一次），只是为了确保视觉字体大小不更改并且 MyMemo.Font.Height 包括每行的内部行距：

MyMemo.Font.Height:=Abs(MyMemo.Font.Size*MyMemo.Font.PixelsPerInch div Screen.PixelsPerInch);

确保仅执行前一个一次，否则文本大小会明显变得越来越大，与您运行它的次数一样多...这是因为并非总是 MyMemo.Font.PixelsPerInch 等于 Screen.PixelsPerInch...在我的情况下它们是分别为80和96。

然后，当我需要知道行高时，我只需使用：

Abs(MyMemo.Font.Height*Screen.PixelsPerInch div 72)

这给出了一个 TMemo 行的精确高度，因为所有行都具有相同的高度，总高度将是：

MyMemo.Lines.Count*Abs(MyMemo.Font.Height*Screen.PixelsPerInch div 72)

因此，为了使 TMemo 高度与其包含的文本一样大这个（阅读每一行的注释，它们非常重要）：

MyMemo.Font.Height:=Abs(MyMemo.Font.Size*MyMemo.Font.PixelsPerInch div Screen.PixelsPerInch); // I do this on the Tform OnCreate event, to ensure only done once
MyMemo.Height:=1+MyMemo.Lines.Count*Abs(MyMemo.Font.Height*Screen.PixelsPerInch div 72); // I do this anywhere after adding the text and/or after editing it

我你不想玩 Screen.PixelsPerInch 你可以这样做（阅读每一行的注释，它们非常重要）：

MyMemo.Font.Height:=Abs(MyMemo.Font.Height); // This may make text size to visually change, that was why i use the corrector by using MyMemo.Font.PixelsPerInch and Screen.PixelsPerInch
MyMemo.Height:=1+MyMemo.Lines.Count*Abs(MyMemo.Font.Height*MyMemo.Font.PixelsPerInch div 72);

希望这可以帮助任何人。

Answer 2

为此，您需要使用 TCanvas。您可以在后台创建一个 TBitMap 并使用它的 TCanvas（在将 Memo 的 Font 属性分配给 Bitmap.Canvas 的属性之后），或者使用另一个组件中的 TCanvas。像这样的事情：

BMP:=TBitMap.Create;
TRY
  BMP.Canvas.Font.Assign(Memo.Font);
  TotalHeight:=0;
  FOR LineNo:=1 TO Memo.Lines.Count DO INC(TotalHeight,BMP.Canvas.TextHeight(Memo.Lines[PRED(I)]))
FINALLY
  FreeAndNIL(BMP)
END;

编辑：

或者也许是这个：

BMP:=TBitMap.Create;
TRY
  BMP.Canvas.Font.Assign(Memo.Font);
  LineHeight:=BMP.Canvas.TextHeight('Wq');
  TotalHeight:=Memo.Lines.Count*LineHeight
FINALLY
  FreeAndNIL(BMP)
END;

Answer 3

您可以为 TMemo 编写自己的 TCanvas.TextHeight 实现：

function CountMemoLineHeights(Memo: TMemo): Integer;
var
  DC: HDC;
  SaveFont: HFont;
  Size: TSize;
  I: Integer;

begin
  DC:= GetDC(Memo.Handle);
  SaveFont:= SelectObject(DC, Memo.Font.Handle);
  Size.cX := 0;
  Size.cY := 0;
//  I have not noticed difference in actual line heights for TMemo,
//    so the next line should work OK
  Windows.GetTextExtentPoint32(DC, 'W', 1, Size);
//  BTW next (commented) line returns Size.cY = 0 for empty line (Memo.Lines[I] = '') 
//    Windows.GetTextExtentPoint32(DC, Memo.Lines[I], Length(Memo.Lines[I]), Size);
  Result:= Memo.Lines.Count * Size.cY;
  SelectObject(DC, SaveFont);
  ReleaseDC(Memo.Handle, DC);
end;

Answer 4

我最初建议查看 TMemo 中的“Lines”TStrings 列表成员。

相反，请查看父类 TCustomEdit 中的“Font”成员。

'希望有帮助..PS