//DefaultDrawingをFalseに設定した場合のOnDrawCellの例

procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
begin

with TStringGrid(Sender).Canvas,Rect do
begin
  Font:=TStringGrid(Sender).Font;
  if gdFixed in State then
    Brush.Color:=TStringGrid(Sender).FixedColor
  else if (gdSelected in State) and not (gdFocused in State) then
  begin
    Brush.Color:=clHighlight;
    Font.Color:=clHighlightText;
  end else
    Brush.Color:=TStringGrid(Sender).Color;

  TextRect(Rect,Left+2,Top+2,TStringGrid(Sender).Cells[Col,Row]);

  if (gdFixed in State) and TStringGrid(Sender).Ctl3D then
  begin
    Pen.Color:=clBtnHighlight;
    Polyline([Point(Left,Bottom-1),TopLeft,Point(Right,Top)]);
  end;

  If gdFocused in State then
    DrawFocusRect(Rect);

end;

end;

                                         97/10/18(土)  凹凹凹(EZQ01045)

Original document by 凹凹凹          氏 ID:(EZQ01045)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。