david
5678df5538
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@31 05c56307-c608-d34a-929d-697000501d7a
142 lines
4.2 KiB
C++
142 lines
4.2 KiB
C++
//---------------------------------------------------------------------
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "DBTrPrnmain.h"
|
|
#include "dbtreeqr.h"
|
|
//---------------------------------------------------------------------
|
|
#pragma resource "*.dfm"
|
|
TQRListForm *QRListForm;
|
|
//---------------------------------------------------------------------
|
|
// QuickReport simple list
|
|
// - Connect a datasource to the QuickReport component
|
|
// - Put QRDBText components on the Detail band
|
|
//---------------------------------------------------------------------
|
|
const
|
|
PixelPerLevel = 50;
|
|
|
|
__fastcall TQRListForm::TQRListForm(TComponent* AOwner)
|
|
: TForm(AOwner)
|
|
{
|
|
}
|
|
|
|
//---------------------------------------------------------------------
|
|
void __fastcall HideQRShape(TQRShape * qs)
|
|
{
|
|
qs->Visible = false;
|
|
qs->Left = -100;
|
|
qs->Width = 0;
|
|
qs->Height = 0;
|
|
}
|
|
|
|
//---------------------------------------------------------------------
|
|
void __fastcall TQRListForm::DataSource1DataChange(TObject *Sender,
|
|
TField *Field)
|
|
{
|
|
int Index;
|
|
Index = FMain->DBTreePrintDataSet->FindField("Pr_id")->AsInteger;
|
|
if ((Index >= 150) && (Index < 200)){
|
|
FMain->ImageList1->GetBitmap(0, Image->Picture->Bitmap);
|
|
return;
|
|
}
|
|
if (Index >= 200){
|
|
FMain->ImageList1->GetBitmap(1, Image->Picture->Bitmap);
|
|
return;
|
|
}
|
|
FMain->ImageList1->GetBitmap(2, Image->Picture->Bitmap);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
typedef TQRShape* PQRShape;
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TQRListForm::QuickReportBeforePrint(TCustomQuickRep *Sender,
|
|
bool &PrintReport)
|
|
{
|
|
int i;
|
|
PQRShape qshp;
|
|
|
|
ShapeCount = FMain->DBTreePrintDataSet->MaxLevelCount;
|
|
ShapeList = new TList;
|
|
ImageLeft = Image->Left;
|
|
QTextLeft = QText->Left;
|
|
ImageRectLeft = ImageRect->Left;
|
|
for(i = 0; i <= ShapeCount; i ++){
|
|
qshp = new TQRShape(this);
|
|
qshp->Parent = Detail;
|
|
qshp->ParentReport = QuickReport;
|
|
qshp->Visible = false;
|
|
if (i == 0)
|
|
qshp->Shape = qrsHorLine;
|
|
else qshp->Shape = qrsVertLine;
|
|
qshp->Pen->Style = psDot;
|
|
HideQRShape(qshp);
|
|
ShapeList->Add(qshp);
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TQRListForm::QuickReportAfterPrint(TObject *Sender)
|
|
{
|
|
int i;
|
|
PQRShape qshp;
|
|
|
|
for( i = 0; i <= ShapeCount; i ++){
|
|
qshp = PQRShape(ShapeList->Items[i]);
|
|
qshp->Free();
|
|
}
|
|
ShapeList->Free();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TQRListForm::DetailAfterPrint(TQRCustomBand *Sender,
|
|
bool BandPrinted)
|
|
{
|
|
int i;
|
|
PQRShape qs;
|
|
|
|
Image->Left = ImageLeft;
|
|
QText->Left = QTextLeft;
|
|
ImageRect->Left = ImageRectLeft;
|
|
if(! ImageRect->Visible)
|
|
ImageRect->Height = 9;
|
|
ImageRect->Visible = true;
|
|
for (i = 0; i <= ShapeCount; i ++){
|
|
qs = PQRShape(ShapeList->Items[i]);
|
|
HideQRShape(qs);
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TQRListForm::DetailBeforePrint(TQRCustomBand *Sender,
|
|
bool &PrintBand)
|
|
{
|
|
int i, Level, inten;
|
|
PQRShape qs;
|
|
|
|
Level = FMain->DBTreePrintDataSet->FindField("dx$level")->AsInteger;
|
|
ImageRect->Visible = FMain->DBTreePrintDataSet->FindField("dx$haschildren")->AsBoolean;
|
|
inten = Level * PixelPerLevel;
|
|
Image->Left = Image->Left + inten;
|
|
QText->Left = QText->Left + inten;
|
|
ImageRect->Left = ImageRect->Left + inten;
|
|
qs = PQRShape(ShapeList->Items[0]);
|
|
qs->Visible = true;
|
|
if (ImageRect->Visible)
|
|
qs->Left = ImageRect->Left + 1 + ImageRect->Width;
|
|
else {
|
|
qs->Left = ImageRect->Left + int(ImageRect->Width / 2) - PixelPerLevel;
|
|
ImageRect->Height = 1;
|
|
}
|
|
|
|
qs->Width = Image->Left - qs->Left - 1;
|
|
qs->Top = ImageRect->Top + int(ImageRect->Height / 2);
|
|
for (i = 0; i < Level; i ++) {
|
|
qs = PQRShape(ShapeList->Items[i + 1]);
|
|
qs->Visible = true;
|
|
qs->Left = ImageRectLeft + int(ImageRect->Width / 2) + i * PixelPerLevel;
|
|
qs->Height = Detail->Height;
|
|
}
|
|
FMain->ImageList1->GetBitmap(0, Image->Picture->Bitmap);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|