Fastreport, mehrsprachige Reports

[EarlyBird]

Zitat von EarlyBird:

Jetzt möchte ich natürlich noch die Translate Funktion per doppelklick auf die Combobox oder Listbox in die Memos schreiben.
Hat da jemand einen Tipp?

Mein Eigener Tipp
Für die die es interessiert

Delphi-Quellcode:

  MyDesigner: TfrxCustomDesigner;
implementation

{$R *.dfm}

procedure TForm3.btn1Click(Sender: TObject);
var
   ...
   ...
begin
  MyDesigner := TfrxCustomDesigner(frxDesignerClass.NewInstance);
  MyDesigner.CreateDesigner(nil, frxReport);
//usw wie oben beschrieben


procedure lst1DblClick(Sender: TObject);
var
 tranlateStr: string;
 myMemoView : TfrxMemoView;
 myListBox : TListBox;
begin
  myListBox := TListBox(Sender);
  tranlateStr:= myListBox.Items[myListBox.ItemIndex] ;
  myMemoView := MyDesigner.SelectedObjects.Items[0];
  myMemoView.Text := 'TransLate[' +  QuotedStr(tranlateStr) +']';
end;

Es gibt noch ein bisschen was zu tun am Code
aber das Prinzip funktioniert.
Jetzt muss ich es nur noch ein bisschen verfeineren

Das ganze wird schon eine deutliche Hilfe beim erstellen mehrsprachiger Dokumente.
Die Verschiedenen Sprachen speicher ich in einer Datenbank mit den Konstanten
Diese kann ich dann immer per doppelklick in ein TfrxMemoView im Fastreport Designer einfügen.
Für mich eine sehr gute Lösung.

Vielen Dank für all die Tipps und Anregungen

[EarlyBird]

Wenn mal jemand etwas ähnliches machen möchte.
Diesen Code kann man als ersten Ansatz nutzen.

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Tabs,
  Dialogs, ExtCtrls, frxDesgn, frxClass, StdCtrls, ToolWin, ComCtrls;

type
  TForm3 = class(TForm)
    btn1: TButton;
    frxreport: TfrxReport;
    frxDesigner1: TfrxDesigner;
    pnl1: TPanel;
    procedure btn1Click(Sender: TObject);
    procedure lst1DblClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;
  MyDesigner: TfrxCustomDesigner;
implementation

{$R *.dfm}

procedure TForm3.btn1Click(Sender: TObject);
var
   Designer: TfrxDesignerForm;
   cbb2: TComboBox;
   tlb2: TToolBar;
   MyTabs : TTabSet;
   lb_Constanten: TListBox;
   Pn_Constanten: TPanel;
   x : Integer;
   myClassname : String;
   mymemp :  TfrxMemoView;
begin
  MyDesigner := TfrxCustomDesigner(frxDesignerClass.NewInstance);
  MyDesigner.CreateDesigner(nil, frxReport);
  frxReport.Designer :=  MyDesigner;
  Designer := TfrxDesignerForm(frxReport.Designer);
  cbb2 := TComboBox.Create(Self);
  tlb2 := TToolBar.create(self);
  tlb2.Parent:= Designer.DockTop;
  cbb2.Parent :=  tlb2;
  cbb2.Items.Add('Anzahl');
  cbb2.Items.Add('Ausfuehrung');
  cbb2.Items.Add('Box');
  cbb2.Items.Add('Breite');
  cbb2.Items.Add('Durchmesser');
  cbb2.Items.Add('Waage');

  lb_Constanten := TListBox.Create(self);
  Pn_Constanten := TPanel.Create(Self);


  Designer.Show;
  for x := 0 to Designer.DataTree.ControlCount - 1 do
    begin
      myClassname := Designer.DataTree.Controls[x].ClassType.ClassName;
      if  myClassname = 'TTabSet' then
        begin
          MyTabs := TTabSet(Designer.DataTree.Controls[x]);
          Break;
        end;
    end;

  Pn_Constanten.parent := Designer.DataTree.DataPn.parent;
  Pn_Constanten.Align := Designer.DataTree.DataPn.Align;
  Pn_Constanten.BoundsRect := Designer.DataTree.DataPn.BoundsRect ;
  Pn_Constanten.Visible := False;
  lb_Constanten.Parent :=  Pn_Constanten;
  MyTabs.Tabs.AddObject('TransLations', Pn_Constanten);
  lb_Constanten.Items  :=  cbb2.Items;
  lb_Constanten.Align  := alClient;
  lb_Constanten.OnDblClick := lst1DblClick;
  Designer.DataTree.UpdateItems;
end;

procedure TForm3.btn2Click(Sender: TObject);
begin
  frxReport.DesignReport;
end;

procedure TForm3.lst1DblClick(Sender: TObject);
var
 tranlateStr : string;
 myMemoView : TfrxMemoView;
 myListBox : TListBox;
begin
  if MyDesigner.SelectedObjects.Count > 1 then
    begin
      MessageDlg('Bitte wählen Sie ein einzelnes MemoView aus.',
        mtInformation, [mbOK], 0);
      Exit;
    end;
  myListBox := TListBox(Sender);
  tranlateStr := myListBox.Items[myListBox.ItemIndex] ;
  try
    myMemoView := MyDesigner.SelectedObjects.Items[0];
    myMemoView.Text := 'TransLate[' +  QuotedStr(tranlateStr) +']';
    MyDesigner.Report.Designer.ReloadReport;
    MyDesigner.SelectedObjects.Clear;
    MyDesigner.SelectedObjects.Add(myMemoView) ;
  except
     MessageDlg('Das einfügen ist nur iin MemoViews mäöglich',
       mtInformation, [mbOK], 0);
  end;
end;

end.

Mir ist schon klar das es noch einiges zu tun und zu verbessern gibt