VPF::обрезание текста в StatusBar.panels - Форум программистов

TheCetus

Дата 31.3.2006, 11:36 (ссылка)

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

Загрузка ...

Шустрый

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

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

Если уж к вопросу подходим педантично smile

, то надо определить сколько пикселей прибавлять 1, 2 или 3.
Посмотрел на рабочей машине, сравнил, получается что надо добавлять 2 пиксела. НО с другими шрифтами это значение может меняться... Есть возможность как нибудь определить сколько конкретно пикселей надо прибавлять?

sexton

Дата 31.3.2006, 12:13 (ссылка)

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

Загрузка ...

sexton=Пономарь (eng)

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

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

Вот взял из бессмертного справочника советов по Билдеру (попробовал перевести в Delphi):

Цитата

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

Код


{ Напишите следующий код:}
var 
  a : AnsiString;
  WidthOfString :integer; 
  HeightOfString :integer;
begin
a := 'Hello';
WidthOfString := Canvas.TextWidth(a);
HeightOfString := Canvas.TextHeight(a);
TSize SizeOfString := Canvas.TextExtent(a);

{У структуры TSize два поля cx и cy размеры
по горизонтали и вертикали}
end.

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

Поставить +

ЖЖ
Рассылка Рассылок

TheCetus

Дата 31.3.2006, 14:45 (ссылка)

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

Загрузка ...

Шустрый

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

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

я с самого начала использовал TextWidth, но этого не достаточно...
Сейчас у меня в приложении ширина панельки вычисляется сл способом

Код


var
  pnlText : string;
  Rect1 , Rect0 : TRect;
  ww, bWidth : integer;
  delta : integer;
begin
  SendMessage(StatusBar.Handle, SB_GETRECT, 0, LParam(@Rect0));
  SendMessage(StatusBar.Handle, SB_GETRECT, 1, LParam(@Rect1));
  bWidth := (Rect1.Left - Rect0.Right);
  StatusBar.Canvas.Font := StatusBar.Font;
  ww := StatusBar.Canvas.TextWidth(pnlText);
  delta := 0;  // определить расстояние от текста до бордюра панельки
  StatusBar.Panels.Items[0].Width := ww + bWidth + delta;
end;

при таком выводе текста отступ слева есть а справа нет, как определить значение delta, чтобы отступ справа был в точности равен отступу слева?

TheCetus

Дата 31.3.2006, 18:35 (ссылка)

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

Загрузка ...

Шустрый

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

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

спасибо всем!

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