Текущий архив: 2003.05.08;
Скачать: 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 вся ветка
Текущий архив: 2003.05.08;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.014 c
