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

Arhis

Здравствуйте.

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

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

Arhis

АУ! Здесь есть кто-нибудь? Разработчики, Я к вам обращаюсь. У меня, вообще-то работа стоит.

gpi

А самому взять пакеты от BDS 2006 и поменять 10 на 11?

Arhis

gpi написал: »

А самому взять пакеты от BDS 2006 и поменять 10 на 11?

Я очень рад за вас, молодой человек, у вас есть время что-то там искать и менять самому.
Надо полагать именно для этого я и платил свои деньги за этот пакет чтобы потом в нем что-то менять самому.

-=Den=-

Поддержка обновлений 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;

Levon

Проделал все операции, устанавливаю пакеты, в пакете frxTee11.dpk ошибка:
[DCC Error] frxChartEditor.pas(493): E2250 There is no overloaded version of 'CreateNewSeriesGallery' that can be called with these arguments
Лев Цуканов

Levon

Делаю еще раз, очень тщательно и аккуратно:
Компиляция run-time пакетов -
[DCC Error] fs11.dpk(62): F1026 File not found: 'fs_imenusrtti.dcu' - ну нет такого файла в FR3.24.
Хорошо, закомментировал, продолжаю...

Levon

Далее - \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}----------------------------------------------------------

Если их убрать - компиляция проходит.

Levon

frxDB11 - заменить запятую в конце файла на " ; "

Levon

Далее все нормально - установка завершена!