Lex
Lex
Подробная информация
- Имя пользователя
- Lex
- Присоединился
- Посещений
- 0
- Был на сайте
- Группы
- Members
Комментарии
-
Кидаешь фонновый бенд(Overlay) на страницу отчет. Растягиваешь его на всю страницу и на нем распологаешь все что должно повторяться на каждом листе. Затем уже кидаешь все отстальные необходимые бенды и тд. Да, сначала в свойсвах страницы сними га…
-
procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin Memo1.Clear; for i := 0 to Self.ComponentCount - 1 do if Self.Components[i] is TfrxCustomExportFilter then Memo1.Lines.Add(Self.Components[i].Name); end; при …
-
Overlay не поможет?
-
если это скриптовая переменная то просто Company:='Первая кнопка' если переменная отчета то Set('Company', ''''+'Первая кнопка'+'''')
-
похоже вот что тебе нужно(хотя не пойму зачем) Memo := TfrxMemoView(Report.FindObject('Memo1')); Memo.Text := 'asdfsdf';
-
Где и как ты создаешь свои мемо?
-
в самом отчете просто Memo1.Text := '1111';
-
procedure TForm1.Button1Click(Sender: TObject); var Memo1: TfrxMemoView; begin Memo1 := frxReport1.FindObject('Memo1') as TfrxMemoView; Memo1.Text := '1111'; frxReport1.ShowReport; end; ни каких ошибок, все работает
-
посмотри здесь
-
uses Printers;
-
К сожалению нет
-
вот что у меня получилось 1. твою мемку с цифрой(Memo1) ложим на бенд Overlay и делаем его невидимым 2. добовляем глобальные переменные var Reprinit: Boolean; SaveText: string; 3. Добовляем следующие обработчики MasterData беднду proce…
-
PrintOnNewPage = True у бенда "Заголовок данных" нето, теперь понял что надо
-
var MyLine: Integer; procedure Memo1OnBeforePrint(Sender: TfrxComponent); begin if Engine.FreeSpace < MasterData1.Height then MyLine := 1 else MyLine := MyLine + 1; end; begin MyLine := 0; end. в самом Мемо1 [MyLine]
-
написал: Если я правильно понял, переменные отчёта можно добавить на этапе создания отчёта, а не во время его выполнения, а во время выполнения нужно довольствовыться переменными объявленными в коде что ты понимаешь под "этапом создания о…
-
в Дельфи frxReport1.Script.AddVariable('MyVar', 'String', '11111'); frxReport1.ShowReport; в отчете begin ShowMessage(MyVar); end. все работает
-
Как ни странно столкнулся с такой же проблеммой, но фон должен быть именно прозрачным т.к. при экспорте в Excel все рисунки распологаються выше текста и "финт ушами" с помещением рисунка под текстом не проходит. В связи с этим вопрос к разработчик…
-
Попробуй FR3.21 там были какие-то исправления с пользовательскими функциями
-
- сквозная нумерация
-
Memo1.Visible := MasterData1.DataSet.RecordCount = ; или Memo1.Visible := MasterData1.DataSet.RecordCount = ;
-
gpi написал: Если из программы, то через FindObject обоим кнопкам присваиваешь обработчик procedure TForm1.ButtonClick(Sender: TObject); var frxPicture: TfrxPictureView; begin frxPicture := (frxReport1.FindObject('Picture1') as TfrxPictur…
-
Похоже только так if key = chr(13) then Edit2.SetFocus; покрайне мере я не нашел каким образом достучаться из кода до TabOrder.
-
в событии AfterCalcHeight для ReportTitle изменяй видимость мемок, при необходимости смешай их и уменьшай размер бенда до необходимого что-то типа if {твое условие} then begin Memo1.Visible := False; Memo2.Top := Memo2.Top - Memo1.He…
-
может я что не так понял но вроде точто тебе нужно получаеться так Child1.Height / fr1cm да не забудь что размеры бендов округляются до сетки.
-
[FormatDateTime('YYYY/MM/DD', )]
-
Насколько я понял основной вопрос втом, как прервать выполнение отчета из самого отчета.
-
попробуй так: [SUM(IIF(<0,'0',<Dataset."data">))] вроде что-то подобное делал.
-
Как вариант - помести ее на задний план, а прозрачну часть сделай белой.
-
под MasterData я понимал бенд
-
используй свойство MasterData.PrintIfDetailEmtpy