powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Каким методом покрасить строку в cxDBPivotGrid
8 сообщений из 33, страница 2 из 2
Каким методом покрасить строку в cxDBPivotGrid
    #39889646
Jane CHER
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
zinpub,

Вот этот кодик мне покрасил итоги по участкам. По цеху, наверное, не красит, потому что цех столбцом левее и как заголовок строки не воспринимается. Буду дальше извращаться.
Огромное спасибо за рекомендации! :-)

procedure TForm.PivotGridStylesGetContentStyle(
Sender: TcxCustomPivotGrid; ACell: TcxPivotGridDataCellViewInfo;
var AStyle: TcxStyle);
var i: integer;
begin

if (AnsiPos('Всего по цеху',VartoStr(ACell.Row.Value)) > 0) or (AnsiPos('Всего по участку',VartoStr(ACell.Row.Value)) > 0)
then AStyle := Style_Itogi;

end;
...
Рейтинг: 0 / 0
Каким методом покрасить строку в cxDBPivotGrid
    #39889649
zinpub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Jane CHER
zinpub,

Вот этот кодик мне покрасил итоги по участкам. По цеху, наверное, не красит, потому что цех столбцом левее и как заголовок строки не воспринимается. Буду дальше извращаться.
Огромное спасибо за рекомендации! :-)

procedure TForm.PivotGridStylesGetContentStyle(
Sender: TcxCustomPivotGrid; ACell: TcxPivotGridDataCellViewInfo;
var AStyle: TcxStyle);
var i: integer;
begin
showmessage(VartoStr(ACell.Row.Value));
if (AnsiPos('Всего по цеху',VartoStr(ACell.Row.Value)) > 0) or (AnsiPos('Всего по участку',VartoStr(ACell.Row.Value)) > 0)
then AStyle := Style_Itogi;

end;


по ACell можно получить RecNo ... А из DataController.Values[x,y] значение любого столбца для строки
...
Рейтинг: 0 / 0
Каким методом покрасить строку в cxDBPivotGrid
    #39890273
Jane CHER
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
zinpub,

Спасибо, попробую.
...
Рейтинг: 0 / 0
Каким методом покрасить строку в cxDBPivotGrid
    #39890281
Jane CHER
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
zinpub


по ACell можно получить RecNo ...

Стесняюсь спросить - КАК? :-)
...
Рейтинг: 0 / 0
Каким методом покрасить строку в cxDBPivotGrid
    #39890324
ёёёёё
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Jane CHER,

См. ACell.Row.Index
...
Рейтинг: 0 / 0
Каким методом покрасить строку в cxDBPivotGrid
    #39890865
Jane CHER
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ёёёёё,

Пробовала вроде так - вылетает к бесу с out of bounds. Еще попробую. Пасиба.
...
Рейтинг: 0 / 0
Каким методом покрасить строку в cxDBPivotGrid
    #39898419
Jane CHER
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
На нужную колонку так и не смогла выйти, обошлась костылем (в той же колонке в итогах по цеху пустые значения).

procedure TForm.PivotGridStylesGetContentStyle(
Sender: TcxCustomPivotGrid; ACell: TcxPivotGridDataCellViewInfo;
var AStyle: TcxStyle);
begin

if (VartoStr(ACell.Row.Value)='') or (AnsiPos('Всего по участку',VartoStr(ACell.Row.Value)) > 0)
then AStyle := Style_Itogi;

end;
...
Рейтинг: 0 / 0
Каким методом покрасить строку в cxDBPivotGrid
    #39911826
Jane CHER
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
zinpub
ёёёёё
пропущено...

Ну ё.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
...
cxGrayStyle: TcxStyle;
..
procedure TMyForm.MycxDBPivotGridStylesGetContentStyle(Sender: TcxCustomPivotGrid;
  ACell: TcxPivotGridDataCellViewInfo; var AStyle: TcxStyle);
begin
  if ACell.IsGrandTotal then
    AStyle := cxGrayStyle



Тогда суммы считаются самим Pivot'ом


А это пригодилось в другом месте, пасиба. :-)
...
Рейтинг: 0 / 0
8 сообщений из 33, страница 2 из 2
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Каким методом покрасить строку в cxDBPivotGrid
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]