Текущий архив: 2005.12.04;
Скачать: CL | DM;
Вниз
Отображаемый в 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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.025 c
