Fastreport, mehrsprachige Reports

[user0815]

beim Erstellen des TfrxReport auf die Variablen zugreifen & die Texte entsprechend setzen:

Delphi-Quellcode:

var
  i : Integer;
  Variable : TfrxVariable;
  MemoFeld : TfrxMemoView;
begin
  i := Report.Variables.IndexOf('ReportVariable');
  if i <> -1 then
  begin
    Variable := Report.Variables.Items[i];
    Variable.Value := QuotedStr('Anzeigetext');
  end;

...

Report.ShowReport();

[ibp]

könnte man doch auch innerhalb des Reportes steuern, hätte den Vorteil dass es nur für den jeweiligen Report angepasst werden müsste. Bei der Steuerung vom aufrufenden Programm müsste das ja jedes mal angepasst werden wenn etwas ergänzt oder verändert wird...

[ensaron]

Ähnlich wie user0815 mit den Variablen nutze ich folgende Funktion um die Komponenten eines Reports zu übersetzen (mittels der gnugettext):

Delphi-Quellcode:

for i := 0 to Report.ComponentCount - 1 do
begin
  if Report.Components[i] is TfrxMemoView then
  begin
    TranslateMemo := TStringList.Create;
    try
      TranslateMemo.Text := TfrxMemoView(lComponent).Memo.Text;
      for j := 0 to TranslateMemo.Count - 1 do
        TranslateMemo[j] := _(TranslateMemo[j]); //Übersetzungsfunktion der gnuggettext
      TfrxMemoView(lComponent).Memo.Text := TranslateMemo.Text;
    finally
      TranslateMemo.Free;
    end;
  end;
end;
Report.ShowReport;