Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.05.19;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
14-59884
alxx
2003-04-29 09:59
2003.05.19
Печать ActiveX контролов в Access e


1-59718
Nikos
2003-05-04 18:00
2003.05.19
Обработка исключительных ситуаций


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


1-59705
Валерий
2003-05-05 14:12
2003.05.19
TAction в SDI-приложении


7-59975
URSUS
2003-03-21 12:30
2003.05.19
Интересный глюк!!! Помогите найти решение





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский