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

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c