Помогите с печатью StringGrid

BFG

Пишу на BCB 6, FR 3.03 Pro
Размещаю на проекте TfrxCrossObject (как в доке программиста) написано что он имеет 2 разновидности TfrxCrossView и TfrxDBCrossView как сделать TfrxCrossView в свойствах токо имя и таг? И как его потом настроить (опять таки как написано в док-ции прогр-ста, пример на Дельфи смотрел да хотелось бы на BCB

BFG

Стандартный пример на Delphi

procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
if c is TfrxCrossView then
begin
Cross := TfrxCrossView©;
for i := 1 to 16 do
for j := 1 to 16 do
Cross.AddValue(, [j], [StringGrid1.Cells[i - 1, j - 1]]);
end;
end;

Переделал на ВСВ
void __fastcall TForm1::frxReport1BeforePrint(TfrxReportComponent *Sender)
{
TfrxCrossView *Cross1;
for(int i=1;i<16;i++)
for(int j=1;j<11;j++)
Cross1->AddValue((const Variant*)i,1, (const Variant*)j,1, (const Variant*)StrToInt(StringGrid1->Cells[i - 1][j - 1]),1);
}

вызываю frxReport1->ShowReport();
и пустота....

BFG

Делал все по документации не получается 8-(
убрал нафиг frxCrossObject благо StringGrid не широкий, поставил frxUserDataSet и через переменные вывел как в доке описан печать массива, как же сделать то по уму (т.е. как написано в доке)?

AlexTZ

Пример обработчика на BCB:

void __fastcall Tshet_faktura::frxReport1BeforePrint(
      TfrxReportComponent *c)
{
TfrxCrossView* Cross;

//AnsiString pStrs[1];
//int pRows[1],pCols[1];
AnsiString s=c->ClassName();
//Variant vInteger(4);

    if(s == "TfrxCrossView")
    {
      Cross = (TfrxCrossView*)c;
      for (int i = 1;i<=16;i++)
      {
        for (int j = 1;j<=16;j++)
        {

            Variant pRows[] = {i};
            Variant pCols[] = {j};
            Variant pStrs[] = {"12345"};
            int nSize = ARRAYSIZE(pStrs);
            Caption = IntToStr(nSize);
            Cross->AddValue((const Variant*)pRows,ARRAYSIZE(pRows)-1,
            (const Variant*)pCols,ARRAYSIZE(pCols)-1,
            (const Variant*)pStrs,ARRAYSIZE(pStrs)-1);
        }
      }
    }
}

BFG

Спасибо
(слишком много я урезал из примера 8-( )

GAZ

Поменял строку
Variant pStrs[] = {"12345"};
на
Variant pStrs[] = {"y"};

при этом FastReport3.03 начал вываливаться в дебаг.
Помогите

BFG

А так
Variant pStrs[] = {'y'};

AlexTZ

TfrxCrossView по умолчанию пытается суммировать значения в ячейках. Зайдите в его редактор и отключите суммирование.

GAZ

AlexTZ написал:

TfrxCrossView по умолчанию пытается суммировать значения в ячейках. Зайдите в его редактор и отключите суммирование.

Большое спасибо. Полдня провозился ничего не получалось.

ivk

подскажите пожалуйста, как отключить суммировку определенной ячейкм
(предполагается что TfrxCrossView будет соджержать помимо цифровых ячеек ячейки с текстом и по ним суммировка не нужна). В принципе возможно ли это ?

AlexTZ

Суммирование или включено - тогда учитываются все значения ячейки, или выключено. Избирательно оно не работает.