mudar cor do PageControl

[☢|EXPL01T3R|☣ 50]

Como muda a cor do PageControl?

tipo mudar dele inteiro.abas e onde fica o conteúdo

@edit

só mudo a cor da aba. como muda a cor da parte interna? a tabsheet?

essa parte que esta dentro do quadrado vermelho:

[vodikatm 23]

Como muda a cor do PageControl?

tipo mudar dele inteiro.abas e onde fica o conteúdo

Alterar cores do PageControl (Delphi)

O padrão Windows todo cinza não é muito atraente, por isso quando nos utilizarmos do PageControl podemos alterar suas cores e fontes da seguinte maneira:

 

Em primeiro lugar devemos alterar a propriedade OwnerDraw para TRUE;

 

Depois implementar seu método DrawTab da seguinte maneira:

//pinta a fonte

Control.Canvas.Font.Color:=clBlack;

//

// pinta a paleta / aba

Control.Canvas.brush.Color:=clSkyBlue;

 

PageControl1.Canvas.Rectangle(Rect);

Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption);

// pinta a parte interna (tabsheet)

PageControl1.Pages[TabIndex].brush.Color := Control.Canvas.brush.Color;

PageControl1.Pages[TabIndex].Repaint;

 

Caso a intenção seja manter cada aba com seu próprio estilo basta adicionar um CASE filtrando o índice das abas:

case TabIndex of

0: Control.Canvas.Font.Color:=clBlack;

1: Control.Canvas.Font.Color:=clWindow;

2: Control.Canvas.Font.Color:=clRed;

end;

 

Créditos:

PROGRAMERO

[☢|EXPL01T3R|☣ 50]

Alterar cores do PageControl (Delphi)

O padrão Windows todo cinza não é muito atraente, por isso quando nos utilizarmos do PageControl podemos alterar suas cores e fontes da seguinte maneira:

 

Em primeiro lugar devemos alterar a propriedade OwnerDraw para TRUE;

 

Depois implementar seu método DrawTab da seguinte maneira:

//pinta a fonte

Control.Canvas.Font.Color:=clBlack;

//

// pinta a paleta / aba

Control.Canvas.brush.Color:=clSkyBlue;

 

PageControl1.Canvas.Rectangle(Rect);

Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption);

// pinta a parte interna (tabsheet)

PageControl1.Pages[TabIndex].brush.Color := Control.Canvas.brush.Color;

PageControl1.Pages[TabIndex].Repaint;

 

Caso a intenção seja manter cada aba com seu próprio estilo basta adicionar um CASE filtrando o índice das abas:

case TabIndex of

0: Control.Canvas.Font.Color:=clBlack;

1: Control.Canvas.Font.Color:=clWindow;

2: Control.Canvas.Font.Color:=clRed;

end;

 

Créditos:

PROGRAMERO

 

ja vi esse meio nesse site mesmo do programero e em uns outros.. Mais sera que existe só desse jeito? eu sei que tem que ser direto no código ja que as prop não tem o negocio de color e talz..

[DarkShade 52]

Não existe outra forma, pode existir um jeito mais resumido, porém o final sempre será o mesmo.

[☢|EXPL01T3R|☣ 50]

Não existe outra forma, pode existir um jeito mais resumido, porém o final sempre será o mesmo.

ok

[NoSlake 56]

Dúvida Solucionada !

 

Caro Membro,

Contate-me por perfil para que eu re-abra o tópico.

 

Obrigado à todos que ajudaram.

 

Tópico Trancado

 

@ Reaberto.

[☢|EXPL01T3R|☣ 50]

Dúvida Solucionada !

 

Caro Membro,

Contate-me por perfil para que eu re-abra o tópico.

 

Obrigado à todos que ajudaram.

 

Tópico Trancado

 

@ Reaberto.

ok vlw. agora sabe como muda a cor interna do pagcontrol?

[DarkShade 52]

Seria isso?

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[☢|EXPL01T3R|☣ 50]

Seria isso?

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

dei um jeitinho aqui rsrs com uma skin e uma imagem no fundo. sem skin ficava as bordas dos botões mais agora deu de boa :d

de qualquer forma vlw. pode fechar

[ℛiqu∊ 16]

Atenção!

Visto que a dúvida foi resolvida,o tópico será Fechado!

Caso o autor do tópico queira re-abrir o mesmo,entre em contato com um moderador.