Quick report

← →
Dimon123 (2003-10-13 16:03) [0]

Нужно в DetailBand-е разделить колонки вертикальными линиями. Высота одной строки варьируется в зависимости от значения одной из колонок.
Подскажите как.

← →
DenK_vrtz © (2003-10-13 16:08) [1]

QRShape
Shape - qrsVertLine
Height - ? (в зависимости от высоты колонки)

← →
Dimon123 (2003-10-13 16:13) [2]

Проблема в том что высоту колонки нельзя узнать

← →
stud © (2003-10-13 16:27) [3]

оставь надежду....))))) многие пытались это сделать, хотя высоту и можно узнать, но все это чревато глюками и т.д. попробуй подобрать высоту фиксированную

← →
Dimon123 (2003-10-13 16:39) [4]

а как ее узнать эту высоту?

← →
stud © (2003-10-13 16:42) [5]

в обработчике онпринт банда посмотреть высоту самого высокого компонента. поищи по форуму.

← →
Dimon123 (2003-10-13 16:45) [6]

фишка в том что он в свойстве Height в момент онпринт он показывает не реальную высоту а высоту которую я задал при дезайне

← →
stud © (2003-10-13 16:46) [7]

поищи в форуме, я тут долго дискутировал на данную тему. там и код есть

← →
dmtr © (2003-10-13 16:51) [8]

2 Dimon123
Димон, твоя фамилия случайно не Носик?

← →
Dimon123 (2003-10-13 17:15) [9]

А не подскажешь шде искать а то я ищу и не найду что-то

← →
Dimon123 (2003-10-13 17:15) [10]

Нет не носик

← →
stud © (2003-10-13 17:26) [11]

наверное уже в архиве все. но я отказался от такой затеи потомучто начались глюки при выводе на печать. т.е. несоответствие между тем что видиш на экране и тем, выходит на принтер

← →
stud © (2003-10-13 17:26) [12]

← →
Dimon123 (2003-10-13 17:36) [13]

ну это стандартный глюк
он у меня и без этого есть
это не страшно

так зачем его усугублять))))))

← →
Dimon123 (2003-10-13 17:39) [15]

клыент просит

попробуй фастрепорт

Мой совет - откажись от этой идеи. Я реаизовал прорисовку сетки в зависимости от высоты строки. Прорисовывал сетку при помощи Shape-ов. Вот пример, но учти, что если шрифт TrueType, то могут быть глюки, хотя довольно редко. Но все равно, это все не серьезно.

procedure TOutReportForm.QRBand3BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
LinesCount, TempLinesCount: Integer;
CustomHeight: Integer;
BetweenLinesSize: Integer;
AdvancedCoeff: Integer;
begin
BetweenLinesSize := 5;
LinesCount := Ceil(Length(QRDBText1.DataSet.FieldByName("material_name").AsString) / 26);
TempLinesCount := Ceil(Length(QRDBText2.DataSet.FieldByName("sign").AsString) / 25);
LinesCount := Max(LinesCount, TempLinesCount);
if LinesCount = 1 then
AdvancedCoeff := 4
else if LinesCount = 2 then
AdvancedCoeff := 3
else if LinesCount = 3 then
AdvancedCoeff := 2
else if LinesCount = 4 then
AdvancedCoeff := 1;

CustomHeight := ((BetweenLinesSize * LinesCount) + AdvancedCoeff) + (QRDBText1.Font.Size * LinesCount);

QRShape14.Height := CustomHeight;
QRShape15.Height := CustomHeight;
QRShape16.Height := CustomHeight;
QRShape17.Height := CustomHeight;
QRShape18.Height := CustomHeight;
QRShape19.Height := CustomHeight;
end;

← →
Dimon123 (2003-10-13 18:01) [18]

спасибо
я тоже нашел более менее приемлемое решение
QRShape.Height := 200 :)
мне больше и не нужно
а видно только ту часть которая попадает в BAND

ага, и еще иногда снизу торчать начинают))))

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