TColorscheme als String

[Progman]

Ich hatte etwas Zeit, hier ne Beispiel-Unit:

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