Два строки в заголовке стринггрида

← →
Бух (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 строки.

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