Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Вниз

Как наверняка 


-=VIT=-   (2002-01-31 10:28) [0]

Собственно,есть Qreport,выводятся данные затем начинается новая страница, и в run-time"е создаются графики:

var
tmp: TQRChart;
i:integer;
begin
for i:=1 to 1 do // хотя бы один
begin
QR.newpage;
tmp:= tQRChart.create(QR);
With TQRDBChart.Create(tmp) do
begin
Parent:=TWinControl(tmp);
Name:=TeeGetUniqueName(Owner,"QRChart");
Title.Text.Clear;
Title.Text.Add(tmp.ClassName);
end;
With tmp do
begin
Parent:=qr;
Left:=10;
Top:=10;
Width:=trunc(printer.Pagewidth/2.4 );
Height:=trunc(printer.Pageheight div 5);
Chart.AddSeries( TBarSeries.Create(Self) );
Chart.Series[0].FillSampleValues(7); // данные для примера
end;
end;
end;

Впервый раз все нормально работает, с любым кол-вом графиков. В следующее обращение к отчету, старые графики начинают проявляться с первой страницы, поверх данных ;(. Правда новые появляются там где им и положено.
Понятно что при закрытии формы надо убить созданные.Пробовал и free, и destroy. не работает, а может не ктому применяю?
Буду благодарен за предложенные варианты, как в моем случае решить проблему.



gek   (2002-01-31 11:20) [1]

Попробуй так
procedure TForm_my.QuickRep_my_AfterPreview(Sender: TObject);
begin
Free;
end;



-=VIT=-   (2002-02-04 09:23) [2]

2 qek - спасибо.
Все завелось все работает, кроме .....
Если выводить на печать после предпросмотра, последний график печатается поверх данных, с первой страницы. Если вместо предпросмотра сразу выводить на печать то все - Ок.
Я так понял что при вызове Print, занова генериться отчет, тоесть получаются теже грабли, что и в начале.
Как быть?




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.021 c
1-57104           Dima Kopachev         2002-02-02 17:10  2002.02.18  
Функция ChangeFileExt


14-57204          Иван Шихалев          2001-12-27 20:20  2002.02.18  
Насколько быстрее borlndmm.dll выделяет и освобождает память, чем функции WinAPI?


7-57226           amamed_3071           2001-11-12 11:30  2002.02.18  
Команды принтера Epson


3-57000           yaJohn                2002-01-23 17:57  2002.02.18  
CrystalReport


1-57146           Loxly                 2002-02-03 19:57  2002.02.18  
Создание формы приводит к ее появлению