Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Вниз

Определение длины строки 


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)




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.021 c
4-91108           Velocity              2002-01-25 22:33  2002.03.28  
Скриншот десктопа


1-90878           JustMan               2002-03-17 15:20  2002.03.28  
Как узнать в какой папке находится Windows?


4-91132           Itspets               2002-01-27 20:41  2002.03.28  
API функция есть в NT, но нет в Win9x


1-90991           kronos                2002-03-14 13:29  2002.03.28  
Смена активного поля.


14-91040          Knight                2002-02-12 16:51  2002.03.28  
Вот такая вот бадья... Пришло мне на мыло...