| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как определить размер строки в пикселах?
Анд © (2003-07-22 11:22:00)
нужно вывести строку на канвас посередине экрана через textout
Думкин (2003-07-24 10:26:00) [1]
var
Canvas : TCanvas;
DC : HDC
Canvas := TCanvas.Create;
DC := GetDC(0);
Canvas.Handle := DC;
s := "text";
Canvas.TextOut((Screen.Width-Canvas.TextWidth(s)) div 2,(Screen.Height-Canvas.TextHeight(s)) div 2,s);
Release(DC);
Canvas.Free;
Хотя может и вру. Можно без TCanvas. Тогда все в АПИ надо, а это можно - посмотри реализацию все этих функций и все.
MyNik (2003-07-24 10:01:00) [2]
Да, экран. Попробуй Display.Width и Display.Height. Отьсюда сможещь вычислить середину экрана. Положение надписи:
X -> (Display.Width+Canvas.TextWidth("text")) div 2
Y -> (Display.Height+Canvas.TextHeight("text")) div 2
А как вывести это прямо на экран, минуя твой Application, сразу так и не скажу.
MyNik (2003-07-24 09:26:00) [3]
А еще есть Canvas.TextHeight("text")
BOA_KAA (2003-07-22 13:17:00) [4]
> Darrin © (22.07.03 11:34)
Canvas.text width("text") ;)
Darrin (2003-07-22 11:34:00) [5]
Canvas.textlength("text")
| |
