Главная страница
    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.047 c
2-1191116003
trigger
2007-09-30 05:33
2007.10.21
данные за последние 5 минут


15-1190638144
Empleado
2007-09-24 16:49
2007.10.21
И почему я - не таракан?!


3-1181812956
Antoneiro
2007-06-14 13:22
2007.10.21
DATASET в EXCEL/XML и обратно


15-1190286598
ANTPro
2007-09-20 15:09
2007.10.21
Подкажите программу


2-1191114938
trigger
2007-09-30 05:15
2007.10.21
не отображаются данные в Gride





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский