Форум: "Основная";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];

Вниз

Ширина текста в TWinControl   Найти похожие ветки 

← →
Sirruf   (2004-05-20 14:38) [0]

Может быть, вопрос тривиальный, но в факах так ничего и не нашел. Как узнать сабж, чтобы в случае если текст не помещается в компонент TRxLookupEdit, выдавать хинт с полным текстом?

---

← →
WebErr ©   (2004-05-20 14:43) [1]

GetCharABCWidth + F1

---

← →
Игорь Шевченко ©   (2004-05-20 14:53) [2]

> Ширина текста в TWinControl

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;


---

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

Форум: "Основная";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.046 c