Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

quarta-feira, 14 de dezembro de 2016

DELPHI - TStyleManager - Mantendo as cores de painel (ou de controles) quando se utiliza um style (ou skin)

Reações: 
Muito legal o pessoal da Embarcadero lançar a possibilidade de Estilos de tela. Seria melhor ainda manter documentação sobre os itens.

Bem meu problema era:

 Criei um form legal com efeitos de troca de cor quando se passa o mouse sobre alguns paineis, mas quando se aplicava o estilo, tudo ia para os ares.

Com a ajuda do nosso colaborador André Santos, encontramos na internet como retirar (já que o site não explicou por completo, não vou divulgar)


Resumindo, quando você quer retirar um ou mais itens do Estilo do delphi, vá no componente na propriedade "StyleElements"´do componente e retire a opção: seClient

ou vá de função para retirar o estilo de todos os painéis (do form local):




procedure TForm1.FormCreate(Sender: TObject);
var
  I : Integer;
begin
  for I := 0 to Self.ComponentCount -1 do
  begin
    if Self.Components[I] is TCustomControl then
      TCustomPanel(Self.Components[I]).StyleElements := [seFont,seBorder];
  end;
end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer