![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Длина текста через Canvas [D6, Win95/98, WinXP]
saNat © (2005-01-27 18:26:00)Доброго времени суток (о:
Я пишу компонент-наследник TCustomPanel. Нужно сделать "обрезание" текста, например, по длине Width, найдя длину текста через Canwas.TextWidth().
Первоначально планировал сделать так:
Procedure TValuePanel.SetValue(Text:String);
Begin
While (Canvas.TextWidth(Text)>=(fEditButton.Left-5)) Do
Text:=Copy(Text,1,Length(Text)-1);
Caption:=' '+Text;
End;
Вопрос, где можно найти Canvas, если у родителя её нет.
С уважением, ЕВА
MBo (2005-01-27 18:35:00) [21]Как это нет?????