I:=DrawText(DC, PChar(Caption), Length(Caption), Rect, DT_CALCRECT
or DT_WORDBREAK);
Height := (I shr 1);
По идее DrawText должен возвращать высоту получившегося текста, а на
деле I получается в два раза больше. Приходится его делить на два.
Кто знает, почему так происходит?