Как определить, сколько максимально символов заданного шрифта (TrueType или системного) поместится на ширине в пикселах? Т.е. ширина компонента известна, надо определсить длину строки, чтобы она заняла всю ширину компонента.

Код

var   k: Integer; begin   k := 0;   while Image1.Canvas.TextWidth(stringofchar('a', k)) < Image1.Width do     inc(k);   ShowMEssage('Max char count: '+IntToStr(k)); end;

Добавлено @ 21:44
Подсчёт маскимального кол-ва символов помещающихся на Canvas'е TImage.

Вместо придумывания велосипеда для переноса текста можно воспользоватся функцией DrawText.

Спасибо Yanis
А что делать, если у окошка известно тольно hWnd?
Я тут покопался в MSDN и нашел, что с помощью GetTextMetrics можно получить структуру TTextMetric, а в ней есть поля tmAveCharWidth: Longint;(ср.ширина символа) и tmMaxCharWidth: Longint;(макс.ширина символа) в относительных единицах. Спрашивается: как эти единицы в пикселы перевести?


Добавлено @ 23:28
s-mike Мне вот именно надо велосипед придумать

Это сообщение отредактировал(а) tripsin - 17.5.2005, 23:30

Цитата(tripsin @ 17.5.2005, 23:27)

s-mike Мне вот именно надо велосипед придумать smile

Функция DrawText может и TextWidth заменить. И в качестве входного параметра ей как раз и нужно DC окна.

А что общественность думает по поводу вот этого кода? :

Код

var  DC: HDC;  Metrics: TTextMetric;  CharInWidth: Integer;  OldMapMode: Integer; begin   DC := GetWindowDC(ListBox1.Handle); // Получаем контекст окна     SelectObject(DC, ListBox1.Font.Handle);//Выбираем в него шрифт окна     OldMapMode := GetMapMode(DC);// Запоминаем старый режим отображения     SetMapMode(DC, MM_TEXT); //Устанавлмваем отображение в пикселях     GetTextMetrics(DC, Metrics); //Получаем параметры шрифта     SetMapMode(DC, OldMapMode);//Восстанавливаем режим отображения   ReleaseDC(ListBox1.Handle, DC); //Освобождаем контекст   //Получаем количестов средних символов на ширину окна   CharsInWidth := ListBox1.ClientWidth div Metrics.tmAveCharWidth; end;

Цитата(tripsin @ 18.5.2005, 11:47)

А что общественность думает по поводу вот этого кода? :

Больше напоминает изобретание велосипеда

Мне кажется это лучше, чем простой подбор.

tripsin, ну зачем же простой подбор? DrawText с флагом DT_CALCRECT возвращает точные размеры текста.

Мне нужно разбить длинную строку, на кусочки такой ширины, чтобы они влезали в окно (вручную). Выводить их сразу не надо и DrawText (при всех его достоинчтвах) мне не нужен.

З.Ы. С DT_CALCRECT расчитывается прямоугольник вывода, а он как раз известен.

tripsin, ты все таки не понял, DrawText нужно вычислять длину строки. Она тебе возвратит минимальный прямоугольник, необходимый для вывода строки. Вот и найди ширину этого прямоугольника. Это и будет ширина строки. Есть еще GetTextExtentPoint32, используемая для TextWidth.

s-mike Это ты не понял. Задача в точности до наоборот. У меня уже есть прямоугольник, и надо посчитать сколько символов заданного шрифта влезет в этот прямоугольник по ширине. На выходе должно быть количество символов, а не размеры прямоугольника.

tripsin, я говорю, что с помощью этих функций, написанных всего одной строкой, можно заменить код, приведенный тут: http://forum.vingrad.ru/index.php?showtopi...ndpost&p=413987. Я думаю, что использовать среднюю ширину символов не стоит, тут нужна точность. Я думаю так. У нас есть слова, разделенные пробелом. Читаем последовательно слова, суммируем их ширину. При добавлении каждого следующего слова, если слова превышают максимальную длину строки, то новое слово не добавляем, а переходим на следующую строку. Я бы и код написал, жаль времени сейчас нет, поздно уже.

Цитата

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

Хм... Я подожду

То, что ты описал делает функция WrapText.

Цитата

если слова превышают максимальную длину строки,

Вот ее-то как раз и надо найти.