imho.ws
IMHO.WS  

Вернуться   IMHO.WS > Компьютеры > Программирование
Опции темы
Старый 05.04.2003, 22:35     # 1
Evgenechka
Guest
 
Сообщения: n/a

Question отчеты в Delphi

привет всем. подскажите, плиз, как при "заготовке" отчета (т.е. до команды preview), добавить в отчет вторую страницу? у меня все компоненты на одной не помещаются
заранее спасибо за помощь
 
Старый 03.05.2003, 13:25     # 2
ol
Newbie
 
Регистрация: 13.04.2003
Сообщения: 40

ol Путь к славе только начался
а в чем делаеш отчеты?
ol вне форума  
Старый 07.05.2003, 16:38     # 3
sasa001
Guest
 
Сообщения: n/a

Evgenechka
)
Делфи-то шестой? )))
Есть такая интересная штука - FastReport называется ) посмотри в интернете, почитай, скачай ))) И поставь )))
 
Старый 07.05.2003, 19:09     # 4
_NewUser_
Newbie
 
Регистрация: 07.05.2003
Сообщения: 21

_NewUser_ Путь к славе только начался
Re: отчеты в Delphi

Цитата:
Как писал Evgenechka
привет всем. подскажите, плиз, как при "заготовке" отчета (т.е. до команды preview), добавить в отчет вторую страницу? у меня все компоненты на одной не помещаются
заранее спасибо за помощь
Ты толком объясни чего не получается.
Fast Report вообще-то сам определяет сколько страниц необходимо сформировать.
_NewUser_ вне форума  
Старый 08.05.2003, 08:58     # 5
ol
Newbie
 
Регистрация: 13.04.2003
Сообщения: 40

ol Путь к славе только начался
Smile

на сколько я понял то что ты хочеш можно сделать через: правка- добавить страницу
ol вне форума  
Старый 17.05.2004, 15:37     # 6
OxyGen
Guest
 
Сообщения: n/a

Код:
 
procedure TMainForm.acPrintExecute(Sender: TObject);
var frPhoto, frMap: TfrPictureView;
frInfo: TfrView;
Page: TfrPage;
i: integer;
delta: integer;
begin
delta := 20;
frReport1.Pages.Clear;
if InfoPanel.SelCount = 0 then InfoPanel.SelectAll;
for i := 0 to InfoPanel.Items.Count - 1 do
	if InfoPanel.Items[i].Selected then
	begin
	 frReport1.Pages.Add; // create page
	 Page := frReport1.Pages[i];
	 frPhoto := TfrPictureView.Create;
	 frPhoto.SetBounds(delta, delta, Round(Page.pgWidth / 3), Round(Page.pgHeight / 6));
	 frPhoto.Picture.LoadFromFile(currdir + PhotosDir + InfoPanel.Items[i].Caption + '.jpg');
	 Page.Objects.Add(frPhoto);
	 frInfo := TfrMemoView.Create;
	 frInfo.BandAlign:=baWidth;
	 frInfo.dy:=20;
	 frInfo.y:=delta+Round(Page.pgHeight / 6)+20;
	 frInfo.Memo.Add(InfoPanel.Items[i].Caption);
	 Page.Objects.Add(frInfo);
	 frMap := TfrPictureView.Create;
	 frMap.SetBounds(20, frInfo.y + delta, Round(Page.pgWidth / 3), Round((Page.pgHeight / 6) * 0.75));
	 frMap.Picture.LoadFromFile(currdir + Mapsdir + InfoPanel.Items[i].Caption + '.jpg');
	 Page.Objects.Add(frMap);
	end;
frReport1.ShowReport;
end;
 
end.


А еще лучше посмтори вот это
http://www.fastreport.ru/ru/faq.php
 
Старый 27.08.2004, 04:56     # 7
Dzenik
Newbie
 
Регистрация: 29.01.2004
Сообщения: 26

Dzenik Путь к славе только начался
народ подскажите что за траблы в FastReporte в preview устанавливаю на принтер размер листа А3 пичатаю - всё ОК, но когда в виндовсе устанавливаю А3 то в FastReporte стоит всё тот же А4.
Как-то надоедает ето править.
Как заставить FastReport поддерживать виндовс настройки принтера?
Dzenik вне форума  

Опции темы

Ваши права в разделе
Вы НЕ можете создавать новые темы
Вы не можете отвечать в темах.
Вы НЕ можете прикреплять вложения
Вы НЕ можете редактировать свои сообщения

BB код Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.

Быстрый переход


Часовой пояс GMT +4, время: 00:20.




Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.