dbgrid column color

[jahlxx]

Hi.

 

How to change the color of a column in dbgrid.

 

I do: grid.columns[3].color := clgreen, but no change.

 

I have defined gridcolumncell too, and this one replaces the clgreen color.

 

I don't know how to do for these 2 things at the same time.

 

Thanks.

[Sherzod]

Hi,

 

You can search on the forum: UniDBGrid->onDrawColumnCell

 

Best regards.

[jahlxx]

yes.  I'm doing here, but with no success.

 

my code is, by example:

 

  if Odd(Arow) then
    attribs.Color := lib.color_1
  else
    attribs.Color := lib.color_2;

  if (qimp.fieldbyname('status').asstring = 'OK') then begin
      attribs.Color := clgreen;
      attribs.font.Color := clWhite;
      attribs.font.size := (sender as tunidbgrid).font.size;
  end;
  if (qimp.fieldbyname('status').asstring = 'REJECTED') then begin
      attribs.Color := clred;
      attribs.font.Color := clWhite;
      attribs.font.size := (sender as tunidbgrid).font.size;
  end;

  if not (sender as tunidbgrid).columns.items[Column.index].readonly then begin
     (sender as tunidbgrid).columns[Column.index].color := clgreen;
  end;
 

[tappatappa]

I'm not really sure of the last 3 lines of your code. The OnDrawColumnCell allows you to work on one column at a time

OnDrawColumnCell(TObject Sender, int ACol, int ARow, TUniDBGridColumn Column, TUniCellAttribs Attribs)

[jahlxx]

ok. thanks.

 

I was wrong. I thought that was for rows, not for columns.

 

thanks.