Главная страница
    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.04 c
15-1190201615
alles
2007-09-19 15:33
2007.10.21
Как в IIS (WIN2003) оставить только GET POST и HEAD?


15-1190355579
zdm77
2007-09-21 10:19
2007.10.21
ICQ игнор


2-1191245945
Light-blr
2007-10-01 17:39
2007.10.21
Потеря фокуса формой при вызове другой формы в OnActivate


2-1191129184
SveTTT
2007-09-30 09:13
2007.10.21
стирание последнего символа


3-1176821654
Kostafey
2007-04-17 18:54
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский