| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Определение длины строки [D5, Win95/98]

Lamer2002 ©   (2002-03-13 14:13:00) 

Как узнать длину строки, предположим в Memo, но только не в символах (так как символы разной длины бывают), а в каких-нибудь условных единицах( ну или в мм, мкм, км,....)? Очень нужно. Заранее благодарю.

---

MBo   (2002-03-13 14:33:00) [1]

в пикселах - textwidth.
для этого надо иметь Canvas - у Memo недоступно - можно создать временный битмап с таким же шрифтом (пример в FAQ для edit) или посложнее:
uses...typinfo;

function GetTextWidthInPixels(AText: string; AControl: TControl): integer;
var
propInfo: PPropInfo;
thisFont: TFont;
begin
Result := 0;

propInfo := GetPropInfo(AControl.ClassInfo, "Font");

if propInfo <> nil then begin
thisFont := TFont(GetObjectProp(AControl, "Font"));

if Assigned(thisFont) then
with TControlCanvas.Create do
try
Control := AControl;
Font.Assign(thisFont);
Result := TextWidth(AText);
finally
Free;
end;
end;
end;


Ralph (TeamB)

---

Nebula   (2002-03-13 14:30:00) [2]

Canvas.TextExtent
Canvas.TextWidth
Canvas.TextHeight

---

Наверх