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

Вниз

Как узнать длину записи в пикселах написи в визуальном компоненте   Найти похожие ветки 

 
novill ©   (2006-06-19 16:51) [0]

Есть строка и есть  Font, которым она написана.


 
Игорь Шевченко ©   (2006-06-19 17:09) [1]

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;


 
begin...end ©   (2006-06-19 17:10) [2]

Контекст тоже нужен будет. Тогда GetTextExtentPoint32 (или TCanvas.TextWidth).


 
novill ©   (2006-06-19 17:32) [3]

Спасибо.



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

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

Наверх




Память: 0.47 MB
Время: 0.054 c
2-1149477417
antoxa2005
2006-06-05 07:16
2006.07.09
Подскажите, а как открыть БД Access монопольно?


1-1149017519
redlord
2006-05-30 23:31
2006.07.09
как узнать родителя окна по указателю


2-1150407291
Просьба
2006-06-16 01:34
2006.07.09
Как передать в класс рекорд?


2-1150523990
brus
2006-06-17 09:59
2006.07.09
базы данных


11-1129885598
tico-tico
2005-10-21 13:06
2006.07.09
Tabstop у Combobox