代码之家 › 专栏 › 技术社区 › Colin Macleod

Tk文本小部件-获取行和字符的新大小

tk tcl

0

Colin Macleod · 技术社区 · 7 年前

创建Tk文本小部件时,可以将其大小指定为 -height -width 以默认字体中的行和字符度量。

<Configure> 事件将以%h和%w的像素报告新大小。做 cget -height 或 cget -width

1 回复 | 直到 7 年前

1

2

Brad Lanam 7 年前

您可以以像素为单位计算宽度并进行估计:

set width [expr {round($pwidth/[font measure TkTextFont 0])}]

高度大概是:

set height [expr {round($pheight/[font metrics TkTextFont -linespace])}]

替代品 TkTextFont 使用实际使用的字体。