Farbe aus Colordialog apspeichern?

hansg · Verfasst: Do 17.05.07 10:35

Hallo zusammen,

ich habe folgendes Problem:

Ich möchte aus einem ColorDialog die ausgewählte Farbe (color) in einen String abspeichern.
Wie mache ich so was:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if colordialog1.Execute then
  begin
    panel1.Color:=colordialog1.Color;
    mycolor:=colordialog1.Color; // das geht nicht !!
  end;
end;

_________________
Gruß Hans

Gausi · Verfasst: Do 17.05.07 11:03

Auf Anhieb würde ich die Funktion ColorToString probieren. ;-)

_________________
We are, we were and will not be.

tolosonic · Beiträge: 36

und wenn ich eine mit colortostring erzeugten string dann später wieder der eigenschaft zuweisen will, quasi
xxx.color := colorstring; (was ja nicht funktionieren wird)? strtocolor gibts ja leider nicht.

Jann1k · Verfasst: Fr 25.05.07 16:13

also, ich weiß nicht wie dein Programm aussieht, aber wäre es möglich, die Farben als Integer zu speichern? Dann könntest du der property einfach den Integerwert der Farbe zuweisen

Gausi · Verfasst: Fr 25.05.07 16:13

Wenn die eine Richtung ColorToString heisst, wie könnte dann die andere Richtung sinnvoll heißen? :roll:

_________________
We are, we were and will not be.

Nilan · Beiträge: 29 Win VistaSP1

StringToColor? könnte sein

hansg · Verfasst: Di 29.05.07 17:33

Hallo,
habe es so gelöst:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender: TObject);  
begin  
  if colordialog1.Execute then  
  begin  
    mycolor:=ColorToString(colordialog1.color);  
  end;  
end; 

procedure TForm1.FormActivate(Sender: TObject);
begin
  panel1.Color:=StringToColor(mycolor);
end;

_________________
Gruß Hans

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme