---

Hvordan skal jeg konverterer Farve så den kan bruges i følgende linie ?

forma[numforma-1].Brush.Color := Farve;

procedure TForm1.ColorBox1Change(Sender: TObject);
begin
Farve := (ColorBox1.Items.Strings [ColorBox1.ItemIndex]);
end;

Med venlig hilsen
Henning

---

Hejsa Far

Prøv at stå i editoren (der du skriver programmet)
skriv clRed marker det og tryk på F1 så får du en oversigt over alle de
farver der er incl. hvad de Hedder

der sætter du bare Farve til clRed.

KH
Søn


"Henning Madsen" <HKM@madsen.tdcadsl.dk> skrev i en meddelelse
news:454bb51d$0$13935$edfadb0f@dread15.news.tele.dk...
> Hvordan skal jeg konverterer Farve så den kan bruges i følgende linie ?
>
> forma[numforma-1].Brush.Color := Farve;
>
> procedure TForm1.ColorBox1Change(Sender: TObject);
> begin
> Farve := (ColorBox1.Items.Strings [ColorBox1.ItemIndex]);
> end;
>
> Med venlig hilsen
> Henning
>
>

---

Det var ikke lige det jeg mente, med ColorBox1 vælger jeg den farve jeg vel
bruge, den valgte farve tildeles variablen Farve.
Variablen er defineret under var som string, men verdien string er jo ikke
rigtig i 'linien' men skal konverteres men hvordan ??
Henning.

"Allan Madsen" <ns@crump.dk> skrev i en meddelelse
news:454bc4e0$0$140$edfadb0f@dread11.news.tele.dk...
> Hejsa Far
>
> Prøv at stå i editoren (der du skriver programmet)
> skriv clRed marker det og tryk på F1 så får du en oversigt over alle de
> farver der er incl. hvad de Hedder
>
> der sætter du bare Farve til clRed.
>
> KH
> Søn
>
>
> "Henning Madsen" <HKM@madsen.tdcadsl.dk> skrev i en meddelelse
> news:454bb51d$0$13935$edfadb0f@dread15.news.tele.dk...
>> Hvordan skal jeg konverterer Farve så den kan bruges i følgende linie ?
>>
>> forma[numforma-1].Brush.Color := Farve;
>>
>> procedure TForm1.ColorBox1Change(Sender: TObject);
>> begin
>> Farve := (ColorBox1.Items.Strings [ColorBox1.ItemIndex]);
>> end;
>>
>> Med venlig hilsen
>> Henning
>>
>>
>
>

---

"Henning Madsen" <HKM@madsen.tdcadsl.dk> skrev i en meddelelse
news:454bb51d$0$13935$edfadb0f@dread15.news.tele.dk...
> Hvordan skal jeg konverterer Farve så den kan bruges i følgende linie ?
>
> forma[numforma-1].Brush.Color := Farve;
>
> procedure TForm1.ColorBox1Change(Sender: TObject);
> begin
> Farve := (ColorBox1.Items.Strings [ColorBox1.ItemIndex]);
> end;

Definer Farve som en TColor og brug:

Farve := ColorBox1.Selected;

/HK

---

"Harald" <nomail@noname.dk> skrev i en meddelelse
news:454caaa4$0$15891$edfadb0f@dtext01.news.tele.dk...
> "Henning Madsen" <HKM@madsen.tdcadsl.dk> skrev i en meddelelse
> news:454bb51d$0$13935$edfadb0f@dread15.news.tele.dk...
>> Hvordan skal jeg konverterer Farve så den kan bruges i følgende linie ?
>>
>> forma[numforma-1].Brush.Color := Farve;
>>
>> procedure TForm1.ColorBox1Change(Sender: TObject);
>> begin
>> Farve := (ColorBox1.Items.Strings [ColorBox1.ItemIndex]);
>> end;
>
> Definer Farve som en TColor og brug:
>
> Farve := ColorBox1.Selected;

Men hvis du vil gemme farven i Farve som string kan du bruge:


forma[numforma-1].Brush.Color :=
ColorBox1.Colors[ColorBox1.Items.IndexOf(Farve)];

/HK

---

Tak for svaret Harald det var lige det jeg manglede
Henning.

"Harald" <nomail@noname.dk> skrev i en meddelelse
news:454cacd2$0$15900$edfadb0f@dtext01.news.tele.dk...
> "Harald" <nomail@noname.dk> skrev i en meddelelse
> news:454caaa4$0$15891$edfadb0f@dtext01.news.tele.dk...
>> "Henning Madsen" <HKM@madsen.tdcadsl.dk> skrev i en meddelelse
>> news:454bb51d$0$13935$edfadb0f@dread15.news.tele.dk...
>>> Hvordan skal jeg konverterer Farve så den kan bruges i følgende linie ?
>>>
>>> forma[numforma-1].Brush.Color := Farve;
>>>
>>> procedure TForm1.ColorBox1Change(Sender: TObject);
>>> begin
>>> Farve := (ColorBox1.Items.Strings [ColorBox1.ItemIndex]);
>>> end;
>>
>> Definer Farve som en TColor og brug:
>>
>> Farve := ColorBox1.Selected;
>
> Men hvis du vil gemme farven i Farve som string kan du bruge:
>
>
> forma[numforma-1].Brush.Color :=
> ColorBox1.Colors[ColorBox1.Items.IndexOf(Farve)];
>
> /HK
>
>