Rave: Farbe eines DataText per Parameter ändern

[Helmi]

Hallo,

ich verwende Rave und ändere mit Delphi die Rotation eines DataTextes.

Programmtechnisch schaut das so aus:
Delphi:

Delphi-Quellcode:

  with RvProject do
    begin
      Open;

      try
        //Text-Grad
        SetParam('S_TextGrad', S_Text_Grad);

        //ausführen
        Execute;

      finally
        Close;
      end;
    end;

Rave (OnBeforePrint des DataText):

Code:

DataText1.Rotation := StrToInt(RaveProject.GetParam('S_TextGrad'));

Das funktioniert auch!

Nun wollt ich die Farbe des DataText auf gleiche weise ändern:

Delphi-Quellcode:

//Text-Farbe
SetParam('S_TextFarbe', S_Text_Farbe);  //S_Text_Farbe ist eine String-Variable und beinhaltet z. B. clYellow

Im OnBeforePrint des DataTextes dachte ich, ich könnte unter den anderen Code folgenden Code hinzufügen:

Code:

DataText1.Color := RaveProject.GetParam('S_TextFarbe');

Sobald ich aber dann compilieren will, stürzt mit Rave (Version 5.0) ab?

Wo ist der Fehler und wie kann man die Farbe per Parameter ändern?

[p0ke]

Hast du mal probiert was passiert wenn du die Farbe direkt übergibst?

DataText1.Color := clRed;

[Helmi]

Zitat von p0ke:

Hast du mal probiert was passiert wenn du die Farbe direkt übergibst?

DataText1.Color := clRed;

Das funktioniert!

[Helmi]

so,

ich hab jetzt etwas rumgespielt und habs geschafft

Delphi:

Delphi-Quellcode:

S_Text_Farbe: String;

{...}

S_Text_Farbe  := IntToStr(ColorBox_Text_Farbe.Selected);

with RvProject do 
    begin 
      Open; 

      try 
        //Text-Farbe
        SetParam('S_TextFarbe', S_Text_Farbe); 

        //ausführen 
        Execute; 

      finally 
        Close; 
      end; 
    end;

Im Rave-Designer (OnBeforePrint des DataText):

Code:

DataText1.Color := StrToInt(RaveProject.GetParam('S_TextFarbe'));

Und schon funktionierts (aber nur mit den Farben die man auch im Rave-Designer einstellen kann)