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.