Hex&BIN

0

mam pytanko i prosbe moze ktos mi jakią prosty kodzik napisac
zamieniający HEX na składowe RGB albo chociaz na bin plizka ---= pozdrawiam Oskar =- (delphi 6 GG:2792614)

0

jezeli chodzi o zamiane z Hexow (uzywanych do kolorwow w HTML'u) na skladowe RGB to bedzie to wygladalo tak:

var
HexColor : string;
RValue, GValue, BValue: Integer;
begin
HexColor := '#EDB78F' ; kolor w Hexie
Delete(HexColor,1,1);
usuwamy znak #
RValue := StrToInt('$' + Copy(HexColor,1,2)); skladowa R
GValue := StrToInt('$' + Copy(HexColor,3,2));
skladowa G
BValue := StrToInt('$' + Copy(HexColor,5,2)); //skladowa B
end;

tylko tyle udalo mi sie wymyslic :-)
moze ktos zna prostrzy sposob?---=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-

0

qrde znowu dodalo \ :( :( :(
tzn. pousuwaj je :)---=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-

0

dzieki wielkie pytanko z ciekawosci czemu ci dodaje slesze :))
---= pozdrawiam Oskar =- (delphi 6 GG:2792614)

0

&gtpytanko z ciekawosci czemu ci dodaje slesze

poczytaj post FORUM - NOWOŚCI, Zgłoszenia błędów
http://www.4programmers.net/f[...]x.php?action=show&id=3664
tam jest wyjasnione :-)---=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0