Rgb

[AnaoScript]

Ae eu to fazendo u editor de html a anos mas tipo eu quero inserir umcodigo de cor RGB de html aquele com 6digitos mas no dialog que tem no delphi o resultado do rgb sai em 8 digitos como eu trosformo para ficar o codigo de cor para internet

[Morphadron]

AnãoScript, cara não é fácil, pois você terá q usar um tipo de GrayScale, para converter os padrões de cores, não estou certo disso, mas vou tentar desenvolver alguma coisa, parecida....

Meu e-mail é iter.vinicius@sinos.net

Abraços!!!!!!!!

E ateh....

[AnaoScript]

Ae Morphadorm cara graças a um program que um cara me indicou eu conssegui resolver cara e o melhor sozinho a unica dica foi esse programa mas ae vou mostrar como fiz e como desobri o segredo:

Esse programa(Color picker) mostra codigo de cor em variso formatos aparentemente inutil mas eu fui ficar brincando e olhando o codigo da cor em delphi e comparando com a usada em paginas Web eu percebi os padrões(Simplessimos) o codigo que vi é esse

Delphi = $002255FF

html = #FF5522

ta na cara!!!

Primeiro eu vi as cors em delphi sempre contia "00" antes do todas a cores

logo depois eu vi que as cores delphi são invertidas da html um exemplo

no html é usado RGB no delphi seria BGR mas claro ess inverssão não seria por caractere mas sim a cada dois caracteres

Ae o codigo e esse:

var

cor,rgb,r,g,b:String;

begin

if dl_Color.Execute then

cor := ColorToString(dl_Color.Color);

if Pos('$',cor) <> 0 then begin

delete(cor,Pos('$',cor),Pos('$',cor));

delete(cor,1,2);

r := cor;

g := cor;

b := cor;

delete(r,3,length(cor));

delete(g,1,2);

delete(g,3,length(cor));

delete(b,1,length(cor)-2);

rgb := '#'+b+g+r;

end else begin

delete(cor,1,2);

rgb := rgb+cor;

end;

cor_Fundo.Text := rgb;

A morph valeu por tentar ajudar valeu mesmo ae

[Morphadron]

Cara, fiko feliz por você velho, parabéns....

Abraços!!!!!!!!!