Janelinha De Cor Do Windows

[ramon]

Como eu faço para chamar aquela janelinha do windows que possui a opção de mudar as cores

Tipo preciso que o usuario mude as cores do form então preciso adicionar um codigo que chame essa janelinha de cor do windows ( aquela que tem as opções para o cara selecionar outra cor, adicionar cores personalizadas e tal) para o usuario escolher um cor para mudar a cor do form

alguém pode me dar um exemplo de como fazer isto?

[Graymalkin]

O componente Microsoft Common Dialog Control 6.0 tem isso.

Abraços,

Graymalkin

[ramon]

Ta uso este componente e ai como eu falo para chamar a janelinha das cores?

Me de um exemplo tipo clico no botao abre a jenelinha das cores seleciono uma cor e o form muda de cor

Bem simples mas não sei fazer pois nunca usei este componente

na boa coloca um exemplo ae

[Graymalkin]

Cara... você tem que procurar se esforçar. Olhando os métodos e propriedades do CommonDialog você encontrará um método chamado ShowColor e uma propriedade chamada Color. "Show", vem do inglês "mostrar, exibir", portanto já dá pra imaginar o que ShowColor faz. O exemplo que você pediu seria:

    CommonDialog1.ShowColor
    Me.BackColor = CommonDialog1.Color

Veja que o valor da propriedade Color é atribuído à propriedade BackColor do form.

Abraços,

Graymalkin

[ramon]

Valeu cara

Mas quando eu aperto no botão cancelar a cor do form fica preta pois esta como default la na janelinha das cores

Então eu quero saber como enviar a cor do form la pro janelinha das cores pois quando o usuario apertar em cancelar fique com a mesma cor que estava antes

Tipo meu form ta com a cor vermelha abro a janelinha de cor mas aperto cancelar ae o form fica preto

Como resolver isso?

[Graymalkin]

Sim, por isso existe a propriedade CancelError. Quando está propriedade está True, um erro é levantado quando o usuário clica no botão Cancelar. Basta então que você detecte se ocorreu um erro após o ShowColor. Se ocorreu é porque o usuário clicou em Cancelar, caso contrário ele clicou em OK. Segue um exemplo:

    On Error Resume Next
    CommonDialog1.CancelError = True
    CommonDialog1.ShowColor
    If Err.Number <> 0 Then
        MsgBox "Cancelar foi clicado!"
    Else
        Me.BackColor = CommonDialog1.Color
    End If
    On Error GoTo 0

Abraços,

Graymalkin

[ramon]

Mas não é assim que eu quero

Tipo meu formulario ta na cor verde quando clicar no botão abre a janela de selecao de cores e como o meu form é verde la nas caixas de selecõa tem que aparecer já selecoionado o verde.

Isso não acontece pois sempre aparece a cor preta selecionada

O que eu quero é que quando eu abrir a caixa de selecao de cores ela automaticamente seleciona a cor do form.

[Graymalkin]

Ah, isso aí eu não sei se é possível (somente utilizando o CommonDialog).

Abraços,

Graymalkin

[William Rodrigues]

O que eu quero é que quando eu abrir a caixa de selecao de cores ela automaticamente seleciona a cor do form.

Embaçado mesmo hein

Abraços,

William Rodrigues

[ramon]

O que eu quero é que quando eu abrir a caixa de selecao de cores ela automaticamente seleciona a cor do form. 

Embaçado mesmo hein 

Abraços,

William Rodrigues

Tu é muito folgado mas quero ver tu dar respostas e não ficar zuando!!!!!

[William Rodrigues]

Tu é muito folgado mas quero ver tu dar respostas e não ficar zuando!!!!!

Meu, se essa é a sua opinião, vou respeitar...

Não vou lhe dar resposta a altura pois não quero brigar com ninguém aqui da comunidade...

Se quer saber se respondo...

Olha meu emblema aí do lado..

Abraços,

William Rodrigues

[Graymalkin]

O que eu quero é que quando eu abrir a caixa de selecao de cores ela automaticamente seleciona a cor do form. 

Embaçado mesmo hein 

Abraços,

William Rodrigues

Tu é muito folgado mas quero ver tu dar respostas e não ficar zuando!!!!!

Talvez eu esteja errado, mas considero esse "embaçado" como um sinônimo de "complicado". Portanto, trata-se apenas de um comentário simples, sem qualquer outra conotação.

Abraços,

Graymalkin

[ramon]

Mas veja bem não é a primeira vez que o william coloca este tipo de comentario

Da para desconfiar não é???

[Graymalkin]

Se os comentários anteriores tinham o mesmo teor deste, não sei porque se preocupar. Pois, como já disse, não vi nada demais nesse comentário.

Abraços,

Graymalkin

[Graymalkin]

A propósito, o que você quer fazer pode ser feito da seguinte maneira:

CommonDialog1.Flags = cdlCCRGBInit
CommonDialog1.Color = Me.BackColor
CommonDialog1.ShowColor
Me.BackColor = CommonDialog1.Color

Abraços,

Graymalkin

[William Rodrigues]

Talvez eu esteja errado, mas considero esse "embaçado" como um sinônimo de "complicado". Portanto, trata-se apenas de um comentário simples, sem qualquer outra conotação.

Brother...

Com certeza é isso mesmo...

Mas tudo bem...

Pega nada...

Abraços,

William Rodrigues

[Graymalkin]

Hehehe... incompatibilidade de gênios... brincadeira...

Mas, Ramon, você viu a resposta de como fazer isso?

Abraços,

Graymalkin

[William Rodrigues]

Hehehe... incompatibilidade de gênios

Da minha parte nem tanto

hehehehhee....

estou zuando...

Mas, Ramon, você viu a resposta de como fazer isso?

Acho que ele vai ver cara

Não deu mais sinal de vida aqui na área

Mas, brevemente ele estará devolta

Abraços,

William Rodrigues