Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.19;
Скачать: CL | DM;

Вниз

Как вычислить длину строки в пикселях?   Найти похожие ветки 

 
ed18 ©   (2003-05-06 10:24) [0]

Как вычислить длину строки в пикселях? Я пробовал мазать на канвас и через TextWidth определять но почемуто получил не точный результат(Canvas.size и Canvas.Name выставлял}. А вобще хотелось бы без Canvas"ов вычислять.


 
Anatoly Podgoretsky ©   (2003-05-06 11:25) [1]

Вычисляй через TCanvas.TextWidth


 
PVOzerski ©   (2003-05-06 11:42) [2]

В свое время я написал такое:

function GetSize(DC:tHandle;s:string):tSize;
var
size:tSize;
begin
GetTextExtentPoint(DC,pChar(s),length(s),Size);
GetTextExtentPoint32(DC,pChar(s),length(s),Result);
if Result.cx<Size.cx then
Result.cx:=Size.cx;
if Result.cy<Size.cy then
Result.cy:=Size.cy;
end;

Здесь DC, конечно, скорее всего, Canvas.Handle (ну, или результат GetDC и т.п.). А совсем без Canvas нельзя - ведь интересующее Вас значение зависит от свойств выбранного фонта, который может быть разным в разных контролах.

Поясню смысл такой "загадочной" конструкции. Мой опыт показал, что для TrueType правильнее результат дает GetTextExtentPoint32, а для шрифтов старого типа - GetTextExtentPoint. По-хорошему бы надо проверять, принадлежит ли фонт к TrueType, но моя задача решалась и выше показанным путем, тем более что у меня не было ни малейшей уверенности, что поведение этих функций одинаково в разных версиях Виндов (я работал в NT4).



Страницы: 1 вся ветка

Текущий архив: 2003.05.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
14-59872
Snap
2003-04-28 12:37
2003.05.19
Помогите, Линукс не ставится


3-59598
Deedlit
2003-04-27 13:46
2003.05.19
SQL запрос: поиск двойников


3-59562
avkar
2003-04-26 22:33
2003.05.19
Create table


14-59935
Dimich1978
2003-04-30 11:20
2003.05.19
есть ли у кого библиотека math.tpu для ПАСКАЛЯ


3-59620
VoronBor
2003-04-28 02:56
2003.05.19
Paradox таблицы в SQl используя ADO