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