Скачать: CL | DM;

Два строки в заголовке стринггрида   Найти похожие ветки 

← →
Бух ©   (2003-04-25 00:22) [0]

Здравствуйте.
Подскажите пожалуйста, как мне добавить вторую строку в заголовок стринггрида? Вот такой код Cols[2].Text:="Реквизиты Запроса"+#13+"Входящий и исходящий №"; не работает... :(

---

← →
evvcom ©   (2003-04-25 08:25) [1]

В таких случаях #13#10 надо пробовать, если не получится, значит глухо, компонент - не поддерживает.

---

← →
NAlexey ©   (2003-04-25 08:39) [2]

>В таких случаях #13#10 надо пробовать, если не получится, значит глухо, компонент - не поддерживает.
Почему это глухо, легко:

procedure DrawAnyBanyRowCount(ARect: TRect; const AText: string; AMultiLine: Boolean; AEndEllipsis: Boolean; AAlignment: TAlignment);
const
DrawFlags: array [Boolean] of Integer =
(DT_EXPANDTABS or DT_NOPREFIX or DT_VCENTER or DT_SINGLELINE,
DT_EXPANDTABS or DT_NOPREFIX or DT_WORDBREAK);
EllipsisFlags: array [Boolean] of Integer = (0, DT_END_ELLIPSIS);
AlignFlags: array [TAlignment] of Integer = (DT_LEFT, DT_RIGHT, DT_CENTER);
TextXOffset = 2;
TextYOffset = 2;
begin
Windows.FillRect(StringGrid.Canvas.Handle, ARect, StringGrid.Canvas.Brush.Handle);
SetBkMode(StringGrid.Canvas.Handle, TRANSPARENT);
InflateRect(ARect, -TextXOffset, -TextYOffset);
DrawText(StringGrid.Canvas.Handle, PChar(AText), Length(AText), ARect, DrawFlags[AMultiLine] or EllipsisFlags[AEndEllipsis] or AlignFlags[AAlignment]);
end;

Ну где то так, примерно должно работать;

---

← →
evvcom ©   (2003-04-25 08:44) [3]

Ну или так. Я про CustomDraw иногда забываю.

---

← →
NAlexey ©   (2003-04-25 08:44) [4]

Да прошу прощения, не забывай подгонять RowHeigth[YourRow] под нужный размер. Т.е если у тебя FixedRows = 1. Что и есть заголовок. То делай RowHeigth[0] := Размер_чтобы_умещалось_2_строки; А там хоть в 22 строки.

---

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

Скачать: CL | DM;



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