 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
porter
Colaborador
Registrado: Segunda-Feira, 23 de Fevereiro de 2009
Mensagens: 1353
|
 Enviada: Qua Fev 22, 2012 5:09 pm Assunto: Problema com XpManifest |
 |
|
ola pessoal, comecei a usar o XpManifest e algumas cores que coloquei nos forms eram azuis e mudaram para cor branca, existe alguma configuracao ou propriedade dos forms que eu deva alterar para manter as cores
originais ?
estou usando o Delphi 7.
obrigado. |
|
| Voltar ao Topo |
|
 |
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
| Enviada: Qua Fev 22, 2012 8:48 pm Assunto: Re: Problema com XpManifest |
|
|
| porter escreveu: | ola pessoal, comecei a usar o XpManifest e algumas cores que coloquei nos forms eram azuis e mudaram para cor branca, existe alguma configuracao ou propriedade dos forms que eu deva alterar para manter as cores
originais ?
estou usando o Delphi 7.
obrigado. |
| Citação: | PageContrls X XPManifest...
Quem não quer ver o PageControls com a tela da cor branca... Então vai ai a dica
no uses do form coloque
E no evento onshow do form faça
| Código: | procedure TForm1.FormShow(Sender: TObject);
begin
if ThemeServices.ThemesEnabled then
SetWindowTheme(PageControl1.Handle, '', '');
end; |
Ou
| Código: | | SetWindowTheme( PageControl1.Handle, NIL, '' ); |
Assim o tabsheet e pagecontrols não fica da cor branca
Se o panel também assumir cores diferente
no oncreate do form da pra fazer assim
| Código: | procedure TForm1.FormCreate(Sender: TObject);
var
CPanel : Integer;
begin
for CPanel := 0 to Self.ComponentCount - 1 do
if (Self.Components[CPanel]) is TPanel then
with (Self.Components[CPanel] as TPanel) do
ParentBackground := False;
end; |
Nota: Apenas para windows XP com xpmanisfest... |
Retirado deste post, tem mais dicas legais la, vale a pena olhar, são varias paginas.
http://www.activedelphi.com.br/forum/viewtopic.php?t=47655&postdays=0&postorder=asc&start=75
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree |
|
| Voltar ao Topo |
|
|
porter
Colaborador
Registrado: Segunda-Feira, 23 de Fevereiro de 2009
Mensagens: 1353
|
| Enviada: Qui Fev 23, 2012 8:36 am Assunto: |
|
|
Nota: Apenas para windows XP com xpmanisfest...
Estou querendo instalar o sistema em um NoteBook com Windows 7, se fizer da forma que vc passou, vai dar problema ?
obrigado. |
|
| Voltar ao Topo |
|
|
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
