Single Post - Высота шрифта в пикселах

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Usergroups

Single Post

Author

Message

SCHMaster

Posted: Wed Mar 16, 2005 03:47 Post subject:

Parcan

Code:

....
var
Sz:TSize;
....
GetTextExtentPoint32(GetDC(MyHandle),PChar(MyCaption),Length(MyCaption), Sz)
....

Sz.x - ширина твоего текста
Sz.y - высота. И (IMHO) не нужно морочить одно место. Smile

.
Предварительно, ессно, известный HFONT нужно присвоить окну, на котором будет текст

Code:

SendMessage(MyHandle,wm_setfont,HFONT ,1);