StringGridで特定のカラムのラインを表示するには

解決

---

StringGridで上下、左右のセルをつなぎたいのですが、オプションでラインの表示をFalseにして、特定のセルを描画するときに、ラインを表示させたいと考えています。
何かよい方法があれば教えてください。

編集    削除

---

OnDrowCellイベントで表示するときに、自前で２つのセル分のTRectをTCanvasに描けばいかがでしょうか？

編集    削除

---

with stringGrid1.Canvas do
   begin
     Pen.Color := clBlack;
     if ((ACol= 6) or (ACol= 7)) and ((ARow = 1)or(ARow = 2))  then
        Polyline([Point(Rect.Left -1,Rect.Top),Point(Rect.Left -1,Rect.Bottom)]);
と書いてみました
いったん、選択するとグリッドが消えてしまいます。
なにかよい方法はありませんか

編集    削除

---

with stringGrid1.Canvas do
  begin
     if state=[gdFocused] then DrawFocusRect(Rect);
     Pen.Color := clBlack;
     if ((ACol= 6) or (ACol= 7)) and ((ARow = 1)or(ARow = 2))  then
        Polyline([Point(Rect.Left ,Rect.Top),Point(Rect.Left ,Rect.Bottom)]);
  end;

編集    削除

---

どうもありがとうございます
うまく描けました

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。