关于STRINGGRID的高难问题

Question

需要在STRINGGRID中实现如下功能:
拖动STRINGGRID列时,列中的文字根据列的宽度自动缩放,请指点

Answer 1

文字的大小改变去改变高度就知道。
你能不能给各数组，算出宽度然后对应一个font大小啊

Answer 2

要用到一个函数计算字符串的显示宽度。GetTextExtentPoint32
在 OwnerDrawCell 根据 Cell 的宽度计算出合理的 Font.Size 
再用 DrawText or TextOut 来画。有点麻烦。