关于StringGrid类型的居中实现

stringgrid居中

在开发中有些地方采用StringGrid实现数据的操作,但是默认的是采用左对齐,无法设置居中

实现方案只能采用自绘方案了。


 

 
  1. StringGrid的OnDrawCell事件中   
  2. var   
  3.     CellString:string;   
  4. begin   
  5.      //if  ARow = 0  then //头部居中  
  6.     //if  ARow<StringGrid.FixedRows  then //注释此句全部居中  
  7.     begin   
  8.         CellString := StringGrid.Cells[ACol,  ARow];   
  9.         StringGrid.Canvas.TextRect(rect,rect.left+(rect.right – rect.left – StringGrid.Canvas.TextWidth(CellString)) div 2,rect.top +(rect.bottom  –  rect.top – StringGrid.Canvas.TextHeight(CellString)) div 2,CellString)   
  10.     end;   
  11. end;   

 

分享到: