stringgrid内のセルを3つおきに黒色の縦線で区切るには

解決

oishiman 2011-02-06 04:46:57 No: 39972

こんばんは。

stringgridで、データを表示させてるのですが、縦線が灰色で同じなので、
セル３つ毎に黒線で縦に区切りたいのですが、調べても分りませんでした。

初歩的なことかも分りませんが、教えていただけないでしょうか。

よろしくお願い致します。

HOta 2011-02-06 16:33:37 No: 39973

OnDrawcellイベントで書き直しましょう。

Kenny 2011-02-06 17:49:54 No: 39974

OnDrawcellイベントで、自分で線を引いてしまう方法。

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ARow >=1) and (ACol Mod 3 = 0)  then begin
    Stringgrid1.Canvas.Pen.Color:=clBlack;
    Stringgrid1.Canvas.MoveTo(Rect.Right, Rect.Top);
    Stringgrid1.Canvas.Lineto(Rect.Right, Rect.Bottom+1)
  end
end;

固定列の数とか、適当に工夫してください。

oishiman 2011-02-06 23:02:06 No: 39975

すごいです！
一発解決です。ありがとうございました。

すみません。何か初心者でもこのレベルまで到達できる本など

ありましたら教えていただけないでしょうか。