-=Den=-
-=Den=-
Подробная информация
- Имя пользователя
- -=Den=-
- Электронная почта
- Присоединился
- Посещений
- 37
- Был на сайте
- Группы
- FR Team
Комментарии
-
В принципе сделать можно, но т.к. идет прямая работа с стеком и невозможно проверить колиество параметров и их тип, то при ошибке в скрипте "упадет" все приложение. unit Functions; interface implementation uses Windows, Classes, fs_iinterpre…
-
А если так: type TForm1 = class(TForm) frxChartObject1: TfrxChartObject; frxReport1: TfrxReport; frxDesigner1: TfrxDesigner; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declar…
-
Приблезительно так: var Page:TfrxReportPage; MasterData:TfrxMasterData; Chart:TfrxChartView; s: TChartSeries; Ser:TfrxSeriesItem; begin Page := TfrxReportPage.Create(Report); MasterData := TfrxMasterData.Create(Page); Chart := TfrxChartView.Create(M…
-
Добавить серии из Delphi можно так: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, frxChart, frxClass,TeEngine, Chart, Series,GanttCh, frxDesgn; type TForm1 = class(TForm) …
-
А если в design-time вызвать дизайнер ошибка появится?
-
От старой версии остались bpl, попробуйте удалить FR, удалить все fs*.bpl и frx*.pbl из windows\system32 и поставить снова.
-
Rep_Kassa.Variables := ''''+'строка'+'''';
-
Приведение типов работает только для Классов, к стандартным типам приводить нельзя.
-
procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent); var Cross: TfrxCrossView; i, j: Integer; begin if Sender is TfrxCrossView then if Sender.Name = 'Cross1' then begin //заполняем первый корсс. Cross := TfrxCrossView(Sender); …
-
А, так: begin MasterData1.DataSet.Open; If MasterData1.DataSet.RecordCount = 0 then begin MasterData1.RowCount:=1; end; end.
-
Посмотрите здесь: http://www.fast-report.com/en/forum/?p=/discussion/2921 http://www.fast-report.com/en/forum/?p=/discussion/2741
-
написал: Все переменные я пихаю в отчет как строки.. Ошибка там в том что я передаю '1.18' а он собака конвертит в '1,18' Тогда и в отчете сними нужно работать как со строками.
-
Можно менять текст: if a < 0 then Begin Memo1.Memo := '[Table1."NAME"]'; Memo2.Memo := ''; end else Begin Memo1.Memo := ''; Memo2.Memo := '[Table1."NAME"]'; end;
-
Откройте HTML блокнотом и ищите тэги
исправте имя файла на нужное.
-
Какой тип у FHideVars.Values[FHideVars.Names]? Попробуйте передать не как строку, а как число.
-
В обработчике события OnBrforePrint бэнда на которм разположены мемо(если значение а доступно в отчете): if a < 0 then Begin Memo1.Visible := True; Memo2.Visible := False; end else Begin Memo1.Visible := False; Memo2.Visible := True; end;
-
Как вы передаете переменную? Можете пивести код?
-
В Delphi: Var List:TstringList; begin frxReport1.PrepareReport(); List := Pointer(Integer(frxReport1.Script.Variables['List'])); List[i]; Не забудте убрать List.Free в скрипте.
-
А так: procedure GroupHeader1OnAfterPrint(Sender: TfrxComponent); begin List.Add(VarToStr()); Inc(i); end; Список лучше уничтожать после закрытия отчета, а не в OnStopReport.
-
Покажите код скрипта.
-
А где создаете и заполняите?
-
Создайте массив и заполните его в отчете, через FindObject не получится. Под 'СПИСОК_ОРИЕНТАЦИИ_СТРАНИЦ' я имел в виду массив или список передаваемый и заполняемый в скрипте.
-
var i,j:integer; memo1:TfrxMEmoView; Band:TfrxOverlay; begin for i := 0 to frxReport1.PagesCount -1 do begin Band := TfrxOverlay.Create(frxReport1.Pages[i]); Memo1:=TfrxMemoView.Create(Band); Band.CreateUniqueName; Band.PrintOnTop := True; Band.SetB…
-
написал: То есть он необходим? Да. написал: А где его взять? Здесь
-
var i:integer; Memo:TfrxMemoView; begin frxReport1.PrepareReport(); for i:= 0 to frxReport1.PreviewPages.Count -1 do begin Memo:=TfrxMemoView.Create(frxReport1.PreviewPages.Page[i]); with Memo do begin CreateUniqueName; Rotation := 315; S…
-
Update 2 для Delphi 6 установлен?
-
Тогда так: var i,j:integer; Memo:TfrxMemoView; begin for i := 0 to frxReport1.PagesCount -1 do for j := 0 to frxReport1.Pages[i].Objects.Count - 1 do begin Memo:=TfrxMemoView.Create(frxReport1.Pages[i].Objects[j]); with Memo do begin CreateUniqueN…
-
Если вообще для всех, то так: var i,j,k:integer; Memo:TfrxMemoView; begin for i := 0 to frxReport1.PagesCount -1 do for j := 0 to frxReport1.Pages[i].Objects.Count - 1 do for k := 0 to TfrxComponent(frxReport1.Pages[i].Objects[j]).Objects.Count -1 …
-
Во время формирования отчета изменить ориентацию нельзя, но можно менять ориентацию страниц сформированного отчета. Попробуйте сделать так: 1) Передатиь в скрипт список в котором помечать ориентацию страници. 2) из Delphi поменять ориентацию стра…
-
Проверил, работает.