gpt4 book ai didi

delphi - 计算 Delphi TMemo 中每行的最大字符数

转载 作者:行者123 更新时间:2023-12-02 22:26:31 25 4
gpt4 key购买 nike

我有一个 TMemo。

我想在 TMemo 的每一行中添加一些文本,而不使用自动换行行。我需要计算在没有 TMemo 在该行中自动换行的情况下可以在一行中放入多少个字符。

伪代码:

function calculate_max_chars_per_line_in_Memo():Integer;
var w,l:integer;
begin
w:=getwidth from tmemo;
l:=lenght of a font char;
Result:=trunc(w/l);
end;

我可以这样做吗?

最佳答案

请注意,大多数字体的字符具有可变宽度(CourierTerminal 是固定宽度字体的示例)。请参阅 TFont.Pitch。

因此,如果您准备使用固定字体,请使用 Canvas 查找字符宽度一次。 TextWidth并使用该值来确定最大字符串长度。

对于可变字体,您必须检查每个字符串的宽度 - 'lllll' 的像素比 'wwwww' 等短。当然,您可以尝试找到具有最大宽度的最短字符序列并使用其长度。请注意,最宽的字符(以及字符与符号间空格的组合)取决于所使用的字体。

var
s: string;
Margins: Integer;
begin
Margins := Memo1.Perform(EM_GETMARGINS, 0, 0);
Margins := LongRec(Margins).Lo + LongRec(Margins).Hi;
s := 'ababababababababababababababababababababababab';

//be sure that Canvas font is the same as Memo font
while Canvas.TextWidth(s) >= Memo1.ClientWidth - Margins - 1 do
Delete(s, Length(s), 1);
Memo1.Lines.Add(s);

替代方法 - 使用 DrawText(Ex) WinAPI 函数找到 Memo 的宽度以容纳文本。

关于delphi - 计算 Delphi TMemo 中每行的最大字符数,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/35409963/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com