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

Вниз

autoSize по горизонтали у TEdit   Найти похожие ветки 

 
click   (2007-09-28 10:04) [0]

Доброго времени суток. Вобщем-то нужно определить длину текста в пикселях, и скоректировать под эту длину Edit. Как определить длину текста в пикселях?


 
Anatoly Podgoretsky ©   (2007-09-28 10:12) [1]

> click  (28.09.2007 10:04:00)  [0]

Компонент для ввода, размер текста заранее не определен.
Размер в пикселях можно определить через TextWidth


 
Ega23 ©   (2007-09-28 10:42) [2]


function GetTextWidthInPixels(AText: string; AControl: TControl): integer;
// Copyright by Игорь Шевченко ©
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;


 
Kot Andrei ©   (2007-09-28 10:56) [3]

Спасибо Ega23 и Игорь Шевченко наиогромнейшее! )


 
Ega23 ©   (2007-09-28 11:02) [4]

мне-то за что? Это Игорю спасибо говори


 
Kot Andrei ©   (2007-09-28 11:06) [5]

за то что не поленился выложить )


 
Anatoly Podgoretsky ©   (2007-09-28 11:11) [6]

> Ega23  (28.09.2007 11:02:04)  [4]

Тебе спасибо з а цитирование, а Игорю за красивый, продуманный код.



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

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

Наверх




Память: 0.48 MB
Время: 0.021 c
4-1176881042
Грициан
2007-04-18 11:24
2007.10.21
Подмена сиволов в окне сторонней программы


2-1190532007
San1712
2007-09-23 11:20
2007.10.21
Как записать в реестр параметр типа REG_DWORD ?


15-1190253868
Slider007
2007-09-20 06:04
2007.10.21
С днем рождения ! 20 сентября 2007 четверг


15-1190458347
vasIZmax
2007-09-22 14:52
2007.10.21
Четыре часа возился с такой проблемой.


11-1174071703
AnalogXP
2007-03-16 22:01
2007.10.21
Нужна маленькая программа