如何在DrawGrid上画一个方形?

Question

高人帮看看..谢了.请问:
1.如何在DrawGrid上画一个矩形?
2.如何在DrawGrid上合并单元格?
3.如何在DrawGrid的一个单元格上,建多条等长距离的坚线?

Answer 1

自己画吧,应该有draw之类的事件,其中应该能得到格子的Rect,然后自己在Grid的Canvas上画吧

Answer 2

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  DrawGrid1.Canvas.Brush.Color := clRed;
  if ACol mod 2 = 0 then
    DrawGrid1.Canvas.FillRect(Rect);
end;每隔一列,单元格被画成红色