Dicas de DBGrid - Parte II [Destacando coluna selecionada]

Destacando a coluna selecionada

Ao utilizarmos o recurso de ordenação de registros em um DBGrid, geralmente usa-se um destaque para diferenciar a coluna que esta selecionada, alterando-se a cor do titulo ou a fonte. O recurso também será implementado no evento OnTitleClick, em conjunto com o código de ordenação dos registros. Para usar o recurso, digite no evento o código da Listagem 1.

Listagem 1. Ordenação e destaque de coluna do Grid

procedure TfrmPrincipal.gdRegistrosTitleClick(Column: TColumn);

Var

i:Integer;

begin

Try

cdsRegistros.IndexFieldNames := Column.FieldName;//Ordenação dos registros do Grid

for i:=0 to Column.Grid.FieldCount - 1 do

begin

gdRegistros.Columns.Items[i].Title.Font.Color:=ClBlack;//Cor da Fonte

gdRegistros.COLUMNS.ITEMS[I].TITLE.FONT.STYLE := [];//Estilo da Fonte

gdRegistros.Columns.Items[i].Title.Color:=clBtnFace;//Cor do Fundo do Titulo Normal

Column.Title.Color :=clSilver;//Cor do Fundo do Titulo Selecionado

COLUMN.TITLE.FONT.STYLE := [FSBOLD];//Estilo NEGRITO da coluna selecionada

Column.Title.Font.Color:=ClBlue;//Cor da fonte Selecionada

Column.Font.color:=clTeal;//Cor dos registros na coluna selecionada

gdRegistros.Columns.Items[i].Font.color:=ClBlack;//Cor dos registros nas colunas normais

end;

Except

ShowMessage('Ordenação não pode ser aplicada!');

End;

end;

Ao executar a aplicação e utilizar o recurso da ordenação veja as diferentes características assumidas pela coluna ordenada (Figura 3).

Figura 3. Seleção e ordenação dos registros no Grid