Quick Report

← →
Rus (2002-12-27 10:10) [0]

Уважаемые мастера,
хотел использовать Quick Report в чистом виде - написал строчки:

uses QuickRpt; {$R *.RES} var q: TQuickRep; begin q:= TQuickRep.Create(nil); try q.Preview; finally q.Free; end; end.

Получил проблемы:
1. по кнопке свернуть сворачивается не как главная форма, а как подчиненное окно
2. в процессе работы пользователю недоступны настройки принтера

Пожалуйста подскажите решение. Спасибо.

← →
mrcat © (2002-12-27 11:02) [1]

что в Вашем понимании "в чистом виде"?

← →
shane54 © (2002-12-27 11:13) [2]

Видимо Rus (27.12.02 10:10) имел ввиду "в чистом виде" - без использования компонент на форме - создание Report"а в run-time.

← →
mrcat © (2002-12-27 11:19) [3]

program QReport;

uses
QUnit in "QUnit.pas" {QuickReport: TQuickRep};

begin
with TQuickReport.Create(nil) do
begin
Preview;
Destroy;
end;
end.

← →
mrcat © (2002-12-27 11:22) [4]

сворачивается не как главная форма, а как подчиненное окно
TQuickRep.Create( self);
в процессе работы пользователю недоступны настройки принтера
принтер установлен в системе?

← →
Rus (2002-12-27 11:36) [5]

> shane54
Да, в run-time, полностью программа выглядит так:

program Print; uses QuickRpt; {$R *.RES} var q: TQuickRep; begin q:= TQuickRep.Create(self); try q.Preview; finally q.Free; end; end.

> mrcat
TQuickRep.Create(self); - не компилируется - пишет Undeclared identifier: "self"

← →
Pat © (2002-12-27 11:39) [6]

>в процессе работы пользователю недоступны настройки принтера
QReport, кажется, вообще не реагирует на настройки принтера. У него свой объект TQRPrinter...ИМХО

← →
Rus (2002-12-27 11:39) [7]

> mrcat
принтер - сетевой

>Rus
Пишешь консольное приложение с использованием VCL ?!
Не понятно...
Естественно что про self оно ничего не знает...

← →
Rus (2002-12-27 11:48) [9]

> Skier
с nil работает (открывает файлы, печатает, но не позволяет менять принтер из программы, не позволяет задавать диапозон страниц)

> mrcat

program QReport; uses QUnit in "QUnit.pas" {QuickReport: TQuickRep}; begin with TQuickReport.Create(nil) do begin Preview; Destroy; end; end.

те же проблемы

Quick Report Найти похожие ветки