DELPHI 画报表 画表头 stringgrid控件

DELPHI 画报表 画表头 stringgrid控件

procedure   TForm1.StringGrid1DrawCell(Sender:   TObject;   ACol,   ARow:    
  Integer;  
      Rect:   TRect;   State:   TGridDrawState);  
  var  
      i,   x,   y:   Integer;  
  begin  
      If   gdFixed   In   State   Then   Exit;  
      If   ARow   >   1   Then   Exit;  
   
      //   draw   row   1   with   text   from   cell   1,1   spanning   all   cells   in   the   row  
      with   sender   as   tstringgrid   do   begin  
          {extend   rect   to   include   grid   line   on   right,   if   not   last   cell    
            in   row}  
          If   aCol   <   Pred(ColCount)   Then  
              Rect.Right   :=   Rect.Right   +   GridlineWidth;  
               
          {figure   out   where   the   text   of   the   first   cell   would   start   relative  
            to   the   current