OnDrawColumnTitle, how does it works?
lazarus / 16-Databases

----------------------------------------------------------------------
hamacker · 2021-11-08 23:47

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 · 2021-11-10 09:16

Hi,
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TForm1.DBGrid1DrawColumnTitle(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);begin   
 with (Sender as TDBGrid) do     begin       if DataCol mod 2=0 then 
    begin       Canvas.Brush.Color:=clYellow;     
 Canvas.FillRect(Rect);       Canvas.TextOut(Rect.Left,Rect.Top,Dataso
urce.DataSet.Fields[DataCol].FieldName);       end;     end;end;

----------------------------------------------------------------------
hamacker · 2021-11-11 02:54

Can not draw a picture instead Text?

----------------------------------------------------------------------
loaded · 2021-11-11 05:23

Certainly ;
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TForm1.DBGrid1DrawColumnTitle(Sender: TObject; const Rect:
TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);  var 
  buf:Tbitmap;begin     with (Sender as TDBGrid) do     begin       if
DataCol mod 2=0 then       begin       buf:=Tbitmap.Create;     
 ImageList1.GetBitmap(0, buf);     
 canvas.Draw(Rect.Left,Rect.Top,buf);       Canvas.TextOut(buf.Width+
Rect.Left,Rect.Top,Datasource.DataSet.Fields[DataCol].FieldName);    
 buf.Free;       end;     end;end;