Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.29;
Скачать: CL | DM;

Вниз

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

 
last   (2004-01-19 08:41) [0]

Господа! Подскажите, пожалуйста, можно ли в QReport Delphi5 при выполнении
QReport.Preview
увеличить zoom отчета.


 
vlgrig1961   (2004-01-19 09:06) [1]

В Before устанавливаешь zoom, а After возвращаешь обратно

procedure TfRepPrint.QRep1BeforePrint(Sender: TCustomQuickRep;var PrintReport: Boolean);
var i: integer;
begin
QRep1.Width:=round((QRep1.Width*(100+100-MyZoom))/100);
QRep1.Height:=round((QRep1.Height*(100+100-MyZoom))/100);

ScaleBy(MyZoom,100);
end;

procedure TfRepPrint.QRep1AfterPrint(Sender: TObject);
var i: integer;
begin
i:=round((100*100)/MyZoom);
ScaleBy(i,100);
end;


 
Johnmen ©   (2004-01-19 10:56) [2]

>vlgrig1961 (19.01.04 09:06)

AfterPrint для TQuickRep означает дословно то, что написано. "После Печати".
А посему, надо AfterPreview.

Вообще говоря, данный способ несколько вульгарен...:)))


 
Семен Сорокин ©   (2004-01-19 10:58) [3]

last (19.01.04 08:41)
Сделай свой превью.



Страницы: 1 вся ветка

Текущий архив: 2004.01.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
6-93616
Dmitry The Wing
2003-11-24 10:44
2004.01.29
Как соединить модемом две машины? (дозвон, прием звонка)


3-93397
kiko
2003-12-30 08:58
2004.01.29
Вопрос о системных таблицах IB


1-93414
Plt
2004-01-19 12:41
2004.01.29
язык интерфейса


1-93540
Zeon
2004-01-16 21:44
2004.01.29
Событийные процедуры.


9-93318
inc-viz
2003-07-11 19:43
2004.01.29
Продвинутые спрайты..Delphix