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

Вниз

Отображаемый в Label текст   Найти похожие ветки 

← →
Ilg   (2005-11-08 16:09) [0]

Здравствуйте!
Скажите можно ли каким-нибудь способом получить текст Label (Caption) в том виде, как он отображается? Поясню: допустим, установлено св-во WordWrap=true, и текст Caption отображается в несколько строк, хотя на самом деле представляет одну длинную строку. Как узнать кол-во строк при отображении?
Заранее, Большое Спасибо!

---

← →
Leonid Troyanovsky ©   (2005-11-08 16:50) [1]

> Ilg   (08.11.05 16:09)  

>  установлено св-во WordWrap=true, и текст Caption отображается
> в несколько строк, хотя на самом деле представляет одну
> длинную строку. Как узнать кол-во строк при отображении?


Попробуй примерно так:


type
 TCrackLabel = class(TLabel);

procedure TForm1.Button1Click(Sender: TObject);
var
 arect: TRect;
 FontHeight: Longint;
begin
 FontHeight:=Label1.Canvas.TextHeight("Y");
 TCrackLabel(Label1).DoDrawText(arect, DT_CALCRECT);
 Caption := IntToStr(aRect.Bottom div FontHeight);
end;


--
Regards, LVT.

---

← →
Суслик ©   (2005-11-09 10:56) [2]

я бы на всякий случай перед вызовом TextHeight явно установил font для canvas.

---

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

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

Наверх

Память: 0.45 MB
Время: 0.035 c