Есть TLabel у него AutoSize=false, WordWrap=true. Как узнать высоту текста записанного в него?

Здравствуйте, lsv, Вы писали:

lsv>Есть TLabel у него AutoSize=false, WordWrap=true. Как узнать высоту текста записанного в него?

var
    R: TRect;
    H: Integer
begin
    SetRect(R, 0, 0, Label.Width, 0);
    H := DrawText(Canvas.Handle, PChar(Label.Caption), -1,
        R, DT_CALCRECT or DT_WORDBREAK);
    // ...
end;

Здравствуйте, lsv, Вы писали:

lsv>Есть TLabel у него AutoSize=false, WordWrap=true. Как узнать высоту текста записанного в него?

Может так подойдёт?

uses Types;

    ...

var
    tsize: tagSIZE;

    ...

  GetTextExtentpoint(Lablel.Canvas.Handle, PChar(Lablel.Caution), length(Lablel.Caution), tsize);
    
    tsize.cx
    tsize.cy

Здравствуйте, mpn_arv, Вы писали:

_>

_>uses Types;

_>    ...

_>var
_>    tsize: tagSIZE;

_>    ...

_>  GetTextExtentpoint(Lablel.Canvas.Handle, PChar(Lablel.Caution), length(Lablel.Caution), tsize);
    
_>    tsize.cx
_>    tsize.cy
    
    
_>

1) Зачем использовать tagSize когда есть человеческий TSize???
2) Зачем для локальных переменных использовать имена существующих типов???
3) Что есть Caution??? Типа внимание, ща вылетит птичка ? Ну я конечно догадываюсь что Caption, но повеселил
4) Ну и результат естественно будет не всегда верный

Здравствуйте, ekamaloff, Вы писали:

E>1) Зачем использовать tagSize когда есть человеческий TSize???
Это не имеет принципиального значения. Каждый использует то, что пивычней.

E>2) Зачем для локальных переменных использовать имена существующих типов???
Для примера что в голову пришло.

E>3) Что есть Caution??? Типа внимание, ща вылетит птичка ? Ну я конечно догадываюсь что Caption, но повеселил
Это есть опечатка.

E>4) Ну и результат естественно будет не всегда верный
Какие случаи имеются ввиду?

Здравствуйте, mpn_arv, Вы писали:

E>>4) Ну и результат естественно будет не всегда верный
_> Какие случаи имеются ввиду?

Забыл упомянуть что решение подходит для однострочного текста.

Здравствуйте, mpn_arv, Вы писали:

E>>1) Зачем использовать tagSize когда есть человеческий TSize???
_> Это не имеет принципиального значения. Каждый использует то, что пивычней.

Это не имеет принципиального значения когда ты работаешь один.

E>>4) Ну и результат естественно будет не всегда верный
_> Какие случаи имеются ввиду?

Когда текст не вмещается по ширине и переносится на следующую строку (возможно несколько строк). Твой вариант всегда возвращает высоту одной строки.

Здравствуйте, mpn_arv, Вы писали:

_>Забыл упомянуть что решение подходит для однострочного текста.

А нафига ты его привел тогда?

Здравствуйте, ekamaloff, Вы писали:

E>>>1) Зачем использовать tagSize когда есть человеческий TSize???
_>> Это не имеет принципиального значения. Каждый использует то, что пивычней.

E>Это не имеет принципиального значения когда ты работаешь один.
В данном случае это просто пример, не надо утрировать.


E>>>4) Ну и результат естественно будет не всегда верный
_>> Какие случаи имеются ввиду?

E>Когда текст не вмещается по ширине и переносится на следующую строку (возможно несколько строк). Твой вариант всегда возвращает высоту одной строки.
Не совсем верно понял вопрос. Про одну строку согласен на все 100.

Из 2-х предложенных вариантов верный только:

h = DrawText(Label3->Canvas->Handle, Label3->Caption.c_str(), -1, &Rrr, DT_CALCRECT | DT_WORDBREAK);

Я задал вопрос, чтобы понять как определить высоту текста в Label, когда он именно переносится на новые строки. Сперва попробовал выриант h = Label3->Canvas->TextHeight(Label3->Caption); он оказался неверным, тогда и зашел на форум.

E>>>1) Зачем использовать tagSize когда есть человеческий TSize???
_>> Это не имеет принципиального значения. Каждый использует то, что пивычней.
E>Это не имеет принципиального значения когда ты работаешь один.

Коллективные привычки — тоже привычки Может у них _в_команде_ так привычнее.

Кстати, вроде у TCanvas есть метод TextExtent ?

Здравствуйте, <Аноним>, Вы писали:

А>Коллективные привычки — тоже привычки Может у них _в_команде_ так привычнее.

Если в команде привычнее использовать tagSize имхо это какая-то неправильная команда.

А>Кстати, вроде у TCanvas есть метод TextExtent ?

Есть, но при чем тут он? Он работает через тот же GetTextExtentPoint

Здравствуйте, ekamaloff, Вы писали:

E>Здравствуйте, <Аноним>, Вы писали:

А>>Коллективные привычки — тоже привычки Может у них _в_команде_ так привычнее.

E>Если в команде привычнее использовать tagSize имхо это какая-то неправильная команда.

А>>Кстати, вроде у TCanvas есть метод TextExtent ?

E>Есть, но при чем тут он? Он работает через тот же GetTextExtentPoint

Т.е. использовать типы из С-шного Win SDK — это изврат и неправильная команда.
Использовать вместо родных для VCL (вероятно также и CLX и VCL.Net) функции и того же C-шного Win SDK — это нормально, и даже "при чем тут" родные VCL-ные методы.

Почему для типов изврат — одно, а для функций — изврат противоположное ?