VPF::Расчет ширины строки в Edit - Форум программистов

mvin

Дата 31.1.2005, 23:44 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Нужно узнать сколько символов из строки "влезет" в видимую часть Edit.

Есть функция GetTextExtentExPoint, но она работает только с контекстом устройства.

А как передать ей контекст Edit? Или вначале нужно контексту устройства назначить параметры шрифта Edit? Тогда как? smile

Если кто сталкивался с такой проблемой подскажите.

<Spawn>

Дата 1.2.2005, 07:43 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 1
Всего: 64

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  EditDC: HDC;
  Size: TSize;
begin
  EditDC := GetDC(Edit1.Handle);
  try
    GetTextExtentPoint32(EditDC, PAnsiChar(Edit1.Text),
      Length(Edit1.Text), Size);
    //Чего то делаем с получеными данными
  finally
    ReleaseDC(Edit1.Handle, EditDC);
  end;
end;

Это сообщение отредактировал(а) <Spawn> - 1.2.2005, 07:43

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »