Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Quick report

Dimon123 © (2003-10-13 16:03:00)

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

stud (2003-10-13 18:26:00) [1]

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

Dimon123 (2003-10-13 18:01:00) [2]

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

dmtr (2003-10-13 17:53:00) [3]

Мой совет - откажись от этой идеи. Я реаизовал прорисовку сетки в зависимости от высоты строки. Прорисовывал сетку при помощи 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;

stud (2003-10-13 17:46:00) [4]

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

Dimon123 (2003-10-13 17:39:00) [5]

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

stud (2003-10-13 17:38:00) [6]

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

Dimon123 (2003-10-13 17:36:00) [7]

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

stud (2003-10-13 17:26:00) [8]

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

stud (2003-10-13 17:26:00) [9]

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

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

Нет не носик

Dimon123 (2003-10-13 17:15:00) [11]

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

dmtr (2003-10-13 16:51:00) [12]

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

stud (2003-10-13 16:46:00) [13]

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

Dimon123 (2003-10-13 16:45:00) [14]

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

stud (2003-10-13 16:42:00) [15]

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

Dimon123 (2003-10-13 16:39:00) [16]

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

stud (2003-10-13 16:27:00) [17]

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

Dimon123 (2003-10-13 16:13:00) [18]

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

DenK_vrtz (2003-10-13 16:08:00) [19]

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »