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;

segunda-feira, 12 de dezembro de 2016

DELPHI - Procedure para limpar a cor de um DBLookupComboBox

Reações: 
Fui dar uma ênfase a um componente do tipo "DBLookupComboBox", pintando-o de vermelho.

Até ai beleza, mas ele tinha que ter ficado com as bordas vermelhas e o interior branco quando voltei para a cor normal.

Segue o que resolveu no meu caso.



procedure TForm1.SetColor_DBLookupComboBox(ADBLookupComboBox: TDBLookupComboBox;
  AColor: TColor);
var
  Rect : TRect;
  I : Integer;
begin
  Rect := ADBLookupComboBox.ClientRect;
  for I := 0 to 2 do
  begin
    TComboBox(ADBLookupComboBox).Canvas.FillRect(Rect);
    TComboBox(ADBLookupComboBox).Canvas.Brush.Color := AColor;
    TComboBox(ADBLookupComboBox).Canvas.Pen.Color   := AColor;
    TComboBox(ADBLookupComboBox).Canvas.TextOut(Rect.Left, Rect.Top, ADBLookupComboBox.Text);
    ADBLookupComboBox.repaint;
    ADBLookupComboBox.Color := AColor;
  end;
end;

quinta-feira, 1 de dezembro de 2016

DELPHI - (DELPHI BERLIM 10.2) RAD Studio Berlim Update 2 + O Melhor do Conference 2016

Reações: 












Conheças as melhorias e novas features que chegam junto com o Update 2 do RAD Studio Berlim, e assista as cinco melhores palestras do Embarcadero Conference 2016 na integra para você!

Playlist de videos do youtube

https://www.youtube.com/playlist?list=PLlUDMEtO0HdQYri6QjNbqAjg4LAmv8Yin

Max Gehringer