[delphi] color to string

w jaki sposób skonwertowac zmienną typu TColor na zmienną String?

---

Możesz najwyżej skonwertować do integera. Podstawowe kolory mają tylko swoje stałe zdefiniowane jako nazwy kolorów.

może być na integera, a z integera skonwetuje na stringa.... tylko ja skonwertować z color na string i odwrotnie?

Człowieku! Niedawno się o to pytałeś i dostałeś odpowiedź!
Następnym razem zanim się o coś zapytasz to poszukaj!
A tutaj znowu podaję kod z mojej dobroci :>
function color2html(color: tcolor): string; begin Result:='#' + IntToHex(GetRValue(color), 2) + IntToHex(GetGValue(color), 2) + IntToHex(GetBValue(color), 2); end;
A co do zmiany koloru na string masz takie piękne funkcje: ColorToString, StringToColor -> po resztę odsyłam do helpa
Użytkownik JaCkObS edytował ten post 30 marzec 2007, 16:37

---

http://www.google.pl...o...+Google&lr=
Function ColorToString(Color: TColor): String;
Function StringToColor(Const S: String): TColor;

//Pytam się Was - na grzyba się męczyć z konwertowaniem? :P
Użytkownik pbnan edytował ten post 30 marzec 2007, 16:38
Mam taką procedurę:

var
i: integer;
begin
i:=Form2.ListBox1.ItemIndex;
Form2.Edit1.Text:= Form2.ListBox1.Items.ValueFromIndex[i];
Form2.Panel1.Color:= StringToColor(Form2.ListBox2.Items.ValueFromIndex[i]);
end;

W 1 ListBoxie mam kolory HTML, a w drugim kolory jako string...

I dlaczego teraz program mi się zawiesza? (przy jej wykonyaniu)
Użytkownik Chips edytował ten post 30 marzec 2007, 18:35
var i: integer; begin i:=Form2.ListBox1.ItemIndex; if i<>-1 then begin Form2.Edit1.Text:= Form2.ListBox1.Items.ValueFromIndex[i]; Form2.Panel1.Color:= StringToColor(Form2.ListBox2.Items.ValueFromIndex[i]); end; end;
Zmień na takie.

Nadal jak klikne na liste (ta procedura to onclick tej listy) to sie wiesza :(

wiec to wina innej czesci kodu bo tutaj nie ma za bardzo co sie wieszac.


wiec to wina innej czesci kodu bo tutaj nie ma za bardzo co sie wieszac. Chyba nie czytasz uważnie :P

(...) W 1 ListBoxie mam kolory HTML (...)
StringToColor czy w drugą stronę, nie działa na hexach :P Przynajmniej nie z "#" :P
Poza tym nie wiemy, jak wyglądają ciągi w LB2 :P

var i: integer; s: string; begin i:=Form2.ListBox1.ItemIndex; if (i > -1) then begin s := Form2.ListBox1.Items.ValueFromIndex[i]; Form2.Edit1.Text := s; Form2.Panel1.Color := StringToColor( '$'+copy(s,2,length(s)) ); end; end;
Sprawdź czy chodzi :).

PS Jeśli to ja nie przeczytałem uważnie, to przepraszam :)
Użytkownik DJ_ProG edytował ten post 01 kwiecień 2007, 11:24
teraz się nie wiesza, ale jest inny problem.
dodam do listy kolor biały na przykład, i po kliknięciu na listy do edita dodaje sie kolor FFFFFF, ale panel koloruje sie na żółto ;/

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl