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

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

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

Есть проблема у меня – нужен совет [Win95/98, WinME, NT4, Win2k, WinXP]

Страницы: 1 2 >
Man-In-Red © (2002-08-23 23:04:00)
Помогите пожалуйста!

Есть StringGrid, и три Edit’а, все с каким-то текстом, нужно распечатать содержимое этих всех компонентов в виде отчета на одном листе, как это можно реализовать?
Может будут какие-то идеи, помогите пожалуйста!
Я пробовал рисовать на канве Image, потом печатать, вышло, но это все зависит от разрешения экрана, размера шрифта которое установлено в Windows, и т.д… иногда получается, что текст налазит один на одного…
Нужен совет!
Заранее благодарен!

Polevi (2002-08-25 17:45:00) [1]
Для задач вроде Man-In-Red ©
>Есть StringGrid, и три Edit’а, все с каким-то текстом, нужно >распечатать содержимое этих всех компонентов в виде отчета на >одном листе, как это можно реализовать?
лучше ручками все рисовать, IMHO

для сложных БД-отчетов я пользую FastReport (не путать с FreeReport :)

2Man-In-Red ©
QReport и FastReport ориентированы на работу с датасетами - у тебя их нет. В FastReport надо в твоем случае либо создавать отчет вручную, либо использовать frUserDataset (для печати StringGrid"a)

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

Man-In-Red (2002-08-25 17:34:00) [2]
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1030282327&n=0
Плизз!!!

Man-In-Red (2002-08-25 17:28:00) [3]
А у меня установился без проблем!

Ketmar (2002-08-25 16:31:00) [4]
2Polevi:
а что посоветуете вместо глюкрепорта? Я вот скачал FreeReport, так это вообще нечто. см. Мое сообщение:
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1030278621&n=3

Satanas Nobiscum! 25-Aug-XXXVII A.S.

Man-In-Red (2002-08-25 16:03:00) [5]
А каким образом можно в QuickRep засунуть текст из StringGrid?
Please!!!

Man-In-Red (2002-08-25 15:17:00) [6]
Довольно сложный он для понимания, может где почитать можно о QRepe?

Man-In-Red (2002-08-25 15:16:00) [7]
Начинается :)

Man-In-Red (2002-08-25 15:15:00) [8]
А каким образом можно в QuickRep засунуть текст из StringGrid?

Polevi (2002-08-25 15:03:00) [9]
смейся, смейся, несчастный
мы в свое время долго смеялись - я, курепорт и пользователи моей программы, которая его использовала

Man-In-Red (2002-08-25 14:51:00) [10]

> Polevi © (25.08.02 14:43)

:)

Polevi (2002-08-25 14:43:00) [11]
желаю удачи, она тебе понадобиться

Man-In-Red (2002-08-25 14:37:00) [12]
Уж лучше я буду пользоваться QuickReport :)

Polevi (2002-08-25 14:23:00) [13]
вот тебе пример, чтоб ничего не налазило

procedure TPrintGrid.PrintString(s: string);
var
OutRect:TRect;
TxtHeight:integer;
begin
OutRect.Left:=0;
OutRect.Right:=FPrinter.PageWidth;
TxtHeight:=DrawText(FPrinter.Canvas.Handle, PChar(s), Length(s), OutRect, DT_LEFT or DT_WORDBREAK or DT_CALCRECT);

OutRect.Left:=0;
OutRect.Top:=AmountPrinted;
OutRect.Right:=FPrinter.PageWidth;
OutRect.Bottom:=OutRect.Top+TxtHeight;

SetBkMode(FPrinter.Canvas.Handle, TRANSPARENT);
DrawText(FPrinter.Canvas.Handle, PChar(s), Length(s), OutRect, DT_LEFT or DT_WORDBREAK);
AmountPrinted:=AmountPrinted+TxtHeight;
end;

Anatoly Podgoretsky (2002-08-25 14:12:00) [14]
Man-In-Red © (25.08.02 13:54)
Примеры есть в поставке Дельфи

Polevi (2002-08-25 14:00:00) [15]
если будешь решать проблемы таким образом - ничего хорошего не выйдет. ищи ошибку в своем коде, мой тебе совет

Man-In-Red (2002-08-25 13:54:00) [16]
Так я ж говорю, что потом рисовал на канве принтера, все прекрасно получилось, но дело не в этом, дело в том, что все это зависит от разрешения экрана, и размера шрифта (мелкий, средний, большой), и иногда так получается, что одни строки налазят на другие ну и т.д…
Мне бы компоненту хорошую для таких работ, чтоб проблем меньше было, например, QuickReport, но как с ним работать, не могли бы вы пример показать, а может есть другие компоненты? Буду очень благодарен!

Polevi (2002-08-25 13:20:00) [17]
2Man-In-Red ©
Если ты умеешь "рисовать на канве Image" что тебе мешает рисовать на канве принтера ?

Man-In-Red (2002-08-25 12:34:00) [18]

> Anatoly Podgoretsky © (24.08.02 22:44)

А можно хоть какой-нибудь пример, я с ним некогда не работал… буду очень благодарен!
> Dm9 (25.08.02 05:33)

Это очень тупой совет…

Dm9 (2002-08-25 05:33:00) [19]
А, может, в Excel засунуть, а потом напечатать?

Anatoly Podgoretsky (2002-08-24 22:44:00) [20]
Не мучайся, используй QuickReport мз поставки

Страницы: 1 2 >

Наверх

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