Analitcs

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

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;

Nenhum comentário:

Postar um comentário

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

Max Gehringer