Отчеты в QR

← →
soware (2002-08-16 07:07) [0]

Как сделать, чтобы вертикальный размер QRShape, помещенный в секцию Detail менялся в завиимости от размера Detail ? Примечание: размер Detail меняется в зависимости от размера компонента QRMemo.

← →
Leran2002 (2002-08-16 07:21) [1]

Обрабатывай у бэнда BeforePrint:

procedure TForm2.QRBand2BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
...
QRBand2.Height:=...;
...
end;

← →
soware (2002-08-16 09:03) [2]

Я спрашиваю об изменении размера QRShape. Его высоту надо сделать равной высоте QRBand. Но, по-моему, в событии QRBandBeforePrint еще не известна новая высота QRBand.

← →
Leran2002 (2002-08-16 10:21) [3]

Ух и задал ты вопрос мужик...
Держи:

procedure TForm3.QRBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
R:TRect;
begin
QRMemo1.Lines.Text:=Table1Notes.AsString;
// используем канвас формы на которой лежит TQuickRep
Form3.Canvas.Font.Assign(QRMemo1.Font);

R:=QRMemo1.ClientRect;
DrawText(Form3.Canvas.Handle,PChar(QRMemo1.Lines.Text),-1,R,
DT_CALCRECT or DT_WORDBREAK or DT_BOTTOM);

// QRMemo1.AutoStretch:=false; т.к. сами вычисляли
QRMemo1.Height:=R.Bottom;
QRBand1.Height:=QRMemo1.Top+QRMemo1.Height;

QRShape1.Size.Height:=QRBand1.Size.Height;
end;

Ну как???

← →
Leran2002 (2002-08-16 10:30) [4]

Вместо
QRShape1.Size.Height:=QRBand1.Size.Height;
можно
QRShape1.Height:=QRBand1.Height;

← →
MCFire (2002-08-16 11:26) [5]

Зачем всё так сложно.Нужно лишь когда распологаешь QRShape в бенде снизу от него ничего не размещать и высота будет сама регулироваться в зависимости от QRShape.

← →
Mahmud~ (2002-08-16 11:49) [6]

Вопрос MCFire: я что-то не пойму, чья высота будет меняться в зависимости от высоты QRShape?

← →
Leran2002 (2002-08-16 11:59) [7]

Отчеты в QR Найти похожие ветки