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

Вниз

перевод строки   Найти похожие ветки 

 
Schema ©   (2002-07-24 16:21) [0]

всем привет
может кто вспомнит как узнать длину строки в пикселах.
(нужно знать полностью ли строка помещается например в Edit"e, ширина которого ессно известна).
спасибо.


 
MBo ©   (2002-07-24 16:24) [1]

canvas.textwidth


 
Игорь Шевченко ©   (2002-07-24 16:32) [2]

К примеру, так:


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;



С уважением,


 
Schema ©   (2002-07-24 16:40) [3]

спасибо за помощь ;)



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

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

Наверх




Память: 0.47 MB
Время: 0.012 c
1-13684
dimonf
2002-07-23 19:45
2002.08.05
Народ, помогите разобраться с dll – ми Delphi.


1-13653
Cosinus
2002-07-23 13:15
2002.08.05
Помогите. Проблеммы с переводом программы из DOS в Windows


8-13724
Master Denis
2002-03-27 15:58
2002.08.05
Как подобраться к видео и аудио кодекам?


1-13602
newUser
2002-07-24 17:17
2002.08.05
WinXP


7-13835
Chief
2002-05-22 09:24
2002.08.05
Набор телефонного номера