Solved

Create lines quick report delphi dbgrid

Posted on 2009-05-14
1
1,772 Views
Last Modified: 2013-11-22
I have some code to print a dbgrid from a dataset, what I need now is to create the lines between the data which will make the report to look like a grid also, I want to place a qrshape horline on each row and a vertline on each column.
procedure TTGridreport.Preview(grid: TDBGrid);
var
  i, CurrentLeft, CurrentTop : integer;
  BMark: TBookmark;
  begin
  GridRep.Dataset:=  Grid.DataSource.DataSet;
 
  if not (GridRep.Bands.HasColumnHeader) then
    GridRep.Bands.HasColumnHeader:=true;
 
  if not (GridRep.Bands.HasDetail) then
    GridRep.Bands.HasDetail:=true;
 
  GridRep.Bands.ColumnHeaderBand.Height:=Abs(Grid.TitleFont.Height) + 10;
  GridRep.Bands.DetailBand.Height:=Abs(Grid.Font.Height) + 10;
  CurrentLeft := 6;
  CurrentTop := 6;
 
  {Record where the user stopped in the DBGrid}
  BMark:=Grid.DataSource.DataSet.GetBookmark;
  {Don't let the grid flicker while the report is running}
  Grid.DataSource.DataSet.DisableControls;
  try
    for i:=0 to Grid.FieldCount - 1 do
    begin
      if (CurrentLeft + Canvas.TextWidth(Grid.Columns[i].Title.Caption)) >
        (GridRep.Bands.ColumnHeaderBand.Width) then
      begin 
        CurrentLeft := 12;
        CurrentTop := CurrentTop + Canvas.TextHeight('A') + 6; 
        GridRep.Bands.ColumnHeaderBand.Height := GridRep.Bands.ColumnHeaderBand.Height +
          (Canvas.TextHeight('A') + 10); 
        GridRep.Bands.DetailBand.Height := GridRep.Bands.DetailBand.Height +
          (Canvas.TextHeight('A') + 10);
      end;
      {Create Header with QRLabels}
      with TQRLabel.Create(GridRep.Bands.ColumnHeaderBand) do
      begin 
        Parent := GridRep.Bands.ColumnHeaderBand;
        Color := GridRep.Bands.ColumnHeaderBand.Color; 
        Left := CurrentLeft;
        Top := CurrentTop; 
        Caption:=Grid.Columns[i].Title.Caption;
      end; 
      {Create Detail with QRDBText}
      with TQRDbText.Create(GridRep.Bands.DetailBand) do 
      begin
        Parent := GridRep.Bands.DetailBand; 
        Color := GridRep.Bands.DetailBand.Color;
        Left := CurrentLeft; 
        Top := CurrentTop;
        Alignment:=Grid.Columns[i].Alignment; 
        AutoSize:=false;
        AutoStretch:=true; 
        Width:=Grid.Columns[i].Width;
        Dataset:=GridRep.Dataset;
        DataField:=Grid.Fields[i].FieldName;
        CurrentLeft:=CurrentLeft + (Grid.Columns[i].Width) + 10; 
      end;
    end; 
 
    lblPage.Left := bdTitle.Width - lblPage.Width - 10;
    lblDate.Left := bdTitle.Width - lblDate.Width - 10;
 
    {After all, call the QuickRep preview method}
    GridRep.PreviewModal; {or Preview if you prefer} 
 
  finally 
    with Grid.DataSource.DataSet do
    begin 
      GotoBookmark(BMark);
      FreeBookmark(BMark); 
      EnableControls;
    end; 
  end;
end;

Open in new window

0
Comment
Question by:kyriakos70
1 Comment
 
LVL 6

Accepted Solution

by:
bokist earned 500 total points
ID: 24392649
For this kind of report, I'm using TQRShape type qrsVertLine,
and for the bands (header, detail, footer..) > Frame.
You can achieve the goal, this way:

GridRep.Bands.ColumnHeaderBand.Frame.DrawTop := True;
GridRep.Bands.ColumnHeaderBand.Frame.DrawLeft := True;
GridRep.Bands.ColumnHeaderBand.Frame.DrawRigth := True;
GridRep.Bands.ColumnHeaderBand.Frame.DrawBottom := True;
GridRep.Bands.ColumnHeaderBand.Frame.Style := psSolid;
GridRep.Bands.ColumnHeaderBand.Frame.Width := 1;

GridRep.Bands.DetaiBand.Frame.DrawLeft := True;
GridRep.Bands.DetaiBand.Frame.DrawRigth := True;
GridRep.Bands.DetaiBand.Frame.DrawBottom := True;
GridRep.Bands.DetaiBand.Frame.Style := psSolid;

Regards,
    Steve
0

Featured Post

Active Directory Webinar

We all know we need to protect and secure our privileges, but where to start? Join Experts Exchange and ManageEngine on Tuesday, April 11, 2017 10:00 AM PDT to learn how to track and secure privileged users in Active Directory.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Mydac connection data base issue 3 167
Delphi XE10 Round Image 2 160
Delphi 2 69
Delphi problems to abort a printjob 9 25
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

828 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question