Есть таблица с произвольным количеством столбцов.
Необходимо вывести ее на печать.
Использую Cross
Не выходит отмасштабировать ее по ширине страницы.
Пробую :
| Код |
void __fastcall TfmLecturerTimeLimiting::frxReport1BeforePrint(
TfrxReportComponent *Sender)
{
if(Sender->Name=="Cross1")
{
mt->First();
int i = 0,j=0,p=0,c=0;
TfrxCrossView *Cross = (TfrxCrossView*)Sender;
Variant v1[2],v2[1],v0[1];
while (!mt->Eof)
{
for(j= 0;j<mt->Fields->Count;j++)
{
if(mt->Fields->Fields[j]->DisplayLabel[1]=='h')continue;
p=mt->Fields->Fields[j]->DisplayLabel.Pos("|");
c=1;
v1[1]="";
v2[0]=mt->Fields->Fields[j]->AsString;
if(p)
{
v1[0]=mt->Fields->Fields[j]->DisplayLabel.SubString(1,p-1);
v1[1]=mt->Fields->Fields[j]->DisplayLabel.SubString(p+1,p+1);
v2[0]=" "+mt->Fields->Fields[j]->AsString+" ";
c=2;
}
else
v1[0]=mt->Fields->Fields[j]->DisplayLabel;
v0[0]=i;
Cross->AddValue(v0,1, v1,c, v2,1);
}
mt->Next();
i++;
}
c=Cross->ColCount();
int w=0;
for(i=1;i<c;i++)
{
w+=Cross->ColumnMemos[i]->Width;
}
double k=double(Cross->Width-Cross->ColumnMemos[0]->Width)/w;
for(i=1;i<c;i++)
{
Cross->ColumnMemos[i]->Width*=k;
}
}
}
|
А еще передаю переменную
| Код |
TfrxVariable *v= frxReport1->Variables->Add();
v->Name="k";
v->Value=k;
|
А как к ней добраться?
|