Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ширина кнопки [D6, WinXP]

Gemini © (2004-09-15 17:38:00)
Мастера, создаю кнопку в Run-Time. Подскажите как высчитать длину слова, заданного в Caption'e этой кнопки чтобы установить ширину кнопки. Caption заранее не известен.

Gemini (2004-09-18 20:11:00) [1]
2 Юрий Зотов: она считает больше, чем нужно. Т.е. чем длиннее текст в кнопке, тем больше получаются пустые области по краям. Примерно так: | Caption | и | ДлинныйCaption |. Почему - не знаю. Ширину кнопке даю ту, что вернула функция. Ничего не добавляю.
2 СусликЧ/з Canvas получилось. Результат стабилен (пока) :)

Gemini (2004-09-15 18:45:00) [2]
Спасибо. Буду пробовать.

Юрий Зотов (2004-09-15 18:41:00) [3]
function CalcBittonWidth(Btn: TButton): Integer;
var
DC: HDC;
R: TRect;
begin
R := Btn.ClientRect;
DC := GetDC(Btn.Handle);
try
DrawText(DC, PChar(Btn.Caption), Length(Btn.Caption), R, DT_CALCRECT);
Result := R.Right
finally
ReleaseDC(Btn.Handle, DC)
end
end;

Суслик (2004-09-15 18:09:00) [4]
Как один из вариантов:
Берешь работоспособный canvas.
Его можно взяь у самой же кнопки или с помощью TControlCanvas.
Присваиваешь font у canvas тот шрифт, которым выводится текста на кнопке.
Вызваешь у canvas метод textwidth.

Все.

Gemini (2004-09-15 18:05:00) [5]
В смысле?
Ширину я установлю. Мне нужно знать какой длины будет скажем 'Ok', а какой 'Скриншот'. Тогда ширина кнопки, например, длина+20. Вот эта длина и нужна. От класса кнопки она по-моему не зависит.

Skier (2004-09-15 18:00:00) [6]
хм...не попадался...
попробуй использовать TControlCanvas

Gemini (2004-09-15 17:57:00) [7]
TJvButton

Skier (2004-09-15 17:48:00) [8]
Класс кнопки какой ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »