Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Rave: Farbe eines DataText per Parameter ändern (https://www.delphipraxis.net/92759-rave-farbe-eines-datatext-per-parameter-aendern.html)

Helmi 25. Mai 2007 13:10


Rave: Farbe eines DataText per Parameter ändern
 
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 25. Mai 2007 13:46

Re: Rave: Farbe eines DataText per Parameter ändern
 
Hast du mal probiert was passiert wenn du die Farbe direkt übergibst?

Delphi-Quellcode:
DataText1.Color := clRed;

DP-Maintenance 25. Mai 2007 13:55

DP-Maintenance
 
Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
Es geht um Delphi.

Helmi 25. Mai 2007 15:34

Re: Rave: Farbe eines DataText per Parameter ändern
 
Zitat:

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

Delphi-Quellcode:
DataText1.Color := clRed;

Das funktioniert!

Helmi 25. Mai 2007 18:08

Re: Rave: Farbe eines DataText per Parameter ändern
 
so,

ich hab jetzt etwas rumgespielt und habs geschafft :hello:

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)


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:24 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz