procedure TForm_Part.stgSpecDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
        var xCol, xWidth: integer;
            xRow, xHeight: integer;
begin
     with Sender as TStringGrid do begin
       // 拖曳時
       if State=[gdSelected] then begin
         Canvas.Brush.Color:= $0080FFFF; //底色
         Canvas.Font.Color:= clBlack;  //字體顏色
       end
       // 如果 cell 為 √
       else if (Cells[ACol, ARow]='√') then begin
         Canvas.Brush.Color:= clGreen; //底色
         Canvas.Font.Color:= clWhite;  //字體顏色
       end
       // 其他狀況  
       else begin
         if (ACol<>0) and (ARow<>0) then begin
            Canvas.Brush.Color:= clGray;
            Canvas.Font.Color:= clBlack;
         end;
       end;
       // nRow, nCol 在 onSelect 中指定, 並以 private 存在
       // 當focus在某一cell時
       if (ARow=nRow) and (ACol=nCol) then begin
          Canvas.Brush.Color:= $00C08080;
          Canvas.Font.Color:= clBlack;
       end;
       // 以下是將文字置中的計算(以 font=9為基礎) 
       xRow:= Round(stgSpec.DefaultRowHeight);
       xCol:= Round(stgSpec.DefaultColWidth);
       xHeight:= Abs(stgSpec.Font.Height);
       xWidth:=  9 * Length(Cells[ACol,ARow]);
       xRow:= Round((xRow-xHeight)/2);
       if (ARow=0) or ((ARow<>0) and (ACol<>0)) then xCol:= Round((xCol-xWidth)/2)
       else xCol:= 2;
       Canvas.FillRect(Rect);  //繪底色
       Canvas.textout(Rect.Left xCol,Rect.Top xRow,Cells[ACol,ARow]); //output text
     end;
end;    procedure TForm_Part.stgSpecSelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
     nRow:= ARow;
     nCol:= ACol;
end;