Deutsche Dialoge und Menüs in Rave

[Stefan Otto]

Hallo zusammen,

ich versuche gerade mich mit Rave5 BE in Delphi7 anzufreunden.
Ich habe mir das mitgelieferte Demo im Delphi\Rave Ordner compiliert.
Wie bringe ich den Dialogen deutsch bei. Im Designer sind die
gleichen Dialoge und Menüs ja schließlich auch in deutsch.

Schöne Grüße

Stefan

[Thomas _ Pfister]

Stefan,
ist mit der be-version (d.h. ohne source!) nicht ganz trivial. es geht am "einfachsten" über "RvSystem1OverridePreview"-Proc.
ich will die nächsten tage eine demo für diesen fall schreiben und in den bin.-bereich der nevrona-newsgroup setzen.

wenn du die gamma-version (5.0.8, hier wurden sehr viele bugs beseitigt) für rave5-be einsetzt, dann ist alles in englisch... :-((

:-) thoma

[HSBC]

Ich hatte dasselbe Problem und ebenfalls lange gesucht. Die jeweiligen Dateien der Dialoge liegen im Rave5\Lib - Verzeichnis und sind mit Delphi editierbar. Es betrifft jeweils die drei .dfm und .xfm - Dateien. Einfach unter Delphi öffnen und die gewünschten Texte selbst ändern.
:-) Herber

[Stefan Otto]

Stimmt nach dem Update von der DelphiPage ist alles in Englisch.
Könntest du ein kleines Beispiel zu RvSystem1OverridePreview
bringen? muß ja nicht gleich eine komplette Demo sein.

Danke und Schöne Grüß

[Thomas _ Pfister]

hallo,

hier ein kleines bsp. ich nutze allerdings ein eigene abgeleite form von der rave5 beX-version.

<PRE>

procedure TForm1.RvSystem1OverridePreview(ReportSystem: TRvSystem;
OverrideMode: TOverrideMode; var OverrideForm: TForm);
begin
case OverrideMode of
omCreate:
begin
OverrideForm := TRvPreviewForm.Create
(self);
(OverrideForm as
TRvPreviewForm).ReportSystem := ReportSystem;
with OverrideForm as TRvPreviewForm,
ReportSystem do
begin
Caption := TitlePreview;
Width := SystemPreview.FormWidth;
Height := SystemPreview.FormHeight;
WindowState :=
SystemPreview.FormState;
end;
(OverrideForm as
TRvPreviewForm).OnAfterPreviewPrint :=
ReportSystem.OnAfterPreviewPrint;
end;
omShow:
begin
with OverrideForm as TRvPreviewForm, ReportSystem do
begin

(FilePrinter1);

(FilePreview1);
(FilePreview1);
RvRenderPrinter.MacroData.Assign
(StorageMacroData);
RvRenderPreview.MacroData.Assign
(StorageMacroData);
RvRenderPrinter.OnDecodeImage :=
OnDecodeImage;
RvRenderPreview.OnDecodeImage :=
OnDecodeImage;
if Assigned(OnPreviewSetup) then
OnPreviewSetup
(RvRenderPreview);
InputFileName :=
SystemFiler.Filename;
InputStream := SystemFiler.Stream;
InitFromRPSystem;
if soPreviewModal in SystemOptions then
begin
ShowModal;
end
else
begin
Show;
end;
end;
end;
omWait:
begin
with OverrideForm as TRvPreviewForm,
ReportSystem do
begin
if not (soPreviewModal in SystemOptions) then
begin
FormClosed := false;
repeat
Application.ProcessMessages;
until FormClosed;
end;
end;
end;
omFree:
begin
OverrideForm.Free;
end;
end;
end;

</PRE&gt

[Stefan Otto]

Besten Dank an Thomas Pfister

da sieht man wo die Reise hingeht.

Gruß Stefa

[Thomas _ Pfister]

hallo,

hatte endlich mal etwas zeit und ruhe:

http://www.nevrona.com/rave/tips/rvtip72.html

:-) thoma