Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.10.21;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.051 c
3-1182153666
mefodiy
2007-06-18 12:01
2007.10.21
SQL запрос с использованием LIKE


2-1190791085
smartleds
2007-09-26 11:18
2007.10.21
Добрый день, подскажите плз при помощи нажатия на кнопку создать


15-1190031263
_aqtime_
2007-09-17 16:14
2007.10.21
Профилировка aqtime


1-1186312251
fd979
2007-08-05 15:10
2007.10.21
ТЕlSideBar


2-1190890507
l_v
2007-09-27 14:55
2007.10.21
Сообщения другим приложениям





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский