OnDrawColumnTitle, how does it works?

[hamacker]

OnDrawColumnTitle, how does it works?
I try code bellow like OnDrawColumnCell, but it does not work - empty title cell.

procedure TfmLista_Colaborador.Grade_PesquisaDrawColumnTitle(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if DataCol=0 then
  begin
    Canvas.FillRect(Rect); // limpando a celula com rect vazio
    imagelist_colGrids.Draw(Canvas,
      Rect.CenterPoint.x-(imagelist_colGrids.Width div 2),
      Rect.CenterPoint.y-(imagelist_colGrids.Height div 2),
      4); // imageindex
  end; 

[loaded]

Hi,

Code: Pascal  [Select][+][-]

1. procedure TForm1.DBGrid1DrawColumnTitle(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
2. begin
3.      with (Sender as TDBGrid) do
4.      begin
5.        if DataCol mod 2=0 then
6.        begin
7.        Canvas.Brush.Color:=clYellow;
8.        Canvas.FillRect(Rect);
9.        Canvas.TextOut(Rect.Left,Rect.Top,Datasource.DataSet.Fields[DataCol].FieldName);
10.        end;
11.      end;
12. end;

[hamacker]

Can not draw a picture instead Text?

[loaded]

Certainly ;

Code: Pascal  [Select][+][-]

1. procedure TForm1.DBGrid1DrawColumnTitle(Sender: TObject; const Rect: TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);
2.   var
3.     buf:Tbitmap;
4. begin
5.      with (Sender as TDBGrid) do
6.      begin
7.        if DataCol mod 2=0 then
8.        begin
9.        buf:=Tbitmap.Create;
10.        ImageList1.GetBitmap(0, buf);
11.        canvas.Draw(Rect.Left,Rect.Top,buf);
12.        Canvas.TextOut(buf.Width+ Rect.Left,Rect.Top,Datasource.DataSet.Fields[DataCol].FieldName);
13.        buf.Free;
14.        end;
15.      end;
16. end;