Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.28;
Скачать: CL | DM;

Вниз

Определение длины строки   Найти похожие ветки 

 
Lamer2002   (2002-03-13 14:13) [0]

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


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

Canvas.TextExtent
Canvas.TextWidth
Canvas.TextHeight


 
MBo ©   (2002-03-13 14:33) [2]

в пикселах - 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)




Страницы: 1 вся ветка

Текущий архив: 2002.03.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-90868
Juckser
2002-03-05 20:53
2002.03.28
Как сделать, чтобы при открытии Wave-файла запускалась моя программа, и MediaPlayer в ней, воспроизвел этот файл?


3-90802
Дима С.
2002-02-28 11:14
2002.03.28
Oracle Call Interface (OCI)


1-90972
ivit61
2002-03-13 10:52
2002.03.28
Поиск метода по адресу


1-90914
IronHawk
2002-03-18 18:19
2002.03.28
Проблема, разыва дробного числа !


1-90833
Лана Розанова
2002-03-16 13:13
2002.03.28
Удаление