Dicas - Mudando a cor da célula ativa do DBGrid

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta dica, como mudar a cor da célula ativa do DBGrid.

Mudando a cor da célula ativa do DBGrid

 

Em uma nova aplicação, insira um DBGrid, uma Table, um DataSource e um ComboBox. Insira os valore vermelho, cinza e azul na propriedade Items do ComboBox (um em cada linha), conecte a Table a uma tabela em um banco de dados já criado (use a propriedade DatabaseName para escolher o banco, a propriedade TableName para escolher uma tabela relativa ao banco e a propriedade Active para ativar a tabela), ligue o DataSource a Table (propriedade DataSet), por fim ligue o DBGrid ao DataSource (propriedade DataSource). Escreva o código abaixo no evento OnDrawDataCell do DBGrid.

 

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);

var

  Cor: TColor;

begin

  if gdFocused in State then

    with (Sender as TDBGrid).Canvas do

    begin

      case combobox1.ItemIndex of

        0: Cor := clRed;

        1: Cor := clGray;

        2: Cor := clBlue;

      end;

      Brush.Color := Cor;

      FillRect(Rect);

      TextOut(Rect.Left, Rect.Top, Field.AsString);

    end;

end;

 

 Execute a aplicação e veja o funcionamento.

 

por Erick Rhamnusia

uploader@clubedelphi.net

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?