установка Fast Report 3.24 в Delphi 2007 Rd2

отредактировано 19:44 Раздел: FastReport 3.0
Здравствуйте.

Как установить FastReport 3.24 в Delphi 2007 Professional Edition R2

Заранее спасибо.

Комментарии

  • отредактировано February 2008
    АУ! Здесь есть кто-нибудь? Разработчики, Я к вам обращаюсь. У меня, вообще-то работа стоит.
  • gpigpi
    отредактировано 19:44
    А самому взять пакеты от BDS 2006 и поменять 10 на 11?
  • отредактировано 19:44
    gpi написал: »
    А самому взять пакеты от BDS 2006 и поменять 10 на 11?
    Я очень рад за вас, молодой человек, у вас есть время что-то там искать и менять самому.
    Надо полагать именно для этого я и платил свои деньги за этот пакет чтобы потом в нем что-то менять самому.
  • отредактировано 19:44
    Поддержка обновлений 3-й версии прекратилась до выхода BDS 2007, поэтому 3-ка официально не поддерживает BDS 2007.
    В аттаче dpk и bdsproj файлы для Delphi 2007.

    Еще нужен небольшой фикс исходников:
    ----------------------------------------------------------
    в файле frx.inc
    ----------------------------------------------------------
    
    - найдите строку:
    // Uncomment the following line if you don't want to include component 
    editors
    
    - перед ней добавьте:
    
    {$IFDEF VER185}      // Delphi 11.0
       {$DEFINE Delphi4}
       {$DEFINE Delphi5}
       {$DEFINE Delphi6}
       {$DEFINE Delphi7}
       {$DEFINE Delphi9}
       {$DEFINE Delphi10}
       {$DEFINE Delphi11}
       {$DEFINE RICHBCB}
       {$WARN UNSAFE_CODE OFF}
       {$WARN UNSAFE_TYPE OFF}
       {$WARN UNSAFE_CAST OFF}
       {$WARN SYMBOL_PLATFORM OFF}
       {$WARN UNIT_PLATFORM OFF}
       {$WARN SYMBOL_DEPRECATED OFF}
       {$WARN UNIT_DEPRECATED OFF}
    {$ENDIF}
    
    {$IFDEF VER190}      // BDS 2007
       {$DEFINE Delphi4}
       {$DEFINE Delphi5}
       {$DEFINE Delphi6}
       {$DEFINE Delphi7}
       {$DEFINE Delphi9}
       {$DEFINE Delphi10}
       {$DEFINE Delphi11}
       {$DEFINE RICHBCB}
       {$WARN UNSAFE_CODE OFF}
       {$WARN UNSAFE_TYPE OFF}
       {$WARN UNSAFE_CAST OFF}
       {$WARN SYMBOL_PLATFORM OFF}
       {$WARN UNIT_PLATFORM OFF}
       {$WARN SYMBOL_DEPRECATED OFF}
       {$WARN UNIT_DEPRECATED OFF}
    {$ENDIF}
    
    ----------------------------------------------------------
    файл frxDesgn.pas
    ----------------------------------------------------------
    - найдите строку:
       DataLV.LargeImages := ObjectImages;
    
    - после добавьте:
    
    {$IFDEF Delphi11}
        StandardTB.Transparent := False;
        AlignTB.Transparent := False;
        TextTB.Transparent := False;
        FrameTB.Transparent := False;
        ExtraToolsTB.Transparent := False;
        ObjectsTB1.Transparent := False;
    {$ENDIF}
    
    ----------------------------------------------------------
    файл frxChartEditor.pas
    ----------------------------------------------------------
    - найдите:
    
    uses
       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
       StdCtrls, Menus, ExtCtrls, Buttons, frxClass, frxChart, frxCustomEditors,
       frxCtrls, frxInsp, frxDock, TeeProcs, TeEngine, Chart, Series, ComCtrls,
       ImgList, TeeGally
    {$IFDEF Delphi6}
    , Variants
    {$ENDIF};
    
    - замените на:
    
    uses
       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
       StdCtrls, Menus, ExtCtrls, Buttons, frxClass, frxChart, frxCustomEditors,
       frxCtrls, frxInsp, frxDock, TeeProcs, TeEngine, Chart, Series, ComCtrls,
       ImgList
    {$IFDEF Delphi11}
    , TeeGalleryAlternate
    {$ELSE}
    , TeeGally
    {$ENDIF}
    {$IFDEF Delphi6}
    , Variants
    {$ENDIF};
    
    - найдите:
    procedure TfrxChartEditorForm.AddBClick(Sender: TObject);
    
    - замените процедуру на:
    
    procedure TfrxChartEditorForm.AddBClick(Sender: TObject);
    var
       s: TChartSeries;
       n: TTreeNode;
       b: Boolean;
       ind: Integer;
    {$IFDEF Delphi11}
       TeeGalleryForm: TTeeGalleryForm;
       ChartSeriesClass : TChartSeriesClass;
       TeeFunctionClass : TTeeFunctionClass;
    {$ENDIF}
    begin
       ind := 0;
    {$IFDEF TeeChartStd7}
       s := CreateNewSeriesGallery(nil, nil, FChart.Chart, False, False, ind);
    {$ELSE}
    {$IFDEF Delphi11}
        s := nil;
        TeeGalleryForm := TTeeGalleryForm.Create(nil);
        TeeGalleryForm.Position := poScreenCenter;
        if TeeGalleryForm.ShowModal = mrOk then
          if 
    TeeGalleryForm.ChartGalleryPanel1.GetSeriesClass(ChartSeriesClass, 
    TeeFunctionClass, ind) then
            s := CreateNewSeries(nil, FChart.Chart, ChartSeriesClass, 
    TeeFunctionClass);
    {$ELSE}
        s := CreateNewSeriesGallery(nil, nil, FChart.Chart, False, 
    False{$IFNDEF TeeChart4}{$IFDEF TeeChartPro}, ind{$ENDIF}{$ENDIF});
    {$ENDIF}
    {$ENDIF}
       if s = nil then
         Exit;
       FChart.SeriesData.Add;
       with FChart.Chart do
       begin
         b := not (s is TPieSeries);
         View3DOptions.Orthogonal := b;
         AxisVisible := b;
         View3DWalls := b;
       end;
       n := ChartTree.Items.AddChild(ChartTree.Items[0], 
    GetGallerySeriesName(s));
       n.ImageIndex := 0;
       n.SelectedIndex := 0;
       n.StateIndex := 0;
       ChartTree.Selected := n;
    {$IFDEF Delphi11}
        TeeGalleryForm.Free;
    {$ENDIF}
       ChartTreeClick(nil);
    end;
    
  • отредактировано 19:44
    Проделал все операции, устанавливаю пакеты, в пакете frxTee11.dpk ошибка:
    [DCC Error] frxChartEditor.pas(493): E2250 There is no overloaded version of 'CreateNewSeriesGallery' that can be called with these arguments
    Лев Цуканов
  • отредактировано 19:44
    Делаю еще раз, очень тщательно и аккуратно:
    Компиляция run-time пакетов -
    [DCC Error] fs11.dpk(62): F1026 File not found: 'fs_imenusrtti.dcu' - ну нет такого файла в FR3.24.
    Хорошо, закомментировал, продолжаю...
  • отредактировано 19:44
    Далее - \Source\frx11.dpk.
    Прежде открыть текстовым редактором и заменить
    frxZLib in 'frxZLib.pas',
    на
    frxZLib in 'frxZLib.pas';
    Компилируем - в файле frxDesgn.pas ругается на те самые строки, которые добавили:
    файл frxDesgn.pas----------------------------------------------------------- 
    найдите строку:   DataLV.LargeImages := ObjectImages;
    - после добавьте:
    {$IFDEF Delphi11}    
    StandardTB.Transparent := False;    
    AlignTB.Transparent := False;    
    TextTB.Transparent := False;    
    FrameTB.Transparent := False;    
    ExtraToolsTB.Transparent := False;    
    ObjectsTB1.Transparent := False;
    {$ENDIF}----------------------------------------------------------
    
    Если их убрать - компиляция проходит.
  • отредактировано 19:44
    frxDB11 - заменить запятую в конце файла на " ; "
  • отредактировано 19:44
    Далее все нормально - установка завершена!

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.