Форум: "Базы";
Текущий архив: 2003.10.20;
Скачать: [xml.tar.bz2];
Вниз
Опять про печать Найти похожие ветки
← →
Weare (2003-09-26 13:31) [0]Задача: нужно распечатать из грида фамилии сотрудников и их зарплаты, причем если зарпалата <150, то эти цыфры должны быть красного цвета, а если >500, то синего, остальные черного.
Понятно, что в самом гриде это можно сделать с помощью OnDrawColumnCell, а как этот грид затем вывести на печать с теми же цветами ячеек.
← →
Vlad (2003-09-26 13:33) [1]Скриншот :)
← →
Weare (2003-09-26 13:33) [2]Извините за ошибку в слове ЦЫФРЫ
← →
Weare (2003-09-26 13:35) [3]
> Vlad © (26.09.03 13:33) [1]
Спасибо, а если серьезно?
← →
Weare (2003-09-26 15:38) [4]Ну что мастера, неужели никто с подобной проблемой не встречался?
← →
Rem (2003-09-26 18:46) [5]Хм... QuickRep... (см. палитру Quick Report в Delphi)
← →
Weare (2003-09-29 18:46) [6]
> Rem © (26.09.03 18:46) [5]
> Хм... QuickRep... (см. палитру Quick Report в Delphi)
Тоже самое, что и с TPrintDbGridEh, весь текст в гриде черно-белый, хотя TPrintDbGridEh отрисовывает цвет всей колонки, если его изначально задать в самом гриде, а не в OnDrawColumnCell.
← →
Brahman (2003-09-29 18:51) [7]Weare © (26.09.03 13:31)
Вообще-то для это существуют различные Report-ы.
Но если очень хочется, то можно.
Через TPrinter, присваивая свойствам печати свойства ячеек DBGrid
← →
Чайник (2003-09-29 19:03) [8]Но это же просто переменная, а не компонента со своим интерфейсом и средствами предпросмотра. И вообще, если ячеек очень много, то как присваивать.
← →
MsGuns (2003-09-29 20:00) [9]Для делального бэнда пишешь что-то вроде этого:
procedure TfrmINVRep9.QRBand3BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
cl: TColor;
i: integer;
begin
if Trim(frmINVRep9.quRep9.FieldByName("MNAME").AsString)>"" then
cl := cl3DLight
else
cl := clWindow;
Sender.Color := cl;
for i := 0 to Sender.ControlCount-1 do
begin
if Sender.Controls[i].ClassType=TQRDBText then
TQRDBText(Sender.Controls[i]).Color := cl;
if Sender.Controls[i].ClassType=TQRLabel then
TQRLabel(Sender.Controls[i]).Color := cl;
if Sender.Controls[i].ClassType=TQRShape then
TQRShape(Sender.Controls[i]).Brush.Color := cl;
end;
end;
← →
MsGuns (2003-09-29 20:04) [10]Только я там фон строки крашу, поэтому все контролы бэнда дергаю. Тебе проще. Трогай только те TQRDBText`ы, которые тебе надо.
Ну, и надо не Color, а Font.Color, ессно
← →
Weare (2003-09-30 10:31) [11]
> MsGuns © (29.09.03 20:00) [9]
> Для детального бэнда пишешь что-то вроде этого:...
Огромное спасибо, сейчас попробую. Появилась куча вопросов, но если я их не раъясню для себя, то ты уж не обижайся - буду допытываться.
← →
Чайник (2003-09-30 11:21) [12]Все ОК.
MsGuns ОГРОМНОЕ СПАСИБО !!!
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.10.20;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.01 c
