TColorscheme als String

**Privateer3000**

Hi Leuet,
in was muss ein Strin konvertiert werden
um als ColorScheme zu übergeben ?

Grüße

**Der_Unwissende**

Hi,
eine kleine Bitte vorab, etwas mehr Zeit beim Schreiben nehmen und dafür bessere Rechtschreibung und mehr Information verwenden. Das spart zum Schluß eh Zeit, da das nachfragen wegfällt.
In was ein String konvertiert werden muss um als TColorScheme übergeben werden zu können? Na ja, in ein TColorScheme natürlich.
Da mir TColorScheme nichts sagt und auch meine Hilfe nichts dazu findet und ich einfach mal davon ausgehe, dass Deine eigentliche Frage sich auf das Wie bezieht, fehlt hier ganz klar eine Menge Informationen. Was genau möchtest Du denn machen? An wen möchtest Du einen String als TColorScheme übergeben und in welcher Unit (welcher Komponente) ist TColorScheme zu finden?

Gruß Der Unwissende

**Progman**

Wenn die ColorSchemes der XiButtons gemeint sind. die sind so definiert:

markieren

Delphi-Quellcode:

			  TColorScheme = (csNeoDesert, csNeoSky, csNeoGrass, csNeoSilver, csNeoRose, csNeoSun,

       csDesert, csGrass, csSky, csSun, csRose, csSilver, csCustom);

Da könnte man nur über die Ordnungszahl rankommen, mit String wird das nichts.

**Bernhard Geyer**

Zitat von Progman:

Da könnte man nur über die Ordnungszahl rankommen, mit String wird das nichts.

Nicht ganz. Eine Möglichkeit muß die IDE ja auch haben um das in die DFM's zu schreiben. Über die RTTI-Infos kommt man da schon ran und irgendwo hab ich das auch mal auch gemacht. Aber wo war das wieder

**Progman**

naja, einfach mal in den Units (XIButtons.pas) mal nachgrasen, wie der gesetzt wird, das kann schon hilfreich sein

**Privateer3000**

Hallo,
ja es handelt sich um XIButtons.
Wie meinst du das mit Ordungszahlen?

**Progman**

Die einzelnen Schemes haben doch eine Position in der Deklaration.
Ord(csNeoDesert) ergibt z.B. 0 (null), das nächste wäre 1 usw.
Nun müsste man über ColorSchemes[0] ja csNeoDesert zuweisen können oder so in der Art.
Das hieße, den String in die entsprechende Ordnungszahl umsetzen.
Wäre jedenfalls meine Idee dazu.

**Progman**

markieren

Delphi-Quellcode:

			const

  ColorSchemeStrings: Array[0..12] of String = ('csNeoDesert', 'csNeoSky',

       'csNeoGrass', 'csNeoSilver', 'csNeoRose', 'csNeoSun',

       'csDesert', 'csGrass', 'csSky', 'csSun', 'csRose', 'csSilver',

       'csCustom');

Nun brauchst du nur nachzusehen, an welcher Position dein String steht und du hast die "Nummer" des ColorSchemes

**Privateer3000**

Vielen Dank, werd ich probieren

**Progman**

Ich hatte etwas Zeit, hier ne Beispiel-Unit:

zusammenfalten · markieren

Delphi-Quellcode:

			unit testUnit4;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, XiButton;

type

  TForm1 = class(TForm)

    XiButton1: TXiButton;

    Edit1: TEdit;

    procedure XiButton1Click(Sender: TObject);

  private

    function GetColorScheme(s: String): TColorScheme;

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

const

  ColorSchemeStrings: Array[0..12] of String = ('csNeoDesert', 'csNeoSky',

       'csNeoGrass', 'csNeoSilver', 'csNeoRose', 'csNeoSun',

       'csDesert', 'csGrass', 'csSky', 'csSun', 'csRose', 'csSilver',

       'csCustom');

implementation

{$R *.dfm}

function TForm1.GetColorScheme(s: String): TColorScheme;

var i, x: Integer;

begin

  x:=-1;

  for i:=0 to 12 do

    if s = ColorSchemeStrings[i] then x:=i;

  if x > -1 then

    case x of

      0: Result:=csNeoDesert;

      1: Result:=csNeoSky;

      2: Result:=csNeoGrass;

      3: Result:=csNeoSilver;

      4: Result:=csNeoRose;

      5: Result:=csNeoSun;

      6: Result:=csDesert;

      7: Result:=csGrass;

      8: Result:=csSky;

      9: Result:=csSun;

      10: Result:=csRose;

      11: Result:=csSilver;

      12: Result:=csCustom;

    end;

end;

procedure TForm1.XiButton1Click(Sender: TObject);

begin

  XiButton1.ColorScheme:=GetColorScheme(Edit1.Text);

end;

end.

Es funktioniert

TColorscheme als String

TColorscheme als String

Re: TColorscheme als String

Re: TColorscheme als String

Re: TColorscheme als String

Re: TColorscheme als String

Re: TColorscheme als String

Re: TColorscheme als String

Re: TColorscheme als String

Re: TColorscheme als String

Re: TColorscheme als String

Forumregeln

Privateer3000 Registriert seit: 10. Jun 2002 Ort: Jena 1.128 Beiträge Delphi 10.4 Sydney	#1 TColorscheme als String 21. Nov 2007, 08:50 Hi Leuet, in was muss ein Strin konvertiert werden um als ColorScheme zu übergeben ? Grüße Peter +++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++
	Zitat

Progman Registriert seit: 31. Aug 2007 Ort: 99974 MHL 695 Beiträge Delphi 10.1 Berlin Starter	#5 Re: TColorscheme als String 21. Nov 2007, 11:32 naja, einfach mal in den Units (XIButtons.pas) mal nachgrasen, wie der gesetzt wird, das kann schon hilfreich sein Karl-Heinz Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren! (Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
	Zitat

Privateer3000 Registriert seit: 10. Jun 2002 Ort: Jena 1.128 Beiträge Delphi 10.4 Sydney	#6 Re: TColorscheme als String 21. Nov 2007, 13:16 Hallo, ja es handelt sich um XIButtons. Wie meinst du das mit Ordungszahlen? Peter +++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++
	Zitat

Privateer3000 Registriert seit: 10. Jun 2002 Ort: Jena 1.128 Beiträge Delphi 10.4 Sydney	#9 Re: TColorscheme als String 21. Nov 2007, 13:38 Vielen Dank, werd ich probieren Peter +++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++
	Zitat