центрирование надписи в заголовке формы

Может кто-то решил эту проблему:
THISFORM.WIDTH=TXTWIDTH(ALLTRIM(m.tcCaption),THISFORM.FONTNAME,THISFORM.FONTSIZE,m.cFontStyle)*FONTMETRIC(6,THISFORM.FONTNAME,THISFORM.FONTSIZE,m.cFontStyle)
THISFORM.Caption = PADC(REPLICATE("d",50),THISFORM.WIDTH/FONTMETRIC(6,THISFORM.FONTNAME,THISFORM.FONTSIZE))
Ни как не хочет центрировать. При изменении размеров окна уползает в сторону.

Автор публикации

Пользователи не найдены
0
Оставить комментарий
Авторизация
*
*
Генерация пароля