Формирование отчета с помощью Quickrep

Тема в разделе "Delphi - FAQ", создана пользователем prog, 23 авг 2005.

Статус темы:
Закрыта.
  1. prog

    prog Гость

    На Вашем сай есть уже такая программа.
    Но помгите разобраться, программа не компилируется на двух строчках:

    lblPage.Left:=bdTitle.Width - lblPage.Width - 10;
    lblDate.Left:=bdTitle.Width - lblDate.Width - 10;

    lblpage,bdtitle,lbldate - что это такое? Где можно почитать?

    procedure TGridReport.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 := 12;
    CurrentTop := 6;

    {Запись, на которой пользователь останавливается в DBGrid}
    BMark:=Grid.DataSource.DataSet.GetBookmark;
    {Запретим мерцание грида в процессе работы отчёта}
    Grid.DataSource.DataSet.DisableControls;
    try
    for i:=0 to Grid.FieldCount - 1 do
    begin
    if (CurrentLeft + Canvas.TextWidth(Grid.Columns.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;
    {Создадим заголовок отчёта при помощи 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.Title.Caption;
    end;
    {Создадим тело отчёта при помощи 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.Alignment;
    AutoSize:=false;
    AutoStretch:=true;
    Width:=Grid.Columns.Width;
    Dataset:=GridRep.Dataset;
    DataField:=Grid.Fields.FieldName;
    CurrentLeft:=CurrentLeft + (Grid.Columns.Width) + 15;
    end;
    end;

    lblPage.Left := bdTitle.Width - lblPage.Width - 10;
    lblDate.Left := bdTitle.Width - lblDate.Width - 10;

    {Далее вызовем метод предварительного просмотра из QuickRep}
    GridRep.PreviewModal; {либо, если желаете, то PreviewModal}

    finally
    with Grid.DataSource.DataSet do
    begin
    GotoBookmark(BMark);
    FreeBookmark(BMark);
    EnableControls;
    end;
    end;
    end;
     
  2. Barmutik

    Barmutik Гость

    Ну судя по всему какие-то объекты с указанными именами ... возможно их просто удалили ...
     
  3. Poseidon

    Poseidon Гость

    Весь код в студию
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей