Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DBGridEh и его Title

DelphiLexx © (2006-11-22 10:53:00)
Как в DBGridEh'e сделать так, чтобы названия заголовка было в одну строку, без переноса. По умолчанию так и делается, но как только я меняю TitleHeight на значение отличное от нуля, то строка заголовка, если она не в мещается в колонку переносится на другую строку как от этого избавиться.

KilkennyCat (2006-11-22 22:27:00) [1]
> Дальше у тебя 2 варианта:

мой вариант тоже неплох. Исходников не требует :)

clickmaker (2006-11-22 17:19:00) [2]

> [9] DelphiLexx © (22.11.06 17:15)
>
> > меняем жирный фрагмент на tlTop, False
>
> Нельзя ли как-нибудь не меняя исходника

голову включи. Я тебе показываю место, в котором все объясняется.
Дальше у тебя 2 варианта: тупо поменять исходник под свои нужды, либо ввести новое свойство, по значению которого можно сделать еще одну ветку условия.
И потом, если ты считаешь это багом, то почему бы его не поправить?

DelphiLexx (2006-11-22 17:15:00) [3]

> меняем жирный фрагмент на tlTop, False

Нельзя ли как-нибудь не меняя исходника

clickmaker (2006-11-22 16:15:00) [4]
идем в DBGridEh.pas
находим (у меня стр. 9302)
else if (TitleHeight <> 0) or (TitleLines <> 0) then
begin
// FillCellRect(Rect(ARect1.Right, ARect.Top, ARect.Right, ARect.Bottom), Down, CellMultiSelected);
if Orientation = tohVertical then
WriteTextVerticalEh(Canvas, ARect1, not DrawTitleByThemes, XFrameOffs, YFrameOffs + 2,
TitleText, Alignment, tlBottom, EndEllipsis, False)
else
WriteCellText {WriteTextEh}(DrawColumn, Canvas, ARect1,
not DrawTitleByThemes, XFrameOffs, YFrameOffs, TitleText,
Alignment, tlCenter, True, EndEllipsis, LeftMarg, RightMarg)
end else

меняем жирный фрагмент на tlTop, False

KilkennyCat (2006-11-22 15:59:00) [5]
> При чем здаесь DT_CALCRECT.

ты в следующий раз по злосчастному гриду сразу в "Начинаюшие" пиши. Все-таки, надо соблюдать уровень.

DelphiLexx (2006-11-22 15:55:00) [6]

> Тогда перед изменением заголовка вычислять длину (DT_CALCRECT)
> и обрезать. то же самое делать при изменении ширины столбца.
>

При чем здаесь DT_CALCRECT.

DelphiLexx (2006-11-22 15:55:00) [7]

> ColumnDefValues.Titles.EndEllipsis?

Не помагает

clickmaker (2006-11-22 11:42:00) [8]
ColumnDefValues.Titles.EndEllipsis?

KilkennyCat (2006-11-22 11:42:00) [9]
Тогда перед изменением заголовка вычислять длину (DT_CALCRECT) и обрезать. то же самое делать при изменении ширины столбца.

DelphiLexx (2006-11-22 11:38:00) [10]

> не менять значение TitleHeight на отличное от нуля.

Но мне нужно, чтобы высота строки = 18

KilkennyCat (2006-11-22 11:16:00) [11]
не менять значение TitleHeight на отличное от нуля.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »