VPF::Длинна текста в пикселях - Форум программистов

Bodya

Дата 21.8.2003, 13:33 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 13.6.2003

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

Как получить длинну текста в пикселях?

<Spawn>

Дата 21.8.2003, 14:30 (ссылка)

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

Загрузка ...

Око кары:)

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

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

функция GetTextExtentPoint32.
Но проще всего использовать класс Canvas, в котором все это реализовано.(Методы TextWidth, TextHeight и т.д.)

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

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

Bodya

Дата 22.8.2003, 11:26 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 13.6.2003

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

У меня немного сложнее (как мне кажется). Есть переменная типа string. Нужно получить длинну текста который записан в эту переменную именно в пикселях. Это нужно для того чтоб установить свойство Width у компанента TStatusPenel равное длинне текста переменной.
Короче говоря если текст не влазит в TStatusPenel.Text , то TStatusPenel должен раздвинуться.

<Spawn>

Дата 22.8.2003, 12:02 (ссылка)

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

Загрузка ...

Око кары:)

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

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

Посмотри это:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
TestLabel:TLabel;
TextWidth:Integer;
begin
try
 TestLabel:=TLabel.Create(nil);
 Testlabel.Parent:=Self;
 TestLabel.Font.Assign(StatusBar1.Font);
 Testlabel.Caption:=Edit1.Text;
 TextWidth:=TestLabel.Canvas.TextWidth(TestLabel.Caption)+4; //прибавка 4 необходима, поскольку помимо длины самого текста нужно учитывать расстояние от TStatusPanel.Left до текста и от текста до TStatusPanel.Right
finally
 FreeAndNil(TestLabel);
end;
if StatusBar1.Panels[0].Width<TextWidth then
 StatusBar1.Panels[0].Width:=TextWidth;
StatusBar1.Panels[0].Text:=Edit1.Text;
end;

Это сообщение отредактировал(а) <Spawn> - 22.8.2003, 12:04

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

Bodya

Дата 22.8.2003, 12:19 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 13.6.2003

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

Спасибо! Все заработало.
Ура!

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