| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Опять про печать [D5, D6, Paradox]
Weare © (2003-09-26 13:31:00)
Задача: нужно распечатать из грида фамилии сотрудников и их зарплаты, причем если зарпалата <150, то эти цыфры должны быть красного цвета, а если >500, то синего, остальные черного.
Понятно, что в самом гриде это можно сделать с помощью OnDrawColumnCell, а как этот грид затем вывести на печать с теми же цветами ячеек.
Чайник (2003-09-30 11:21:00) [1]
Все ОК.
MsGuns ОГРОМНОЕ СПАСИБО !!!
Weare (2003-09-30 10:31:00) [2]
> MsGuns © (29.09.03 20:00) [9]
> Для детального бэнда пишешь что-то вроде этого:...
Огромное спасибо, сейчас попробую. Появилась куча вопросов, но если я их не раъясню для себя, то ты уж не обижайся - буду допытываться.
MsGuns (2003-09-29 20:04:00) [3]
Только я там фон строки крашу, поэтому все контролы бэнда дергаю. Тебе проще. Трогай только те TQRDBText`ы, которые тебе надо.
Ну, и надо не Color, а Font.Color, ессно
MsGuns (2003-09-29 20:00:00) [4]
Для делального бэнда пишешь что-то вроде этого:
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;
Чайник (2003-09-29 19:03:00) [5]
Но это же просто переменная, а не компонента со своим интерфейсом и средствами предпросмотра. И вообще, если ячеек очень много, то как присваивать.
Brahman (2003-09-29 18:51:00) [6]
Weare © (26.09.03 13:31)
Вообще-то для это существуют различные Report-ы.
Но если очень хочется, то можно.
Через TPrinter, присваивая свойствам печати свойства ячеек DBGrid
Weare (2003-09-29 18:46:00) [7]
> Rem © (26.09.03 18:46) [5]
> Хм... QuickRep... (см. палитру Quick Report в Delphi)
Тоже самое, что и с TPrintDbGridEh, весь текст в гриде черно-белый, хотя TPrintDbGridEh отрисовывает цвет всей колонки, если его изначально задать в самом гриде, а не в OnDrawColumnCell.
Rem (2003-09-26 18:46:00) [8]
Хм... QuickRep... (см. палитру Quick Report в Delphi)
Weare (2003-09-26 15:38:00) [9]
Ну что мастера, неужели никто с подобной проблемой не встречался?
Weare (2003-09-26 13:35:00) [10]
> Vlad © (26.09.03 13:33) [1]
Спасибо, а если серьезно?
Vlad (2003-09-26 13:33:00) [11]
Скриншот :)
Weare (2003-09-26 13:33:00) [12]
Извините за ошибку в слове ЦЫФРЫ
| |
