unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TplDBGrid = class(TDBGrid)
  end;

  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Query1: TQuery;
    Button1: TButton;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
    plDBGrid1 : TplDBGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  plChgCompo;

{$R *.DFM}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  // フォーム作成時にコンポーネントの入れ替え
  plDBGrid1 := TplDBGrid(ChangeComponent(DBGrid1, TplDBGrid));

  plDBGrid1.Options := plDBGrid1.Options -[dgEditing];

  Query1.Close;
  DataSource1.DataSet  := Query1;
  plDBGrid1.DataSource := DataSource1;

  // データベースからデータを取得して表示
  Query1.DatabaseName := 'DBDEMOS';
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from customer.db');
  Query1.Open;

  ActiveControl := plDBGrid1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Query1.Close;
end;

//=============================================================================
//  TDBGrid 上でマウス左ボタンをダブルクリックした時の処理
//  ダブルクリックしたマウスカーソル位置のセルの行と列の位置を取得して表示
//
//  HitTest は protected 部のプロパティ
//=============================================================================
procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
  LMousePos : TPoint;
  LGridPos  : TGridCoord;
  LText     : string;
begin
  // マウスカーソル位置の座標値を取得
  LMousePos := plDBGrid1.HitTest;
  // 座標値をグリッドの行と列の値に変換
  LGridPos  := plDBGrid1.MouseCoord(LMousePos.X, LMousePos.Y);

  LText := IntToStr(LGridPos.Y) + ' 行' + sLineBreak
         + IntToStr(LGridPos.X) + ' 列';
  MessageBox(Handle, PChar(LText), '行と列の位置', MB_ICONINFORMATION);
end;

//=============================================================================
//  選択中の TDBGrid のセルの行と列の位置を取得して表示
//
//  Row, Col は protected 部のプロパティ
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LText : string;
begin
  LText := IntToStr(plDBGrid1.Row) + ' 行' + sLineBreak
         + IntToStr(plDBGrid1.Col) + ' 列';
  MessageBox(Handle, PChar(LText), '行と列の位置', MB_ICONINFORMATION);
  plDBGrid1.SetFocus;
end;

end.

//=============================================================================
//  TDBGrid 上でマウス左ボタンをダブルクリックした時の処理
//  ダブルクリックしたマウスカーソル位置のセルの行と列の位置を取得して表示
//=============================================================================
procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
  LMousePos  : TPoint;
  LPosInGrid : TPoint;
  LGridPos   : TGridCoord;
  LText      : string;
begin
  // マウスカーソル位置を取得してコントロール内の座標に変換
  GetCursorPos(LMousePos);
  LPosInGrid := DBGrid1.ScreenToClient(LMousePos);

  // マウスカーソルの座標値から行と列の値を取得
  LGridPos := DBGrid1.MouseCoord(LPosInGrid.X, LPosInGrid.Y);

  // 結果を表示
  LText := IntToStr(LGridPos.Y) + ' 行' + sLineBreak
         + IntToStr(LGridPos.X) + ' 列';
  MessageBox(Handle, PChar(LText), '行と列の位置', MB_ICONINFORMATION);
end;

//=============================================================================
//  TDBGird のセルをダブルクリックした時の処理
//=============================================================================
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
  Button1Click(nil);
end;

//=============================================================================
//  選択中の TDBGrid のセルの値を取得
//  実際にはアクティブレコードの項目 (フィールド) の値
//  継承クラスを使用しない場合
//  SelectedIndex, SelectedField プロパティを使用する
//
//  TDBGrid.SelectedIndex は 0 ベースの値
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LText :string;
begin
  LText := 'Col No : ' + IntToStr(DBGrid1.SelectedIndex) + sLineBreak
         + '項目名 : ' + DBGrid1.SelectedField.FieldName + sLineBreak
         + '項目値 : ' + DBGrid1.SelectedField.Text + sLineBreak
         + '表示値 : ' + DBGrid1.SelectedField.DisplayText;

  MessageBox(Handle, PChar(LText), 'セルの値', MB_ICONINFORMATION);

  plDBGrid1.SetFocus;
end;

//=============================================================================
//  OnCellClick イベントの処理
//  クリックしたセル値を取得
//  実際にはアクティブレコードの項目 (フィールド) の値
//=============================================================================
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  Label1.Caption := Column.Field.DisplayText;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
  LFieldName : string;
begin
  LFieldName := DBGrid1.SelectedField.FieldName;
  Label1.Caption := Query1.FieldByName(LFieldName).Text;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
  LFieldName : string;
begin
  LFieldName := DBGrid1.SelectedField.FieldName;
  Label1.Caption := DBGrid1.DataSource.DataSet.FieldByName(LFieldName).Text;
end;

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TplDBGrid = class(TDBGrid)
  protected
    procedure DrawColumnCell(const Rect: TRect; DataCol: Integer;
      Column: TColumn; State: TGridDrawState); override;
  end;

  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Query1: TQuery;
    Button1: TButton;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private 宣言 }
    plDBGrid1 : TplDBGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  plChgCompo;

{$R *.DFM}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
var
  LItemList : string;
  LIndex    : Integer;
begin
  // フォーム作成時にコンポーネントの入れ替え
  plDBGrid1 := TplDBGrid(ChangeComponent(DBGrid1, TplDBGrid));

  Query1.Close;
  DataSource1.DataSet  := Query1;
  plDBGrid1.DataSource := DataSource1;

  // データベースからデータを取得して表示
  Query1.DatabaseName := 'DBDEMOS';
  Query1.SQL.Clear;
  LItemList := 'Company, Addr1, CustNo, State, City, Zip, Phone';
  Query1.SQL.Add('select ' + LItemList + ' from customer.db');
  Query1.Open;

  // テスト表示用にカラムの幅を変更して水平方向にスクロール
  // ColWidths, LeftCol は protected 部のプロパティ
  for LIndex := 3 to 6 do begin
    plDBGrid1.ColWidths[LIndex] := 70;
  end;
  plDBGrid1.LeftCol := 3;

  ActiveControl := plDBGrid1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Query1.Close;
end;

{ TplDBGrid }

//=============================================================================
//  DrawColumnCell メソッドの処理
//  指定列のセル背景を指定した色で塗り潰す
//
//  DrawColumnCell  では固定列，固定行のセルの描画はできない
//=============================================================================
procedure TplDBGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
var
  LColor : TColor;
  LRect  : TRect;
begin
  inherited;

  if (DataCol >= 3) and (DataCol <= 5) then begin
    // 背景の色の指定
    case DataCol of
      3: LColor := $007171FF;
      4: LColor := $0000D900;
      5 :LColor := $00FFAAAA;
    else
      LColor := Color;
    end;

    // 塗り潰しの矩形領域
    LRect := Rect;
    // 塗り潰しの色 (TBrush.Color で指定する)
    Canvas.Brush.Color := LColor;
    // 描画ルーチンを実行
    DefaultDrawColumnCell(LRect, DataCol, Column, State);
  end;
end;

end.

//=============================================================================
//  DrawColumnCell メソッドの処理
//  指定列のセル背景を指定した色で塗り潰す
//  グラデーションにする例
//
//  DrawColumnCell  では固定列，固定行のセルの描画はできない
//
//  uses に GraphUtil と plCalcGradColor (添付のユニット) が必要
//=============================================================================
procedure TplDBGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
var
  LStartColor : TColor;
  LEndColor   : TColor;
  LRect       : TRect;
begin
  inherited;

  if (DataCol >= 3) and (DataCol <= 5) then begin
    // 背景の色の指定
    if DataCol = 3 then begin
      LStartColor := $007171FF;
      LEndColor   := CalcGradEndColor(LStartColor, 70);
    end else
    if DataCol = 4 then begin
      LStartColor := $0000D900;
      LEndColor   := CalcGradEndColor(LStartColor, 70);;
    end else
    if DataCol = 5 then begin
      LStartColor := $00FFAAAA;
      LEndColor   := CalcGradEndColor(LStartColor, 70);;
    end else begin
      LStartColor := Color;
      LEndColor   := Color;
    end;

    // 背景の塗り潰し
    LRect := Rect;
    // グラデーションで塗り潰し (uses に GraphUtil が必要)
    SetBkMode(Canvas.Handle, TRANSPARENT);
    GradientFillCanvas(Canvas, LStartColor, LEndColor, LRect, gdVertical);

    // カラム間の線
    Canvas.Pen.Color := clSilver;
    Canvas.MoveTo(LRect.Left, LRect.Top + 1);
    Canvas.LineTo(LRect.Left, LRect.Bottom - 1);

    // Brush を透明にして描画ルーチンを実行
    Canvas.Brush.Style := bsClear;
    DefaultDrawColumnCell(LRect, DataCol, Column, State);
  end;
end;

//=============================================================================
//  DrawDataCell メソッドの処理
//  指定列のセル背景を指定した色で塗り潰す
//
//  DrawDataCell では固定列，固定行のセルの描画はできない
//=============================================================================
procedure TplDBGrid.DrawDataCell(const Rect: TRect; Field: TField;
  State: TGridDrawState);
var
  LColor : TColor;
  LRect  : TRect;
begin
  inherited;

  if (Field.Index >= 3) and (Field.Index <= 5) then begin
    // 背景の色の指定
    case Field.Index of
      3 :LColor := clWebPink;
      4: LColor := clWebPaleGreen;
      5: LColor := clWebAquamarine;
    else
      LColor := Color;
    end;

    // 塗り潰しの矩形領域
    LRect := Rect;
    // 塗り潰しの色 (TBrush.Color で指定する)
    Canvas.Brush.Color := LColor;
    // 描画ルーチンを実行
   DefaultDrawDataCell(LRect, Field, State);
  end;
end;

//=============================================================================
//  TDBGrid.OnDrawColumnCell イベントのコード
//  指定列のセル背景を指定した色で塗り潰す
//
//  OnDrawColumnCell イベントでは固定列，固定行のセルの描画はできない
//=============================================================================
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  LColor : TColor;
  LRect  : TRect;
begin
  if (DataCol >= 3) and (DataCol <= 5) then begin
    // 背景の色の指定
    case DataCol of
      3: LColor := clWebAquamarine;
      4 :LColor := clWebLime;
      5: LColor := clWebBurlywood;
    else
      LColor := Color;
    end;

    // 塗り潰しの矩形領域
    LRect := Rect;
    // 塗り潰しの色 (TBrush.Color で指定する)
    plDBGrid1.Canvas.Brush.Color := LColor;
    // 描画ルーチンを実行
    plDBGrid1.DefaultDrawColumnCell(LRect, DataCol, Column, State);
  end;
end;

//=============================================================================
//  列を移動
//  MoveColumn は protected 部のメソッド
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  plDBGrid1.MoveColumn(4, 5);
  plDBGrid1.SetFocus;
end;

//=============================================================================
//  TDBGrid.DrawColumnCell イベントのコード
//  指定列のセル背景を指定した色で塗り潰す
//
//  OnDrawColumnCell イベントでは固定列，固定行のセルの描画はできない
//=============================================================================
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  LColor   : TColor;
  LRect    : TRect;
  LFieldNo : Integer;
begin
  LFieldNo := Column.Field.FieldNo;
  if (LFieldNo >= 4) and (LFieldNo <= 6) then begin
    // 背景の色の指定
    case LFieldNo of
      4: LColor := $0000D900;
      5 :LColor := $00FFAAAA;
      6: LColor := $007171FF;
    else
      LColor := Color;
    end;

    // 塗り潰しの矩形領域
    LRect := Rect;
    // 塗り潰しの色 (TBrush.Color で指定する)
    plDBGrid1.Canvas.Brush.Color := LColor;
    // 描画ルーチンを実行
    plDBGrid1.DefaultDrawColumnCell(LRect, DataCol, Column, State);
  end;
end;

//=============================================================================
//  TDBGrid.DrawColumnCell イベントのコード
//  指定列のセル背景を指定した色で塗り潰す
//
//  OnDrawColumnCell イベントでは固定列，固定行のセルの描画はできない
//=============================================================================
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  LColor   : TColor;
  LRect    : TRect;
  LFldName : string;
begin
  // LFldName := Column.Field.FieldName; でも同じ
  LFldName := Column.FieldName;
  if (LFldName = 'State') or (LFldName = 'City') or (LFldName = 'Zip') then begin
    // 背景の色の指定
    if LFldName = 'State' then LColor := $007171FF;
    if LFldName = 'City'  then LColor := $0000D900;
    if LFldName = 'Zip'   then LColor := $00FFAAAA;

    // 塗り潰しの矩形領域
    LRect := Rect;
    // 塗り潰しの色 (TBrush.Color で指定する)
    plDBGrid1.Canvas.Brush.Color := LColor;
    // 描画ルーチンを実行
    plDBGrid1.DefaultDrawColumnCell(LRect, DataCol, Column, State);
  end;
end;

//=============================================================================
//  TDBGrid.OnDrawDataCell イベントのコード
//  指定列のセル背景を指定した色で塗り潰す
//
//  OnDataCell イベントでは固定列，固定行のセルの描画はできない
//=============================================================================
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var
  LColor  : TColor;
  LRect   : TRect;
begin
  if (Field.Index >= 3) and (Field.Index <= 5) then begin
    // 背景の色の指定
    case Field.Index of
      3 :LColor := $00FFAAAA;
      4: LColor := $0000D900;
      5: LColor := $007171FF;
    else
      LColor := Color;
    end;

    // 塗り潰しの矩形領域
    LRect := Rect;
    // 塗り潰しの色 (TBrush.Color で指定する)
    plDBGrid1.Canvas.Brush.Color := LColor;
    // 描画ルーチンを実行
    plDBGrid1.DefaultDrawDataCell(LRect, Field, State);
  end;
end;

//=============================================================================
//  DrawDataCell メソッドの処理
//  指定列のセル背景を指定した色で塗り潰す
//
//  OnDrawDataCell イベントでは固定列，固定行のセルの描画はできない
//=============================================================================
procedure TplDBGrid.DrawDataCell(const Rect: TRect; Field: TField;
  State: TGridDrawState);
var
  LColor : TColor;
  LRect  : TRect;
begin
  inherited;

  if (Field.Index >= 3) and (Field.Index <= 5) then begin
    // 背景の色の指定
    case Field.Index of
      3: LColor := $007171FF;
      4: LColor := $0000D900;
      5 :LColor := $00FFAAAA;
    else
      LColor := Color;
    end;

    // 塗り潰しの矩形領域
    LRect := Rect;
    // TCamvas.FillRect は下端と右端の 1 ピクセルは描画領域に含まれないので追加
    LRect.Right  := LRect.Right + 1;
    LRect.Bottom := LRect.Bottom + 1;

    // 塗り潰しの色 (TBrush.Color で指定する)
    Canvas.Brush.Color := LColor;

    // 描画ルーチンを実行
    // 必要なら自前で文字列も描画する
   DefaultDrawDataCell(LRect, Field, State);
  end;
end;

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TplDBGrid = class(TDBGrid)
  protected
    procedure DrawDataCell(const Rect: TRect; Field: TField;
      State: TGridDrawState); override;
  end;

  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Query1: TQuery;
    Button1: TButton;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private 宣言 }
    plDBGrid1 : TplDBGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  plChgCompo;

{$R *.DFM}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
var
  LItemList : string;
  LIndex    : Integer;
begin
  // フォーム作成時にコンポーネントの入れ替え
  plDBGrid1 := TplDBGrid(ChangeComponent(DBGrid1, TplDBGrid));

  // Options に dgRowSelect が含まれている行の選択になる
  plDBGrid1.Options := plDBGrid1.Options - [dgRowSelect];

  Query1.Close;
  DataSource1.DataSet  := Query1;
  plDBGrid1.DataSource := DataSource1;

  // データベースからデータを取得して表示
  Query1.DatabaseName := 'DBDEMOS';
  Query1.SQL.Clear;
  LItemList := 'Company, Addr1, CustNo, State, City, Zip, Phone';
  Query1.SQL.Add('select ' + LItemList + ' from customer.db');
  Query1.Open;

  // テスト用にカラムの幅を変更して水平方向にスクロール
  // ColWidths, LeftCol は protected 部のプロパティ
  for LIndex := 3 to 6 do begin
    plDBGrid1.ColWidths[LIndex] := 70;
  end;
  plDBGrid1.LeftCol := 3;

  ActiveControl := plDBGrid1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Query1.Close;
end;

{ TplDBGrid }

//=============================================================================
//  DrawDataCell メソッドの処理
//  選択セルの背景を指定した色にする
//=============================================================================
procedure TplDBGrid.DrawDataCell(const Rect: TRect; Field: TField;
  State: TGridDrawState);
begin
  inherited;

  if (gdSelected in State) then begin
    // 塗り潰しの色 (TBrush.Color で指定する)
    Canvas.Brush.Color := clSkyBlue;
    // 描画ルーチンを実行
   DefaultDrawDataCell(Rect, Field, State);
  end;
end;

end.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TplDBGrid = class(TDBGrid)
  protected
    procedure DrawDataCell(const Rect: TRect; Field: TField;
      State: TGridDrawState); override;
  end;

  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Query1: TQuery;
    Button1: TButton;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private 宣言 }
    plDBGrid1 : TplDBGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  plChgCompo;

{$R *.DFM}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
var
  LItemList : string;
  LIndex    : Integer;
begin
  // フォーム作成時にコンポーネントの入れ替え
  plDBGrid1 := TplDBGrid(ChangeComponent(DBGrid1, TplDBGrid));

  // Options に dgRowSelect が含まれていないと行の選択にならない
  plDBGrid1.Options := plDBGrid1.Options + [dgRowSelect];

  Query1.Close;
  DataSource1.DataSet  := Query1;
  plDBGrid1.DataSource := DataSource1;

  // データベースからデータを取得して表示
  Query1.DatabaseName := 'DBDEMOS';
  Query1.SQL.Clear;
  LItemList := 'Company, Addr1, CustNo, State, City, Zip, Phone';
  Query1.SQL.Add('select ' + LItemList + ' from customer.db');
  Query1.Open;

  // テスト表示用にカラムの幅を変更して水平方向にスクロール
  // ColWidths, LeftCol は protected 部のプロパティ
  for LIndex := 3 to 6 do begin
    plDBGrid1.ColWidths[LIndex] := 70;
  end;
  plDBGrid1.LeftCol := 3;

  ActiveControl := plDBGrid1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Query1.Close;
end;

{ TplDBGrid }

//=============================================================================
//  DrawDataCell メソッドの処理
//  選択行の背景を指定した色にする
//  Options に dgRowSelect が含まれている場合のみ有効
//=============================================================================
procedure TplDBGrid.DrawDataCell(const Rect: TRect; Field: TField;
  State: TGridDrawState);
begin
  inherited;

  if (gdSelected in State) then begin
    // 塗り潰しの色 (TBrush.Color で指定する)
    Canvas.Brush.Color := clSkyBlue;
    // 描画ルーチンを実行
   DefaultDrawDataCell(Rect, Field, State);
  end;
end;

end.

//=============================================================================
//  DrawDataCell メソッドの処理
//  現在アクティブなレコードの背景を指定した色にする
//  Options に dgRowSelect が含まれていなくても機能する
//=============================================================================
procedure TplDBGrid.DrawDataCell(const Rect: TRect; Field: TField;
  State: TGridDrawState);
begin
  inherited;

  if (Row - FixedRows) = DataLink.ActiveRecord then begin
    // 塗り潰しの色 (TBrush.Color で指定する)
    Canvas.Brush.Color := clWebBurlywood;
    if [dgRowSelect] * Options = [] then begin
      if gdSelected in State then begin
        Canvas.Brush.Color := clWebAquamarine;
      end;
    end;

    // 描画ルーチンを実行
   DefaultDrawDataCell(Rect, Field, State);
  end;
end;

//=============================================================================
//  KeyDown メソッドの処理
//=============================================================================
procedure TplDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
var
  LBookMarkList : TBookmarkList;
begin
  inherited;
//
  if Button = mbLeft then begin
    // 現在のブックマークのリストを取得してクリア
    // クリアするのはマウス押下のレコード番号のレコードだけを選択するため
    // Options に dgMultiSelect があっても複数選択にならない
    LBookMarkList := SelectedRows;
    LBookMarkList.Clear;
    // マウス押下したレコード番号のレコードをブックマークに追加
    LBookMarkList.CurrentRowSelected := True;
  end;
end;

//=============================================================================
//  DrawDataCell メソッドの処理
//  ブックマークのリスト内のレコード番号の行の背景を指定した色にする
//=============================================================================
procedure TplDBGrid.DrawDataCell(const Rect: TRect; Field: TField;
  State: TGridDrawState);
begin
  inherited;

  if (SelectedRows.CurrentRowSelected) then begin
    // 塗り潰しの色 (TBrush.Color で指定する)
    Canvas.Brush.Color := clWebDarkSeaGreen;
    // 描画ルーチンを実行
   DefaultDrawDataCell(Rect, Field, State);
  end;
end;

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TplDBGrid = class(TDBGrid)
  protected
    procedure DrawDataCell(const Rect: TRect; Field: TField;
      State: TGridDrawState); override;
  end;

  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Query1: TQuery;
    Button1: TButton;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private 宣言 }
    plDBGrid1 : TplDBGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  plChgCompo;

{$R *.DFM}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
var
  LItemList : string;
  LIndex    : Integer;
begin
  // フォーム作成時にコンポーネントの入れ替え
  plDBGrid1 := TplDBGrid(ChangeComponent(DBGrid1, TplDBGrid));

  Query1.Close;
  DataSource1.DataSet  := Query1;
  plDBGrid1.DataSource := DataSource1;

  // データベースからデータを取得して表示
  Query1.DatabaseName := 'DBDEMOS';
  Query1.SQL.Clear;
  LItemList := 'Company, Addr1, CustNo, State, City, Zip, Phone';
  Query1.SQL.Add('select ' + LItemList + ' from customer.db');
  Query1.Open;

  // テスト表示用にカラムの幅を変更して水平方向にスクロール
  // ColWidths, LeftCol は protected 部のプロパティ
  for LIndex := 3 to 6 do begin
    plDBGrid1.ColWidths[LIndex] := 70;
  end;
  plDBGrid1.LeftCol := 3;

  ActiveControl := plDBGrid1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Query1.Close;
end;

{ TplDBGrid }

//=============================================================================
//  DrawDataCell メソッドの処理
//  指定条件列のセル背景を指定した色で塗り潰す
//=============================================================================
procedure TplDBGrid.DrawDataCell(const Rect: TRect; Field: TField;
  State: TGridDrawState);
var
  LRect : TRect;
begin
  inherited;

  if (Field.FieldName = 'State') and (Field.AsString = '東京都') then begin
    // 塗り潰しの矩形領域
    LRect := Rect;
    // 塗り潰しの色 (TBrush.Color で指定する)
    Canvas.Brush.Color := $00FFAAAA;
    // 描画ルーチンを実行
   DefaultDrawDataCell(LRect, Field, State);
  end;
end;

end.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TplDBGrid = class(TDBGrid)
  protected
    procedure DrawColumnCell(const Rect: TRect; DataCol: Integer;
      Column: TColumn; State: TGridDrawState); override;
  end;

  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Query1: TQuery;
    Button1: TButton;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private 宣言 }
    plDBGrid1 : TplDBGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  plChgCompo;

{$R *.DFM}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  // フォーム作成時にコンポーネントの入れ替え
  plDBGrid1 := TplDBGrid(ChangeComponent(DBGrid1, TplDBGrid));

  Query1.Close;
  DataSource1.DataSet  := Query1;
  plDBGrid1.DataSource := DataSource1;

  // データベースからデータを取得して表示
  Query1.DatabaseName := 'DBDEMOS';
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from customer.db');
  Query1.Open;

  ActiveControl := plDBGrid1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Query1.Close;
end;

{ TplDBGrid }

//=============================================================================
//  DrawDataCell メソッドの処理
//  1 行おきに行の色を変更する
//=============================================================================
procedure TplDBGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
begin
  inherited;

  if (Column.Field.DataSet.RecNo Mod 2) = 0 then begin
    Canvas.Brush.Color := clSkyBlue;
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

end.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TplDBGrid = class(TDBGrid)
  protected
    function CanEditShow: Boolean; override;
  end;

  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Query1: TQuery;
    Button1: TButton;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private 宣言 }
    plDBGrid1 : TplDBGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  plChgCompo;

{$R *.DFM}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
var
  LItemList : string;
  LIndex    : Integer;
begin
  // フォーム作成時にコンポーネントの入れ替え
  plDBGrid1 := TplDBGrid(ChangeComponent(DBGrid1, TplDBGrid));

  Query1.Close;
  DataSource1.DataSet  := Query1;
  plDBGrid1.DataSource := DataSource1;

  // データベースからデータを取得して表示
  Query1.DatabaseName := 'DBDEMOS';
  Query1.SQL.Clear;
  LItemList := 'Company, Addr1, CustNo, State, City, Zip, Phone';
  Query1.SQL.Add('select ' + LItemList + ' from customer.db');
  Query1.Open;

  // テスト用にカラムの幅を変更して水平方向にスクロール
  // ColWidths, LeftCol は protected 部のプロパティ
  for LIndex := 3 to 6 do begin
    plDBGrid1.ColWidths[LIndex] := 70;
  end;
  plDBGrid1.LeftCol := 3;

  ActiveControl := plDBGrid1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Query1.Close;
end;

{ TplDBGrid }

//=============================================================================
//  TStringGridのCanEditShowメソッド
//  インプレースエディタが起動する時に実行される
//=============================================================================
function TplDBGrid.CanEditShow: Boolean;
begin
  Result := inherited CanEditShow;

  if InplaceEditor <> nil then  begin
    // セルの背景色
    InplaceEditor.Brush.Color := clLime;
  end;
end;

end.

//=============================================================================
//  TStringGridのCanEditShowメソッド
//  インプレースエディタが起動する時に実行される
//=============================================================================
function TplDBGrid.CanEditShow: Boolean;
begin
  Result := inherited CanEditShow;

  // 項目 Zip は編集不可とする
  if Columns[Col - fixedcols].FieldName = 'Zip' then begin
    Result := False;
    Exit;
  end;

  if InplaceEditor <> nil then  begin
    // セルの背景色
    InplaceEditor.Brush.Color := clLime;
  end;
end;

//=============================================================================
//  SelectCell メソッドの処理
//
//  特定の列のセルを編集禁止にする
//  選択は可能だが編集状態にはできなくなる
//=============================================================================
function TplDBGrid.SelectCell(ACol, ARow: Integer): Boolean;
var
  LOptions : TDBGridOptions;
begin
  Result := inherited SelectCell(ACol, ARow);

  LOptions := Options;
  if Columns[ACol - fixedcols].FieldName = 'Zip' then begin
    System.Exclude(LOptions, dgEditing);
  end else begin
    System.Include(LOptions, dgEditing);
  end;
  Options := LOptions;
end;

//=============================================================================
//  SelectCell メソッドの処理
//
//  特定の列のセルを編集禁止にする
//  編集禁止のセルは選択できなくなる
//  キー操作 ([TAB], 矢印) でセルの移動が不可になる
//=============================================================================
function TplDBGrid.SelectCell(ACol, ARow: Integer): Boolean;
begin
  Result := inherited SelectCell(ACol, ARow);

  if Columns[ACol - fixedcols].FieldName = 'Zip' then begin
    Result := False;
  end;
end;

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TplDBGrid = class(TDBGrid)
  protected
    procedure DrawColumnCell(const Rect: TRect; DataCol: Integer;
      Column: TColumn; State: TGridDrawState); override;
  end;

  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Query1: TQuery;
    Button1: TButton;
    DBGrid1: TDBGrid;
    CheckBox1: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private 宣言 }
    plDBGrid1 : TplDBGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  plChgCompo;

{$R *.DFM}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
var
  LItemList : string;
  LIndex    : Integer;
begin
  // フォーム作成時にコンポーネントの入れ替え
  plDBGrid1 := TplDBGrid(ChangeComponent(DBGrid1, TplDBGrid));

  Query1.Close;
  DataSource1.DataSet  := Query1;
  plDBGrid1.DataSource := DataSource1;

  // データベースからデータを取得して表示
  Query1.DatabaseName := 'DBDEMOS';
  Query1.SQL.Clear;
  LItemList := 'Company, Addr1, CustNo, State, City, Zip, Phone';
  Query1.SQL.Add('select ' + LItemList + ' from customer.db');
  Query1.Open;

  // テスト用にカラムの幅を変更して水平方向にスクロール
  // ColWidths, LeftCol は protected 部のプロパティ
  for LIndex := 3 to 6 do begin
    plDBGrid1.ColWidths[LIndex] := 70;
  end;
  plDBGrid1.LeftCol := 3;

  ActiveControl := plDBGrid1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Query1.Close;
end;

//=============================================================================
//  行の高さを変更 (トグル)
//  DefaultRowHeight は protected 部のプロパティ
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  if plDBGrid1.DefaultRowHeight <> 16 then begin
    plDBGrid1.DefaultRowHeight := 16;
  end else begin
    plDBGrid1.DefaultRowHeight := 30;
  end;
  plDBGrid1.SetFocus;
end;

//=============================================================================
//  カスタム描画をする場合としない場合の違いの確認用
//=============================================================================
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  plDBGrid1.Invalidate;
  plDBGrid1.SetFocus;
end;

{ TplDBGrid }

//=============================================================================
//  DrawColumnCell メソッドの処理
//  以下の動作確認
//  (1) 選択されているセルの背景色を変更
//  (2) データを加工してセルに表示
//  (2) カスタム描画とデフォルトの場合のテキスト描画のアライメントの違い
//=============================================================================
procedure TplDBGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
var
  LRect     : TRect;
  LFormat   : TTextFormat;
  LCellText : string;
begin
  inherited;

  // 選択セルの背景色を変更
  if gdSelected in State then begin
    Canvas.Brush.Color := $0000FB00;
  end;

  // セル描画テキストを設定
  // 項目名が Zip の時は先頭に文字を追加
  LCellText := Column.Field.DisplayText;
  if Column.Field.FieldName = 'Zip' then begin
    LCellText := '〒' + LCellText;
  end;

  if Form1.CheckBox1.Checked then begin
    // テータの文字列をデフォルト描画(背景色は TCanvas.Brush.Color)
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end else begin
　  // セルの背景を塗り潰す
 　 Canvas.FillRect(Rect);

    // セル描画フォントを設定
    Canvas.Font := Column.Font;

    // テキスト描画ノアライメントを取得
    case Column.Alignment of
      taLeftJustify  : LFormat := [tfLeft];
      taRightJustify : LFormat := [tfRight];
    else
      LFormat := [tfCenter];
    end;
    LFormat := LFormat + [tfVerticalCenter, tfSingleLine];

    // データをを描画
    LRect := Rect;
    InflateRect(LRect, -2, 0);
    Canvas.TextRect(LRect, LCellText, LFormat);
  end;
end;

end.

//=============================================================================
//  行の高さは個別に設定可能
//  RowHeights,RowCount は protected 部のプロパティ
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  Lindex : Integer;
begin
  // 固定行の高さ
  plDBGrid1.RowHeights[0] := 20;

  // 固定行以外の高さ
  for Lindex := 1 to  plDBGrid1.RowCount - 1 do begin
    plDBGrid1.RowHeights[Lindex] := 30;
  end;
  plDBGrid1.SetFocus;
end;

//=============================================================================
//  DrawColumnCell メソッドの処理
//  セルのテキスト (文字列) だけをカスタマイズ描画する場合
//  背景の描画も行う必要がある
//=============================================================================
procedure TplDBGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
var
  LRect     : TRect;
  LColor    : TColor;
  LFormat   : TTextFormat;
  LCellText : string;
begin
  inherited;

  // 背景の描画
  if not Form1.CheckBox1.Checked then begin
    // これを実行しないとテキストの描画が重なってしまう
    if (gdSelected in State) then begin
      DrawCellHighlight(Rect, State, DataCol, Row);
    end else begin
      // 第 2 引数は戻り値 ($00000001)
      DrawCellBackground(Rect, LColor, State, DataCol, Row);
    end;
  end;


  // セル描画テキストを設定
  // 項目名が Zip の時は先頭に文字を追加
  LCellText := Column.Field.DisplayText;
  if Column.Field.FieldName = 'Zip' then begin
    LCellText := '〒' + LCellText;
  end;

  // テキスト描画ノアライメントを取得
  // 全て縦方向は真ん中に
  case Column.Alignment of
    taLeftJustify  : LFormat := [tfLeft];
    taRightJustify : LFormat := [tfRight];
  else
    LFormat := [tfCenter];
  end;
  LFormat := LFormat + [tfVerticalCenter, tfSingleLine];


  // セル描画フォントを設定
  // 全て太文字にする
  Canvas.Font := Column.Font;
  if DataCol = 3 then Canvas.Font.Color := clGreen;
  if DataCol = 4 then Canvas.Font.Color := clRed;
  Canvas.Font.Style := [fsBold];

  // データをを描画
  LRect := Rect;
  InflateRect(LRect, -2, 0);
  Canvas.TextRect(LRect, LCellText, LFormat);
end;

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TplDBGrid = class(TDBGrid)
  protected
    procedure DrawCell(ACol: Integer; ARow: Integer; ARect: TRect;
      AState: TGridDrawState); override;
  end;

  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Query1: TQuery;
    Button1: TButton;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private 宣言 }
    plDBGrid1 : TplDBGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  plChgCompo;

{$R *.DFM}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
var
  LItemList : string;
  LIndex    : Integer;
begin
  // フォーム作成時にコンポーネントの入れ替え
  plDBGrid1 := TplDBGrid(ChangeComponent(DBGrid1, TplDBGrid));

  Query1.Close;
  DataSource1.DataSet  := Query1;
  plDBGrid1.DataSource := DataSource1;

  // データベースからデータを取得して表示
  Query1.DatabaseName := 'DBDEMOS';
  Query1.SQL.Clear;
  LItemList := 'Company, Addr1, CustNo, State, City, Zip, Phone';
  Query1.SQL.Add('select ' + LItemList + ' from customer.db');
  Query1.Open;

  // テスト表示用にカラムの幅を変更して水平方向にスクロール
  // ColWidths, LeftCol は protected 部のプロパティ  
  for LIndex := 3 to 6 do begin
    plDBGrid1.ColWidths[LIndex] := 70;
  end;
  plDBGrid1.LeftCol := 3;

  ActiveControl := plDBGrid1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Query1.Close;
end;

{ TplDBGrid }

//=============================================================================
//  DrawCell メソッド処理
//  固定行 ( タイトル行 ) の背景色を変更
//
//  DrawColumnCell. DrawDataCell では固定列のタイトルは描画できない
//  DrawCell に対応する外部イベントはない
//
//  この DrawCell の段階ではデータの値は正常に取得できない
//  DrawCell でデータセルの背景やデータを描画すると正常に描画されない
//=============================================================================
procedure TplDBGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
  AState: TGridDrawState);
var
  LColor    : TColor;
  LRect     : TRect;
  LColumn   : TColumn;
  LColText  : string;
  LFormat   : TTextFormat;
begin
  inherited;

   // ACol = 0 はタイトル行
   // データ ACol は 1 から
  if (ACol >= 4) and (ACol <= 6) and (ARow = 0) then begin
    case ACol of
      4: LColor := $007171FF;
      5: LColor := $0000D900;
      6 :LColor := $00FFAAAA;
    else
      LColor := Color;
    end;

    // 背景の塗り潰し
    LRect := ARect;
    Canvas.Brush.Color := LColor;
    Canvas.FillRect(LRect);

    // カラム間の線
    Canvas.Pen.Color := clSilver;
    Canvas.MoveTo(LRect.Left, LRect.Top + 1);
    Canvas.LineTo(LRect.Left, LRect.Bottom - 1);   

    // タイトルのキャプションを描画
    // 上の塗り潰しの実行で文字列も塗り潰されている
    LColumn  := Columns[ACol];
    LColText := LColumn.Title.Caption;

    // テキスト描画ノアライメントを取得
    case LColumn.Title.Alignment of
      taLeftJustify  : LFormat := [tfLeft];
      taRightJustify : LFormat := [tfRight];
    else
      LFormat := [tfCenter];
    end;
    // テキストを描画
    LFormat := LFormat + [tfVerticalCenter, tfSingleLine];
    Canvas.TextRect(ARect, LColText, LFormat);
  end;
end;

end.

//=============================================================================
//  DrawCell メソッド処理
//  固定行の背景色を変更
//  グラデーション描画にしてみる
//
//  DrawColumnCell. DrawDataCell では固定列のタイトルは描画できない
//  DrawCell に対応する外部イベントはない
//
//  この DrawCell の段階ではデータの値は正常に取得できない
//  DrawCell でデータセルの背景やデータを描画すると正常に描画されない
//
//  uses に GraphUtil と plCalcGradColor (添付のユニット) が必要
//=============================================================================
procedure TplDBGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
  AState: TGridDrawState);
var
  LStartColor : TColor;
  LEndColor   : TColor;
  LRect       : TRect;
  LColumn     : TColumn;
  LColText    : string;
  LFormat     : TTextFormat;
begin
  inherited;

   // ACp; = 0 は固定列
   // データ ACol は 1 から
  if (ACol >= 4) and (ACol <= 6) and (ARow = 0) then begin
    if ACol = 4 then begin
      LStartColor := $007171FF;
      LEndColor   := CalcGradEndColor(LStartColor, 60);
    end else
    if ACol = 5 then begin
      LStartColor := $0000D900;
      LEndColor   := CalcGradEndColor(LStartColor, 60);;
    end else
    if ACol = 6 then begin
      LStartColor := $00FFAAAA;
      LEndColor   := CalcGradEndColor(LStartColor, 60);
    end else begin
      LStartColor := FixedColor;
      LEndColor   := FixedColor;
    end;

    // 背景の塗り潰し
    LRect := ARect;
    // グラデーションで塗り潰し (uses に GraphUtil が必要)
    SetBkMode(Canvas.Handle, TRANSPARENT);
    GradientFillCanvas(Canvas, LStartColor, LEndColor, LRect, gdVertical);

    // カラム間の線
    Canvas.Pen.Color := clSilver;
    Canvas.MoveTo(LRect.Left, LRect.Top + 1);
    Canvas.LineTo(LRect.Left, LRect.Bottom - 1);

    // タイトルのキャプションを描画
    // 上の塗り潰しの実行で文字列も塗り潰されている
    LColumn  := Columns[ACol - 1];
    LColText := LColumn.Title.Caption;

    // テキスト描画ノアライメントを取得
    case LColumn.Title.Alignment of
      taLeftJustify  : LFormat := [tfLeft];
      taRightJustify : LFormat := [tfRight];
    else
      LFormat := [tfCenter];
    end;
    // テキストを描画
    InflateRect(LRect, -2, -2);
    LFormat := LFormat + [tfVerticalCenter, tfSingleLine];
    Canvas.TextRect(LRect, LColText, LFormat);
  end;
end;

//=============================================================================
//  DrawCell メソッド処理
//  固定行 (タイトル行) の描画を変更
//  テキスト (文字列) だけをカスタム描画する場合も背景の描画が必要
//=============================================================================
procedure TplDBGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
  AState: TGridDrawState);
var
  LRect    : TRect;
  LColor   : TColor;
  LColumn  : TColumn;
  LColText : string;
  LFormat  : TTextFormat;
begin
  inherited;

   // ACpl = 0 は固定列
   // データ ACol は 1 から
  if (ACol >= 4) and (ACol <= 6) and (ARow = 0) then begin

    // 背景の描画
    if not Form1.CheckBox1.Checked then begin
      // これを実行しないとテキストの描画が重なってしまう
      if (gdSelected in AState) then begin
        DrawCellHighlight(ARect, AState, ACol, Row);
      end else begin
        // 第 2 引数は戻り値 ($00000001)
        DrawCellBackground(ARect, LColor, AState, ACol, Row);
      end;
    end;


    // タイトルのキャプションを描画
    LColumn  := Columns[ACol - 1];
    LColText := LColumn.Title.Caption;

    // フォントの属性を変えてみる
    Canvas.Font := LColumn.Font;
    Canvas.Font.Color := clRed;

    // テキスト描画ノアライメントを取得
    case LColumn.Title.Alignment of
      taLeftJustify  : LFormat := [tfLeft];
      taRightJustify : LFormat := [tfRight];
    else
      LFormat := [tfCenter];
    end;

    LRect := ARect;

    // テキストを描画
    InflateRect(LRect, -2, -2);
    LFormat := LFormat + [tfVerticalCenter, tfSingleLine];
    Canvas.TextRect(LRect, LColText, LFormat);
  end;
end;

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TplDBGrid = class(TDBGrid)
  protected
    procedure DrawCell(ACol: Integer; ARow: Integer; ARect: TRect;
      AState: TGridDrawState); override;
  end;

  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Query1: TQuery;
    Button1: TButton;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private 宣言 }
    plDBGrid1 : TplDBGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  plChgCompo;

{$R *.DFM}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  // フォーム作成時にコンポーネントの入れ替え
  plDBGrid1 := TplDBGrid(ChangeComponent(DBGrid1, TplDBGrid));

  Query1.Close;
  DataSource1.DataSet  := Query1;
  plDBGrid1.DataSource := DataSource1;

  // データベースからデータを取得して表示
  Query1.DatabaseName := 'DBDEMOS';
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from customer.db');
  Query1.Open;

  ActiveControl := plDBGrid1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Query1.Close;
end;

{ TplDBGrid }

//=============================================================================
//  DrawCell メソッド処理
//  固定列 (インジケータ) の背景色を変更
//
//  DrawColumnCell. DrawDataCell では固定列の描画はできない
//  DrawCell に対応する外部イベントはない
//
//  この DrawCell の段階ではデータの値は正常に取得できない
//  DrawCell でデータセルの背景やデータを描画すると正常に描画されない
//=============================================================================
procedure TplDBGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
  AState: TGridDrawState);
var
  LRect   : TRect;
  LFormat : TTextFormat;
  LText   : string;
begin
  inherited;

  if (gdFixed in AState) then begin
    if (dgIndicator in Options) and (ACol = 0) and (ARow > 0) then begin
      // 背景を塗り潰す
      LRect := ARect;
      Canvas.Brush.Color := clGreen;
      Canvas.FillRect(LRect);

      // インジケータの画像の代わりに文字を描画
      // 上の塗り潰しで三角形の矢印のビットマップ画像も塗り潰されている
      if (ARow - FixedRows) = DataLink.ActiveRecord then begin
        InflateRect(LRect, -2, -2);
        Canvas.Font.Color := clWhite;
        LText  := '■';
        LFormat := [tfCenter, tfVerticalCenter, tfSingleLine];
        Canvas.TextRect(LRect, LText, LFormat);
      end;
    end;
  end;
end;

end.

//=============================================================================
//  DrawCell メソッド処理
//  固定列 (インジケータ) の背景色を変更
//
//  三角形の矢印を描画
//  uses に GraphUtil が必要
//=============================================================================
procedure TplDBGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
  AState: TGridDrawState);
var
  LRect : TRect;
  LSize : Integer;
  LLeft : Integer;
  LTop  : Integer;
begin
  inherited;

  if (gdFixed in AState) then begin
    if (dgIndicator in Options) and (ACol = 0) and (ARow > 0) then begin
      // 背景を塗り潰す
      LRect := ARect;
      Canvas.Brush.Color := clSkyBlue;
      Canvas.FillRect(LRect);

      if (ARow - 1) = DataLink.ActiveRecord then begin
        // 三角形の矢印を描画  (uses に GraphUtil が必要)
        // 上の塗り潰しで三角形の矢印のビットマップ画像も塗り潰されている

        LRect := ARect;

        LSize := IndicatorWidth div 2;
        LLeft := ((LRect.Left + LRect.Right) - LSize) div 2;
        LTop  := (LRect.Top + LRect.Bottom) div 2 - LSize;

        Canvas.Pen.Color := clBlack;
        DrawArrow(Canvas, sdRight, Point(LLeft, LTop), LSize);
      end;
    end;
  end;
end;

//=============================================================================
//  DrawCell メソッド処理
//  固定列 (インジケータ) の背景色を変更
//
//  三角形の矢印を描画
//  uses に Themes が必要
//=============================================================================
procedure TplDBGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
  AState: TGridDrawState);
var
  LRect    : TRect;
  LSize    : Integer;
  LDetails : TThemedElementDetails;
begin
  inherited;

  if (gdFixed in AState) then begin
    if (dgIndicator in Options) and (ACol = 0) and (ARow > 0) then begin
      // 背景を塗り潰す
      LRect := ARect;
      Canvas.Brush.Color := clSkyBlue;
      Canvas.FillRect(LRect);

      if (ARow - 1) = DataLink.ActiveRecord then begin
        // 三角形の矢印を描画  (uses に Themes が必要)
        // 上の塗り潰しで三角形の矢印のビットマップ画像も塗り潰されている

        LRect := ARect;
        LRect.Left := LRect.Left - 3;
        LDetails := StyleServices.GetElementDetails(tspMoreProgramsArrowNormal);
        StyleServices.DrawElement(Canvas.Handle, LDetails, LRect, nil);
      end;
    end;
  end;
end;

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TplDBGrid = class(TDBGrid)
  protected
    FSaveOptions : TDBGridOptions;
    function SelectCell(ACol: Integer; ARow: Integer): Boolean; override;
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
    procedure DrawColumnCell(const Rect: TRect; DataCol: Integer;
      Column: TColumn; State: TGridDrawState); override;
    procedure CellClick(Column: TColumn); override;
  end;

  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Query1: TQuery;
    Button1: TButton;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private 宣言 }
    plDBGrid1 : TplDBGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  plChgCompo,
  Themes;

{$R *.DFM}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  // フォーム作成時にコンポーネントの入れ替え
  plDBGrid1 := TplDBGrid(ChangeComponent(DBGrid1, TplDBGrid));

  Query1.Close;
  DataSource1.DataSet  := Query1;
  plDBGrid1.DataSource := DataSource1;

  // データベースからデータを取得して表示
  Query1.DatabaseName := 'DBDEMOS';
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from biolife.db');
  Query1.Open;

  // テスト用の項目が見えるように右にスクロール
  plDBGrid1.LeftCol := 5;

  // 現在の Options プロパティの設定を退避
  plDBGrid1.FSaveOptions := plDBGrid1.Options;

  ActiveControl := plDBGrid1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Query1.Close;
end;

{ TplDBGrid }

//=============================================================================
//  CellClick メソッド処理
//  ボタンを描画しているセルをクリックした時の処理
//  Click メソッドはセルを選択すると発生するので適切とは言えない
//
//  ボタンは画像としての描画であって，TButtpn のインスタンスではない
//  Click 等のイベントが使用できるわけではない
//=============================================================================
procedure TplDBGrid.CellClick(Column: TColumn);
var
  LMousePos : TPoint;
  LGridPos  : TGridCoord;
  LKey      : WORD;
begin
  inherited;

   LMousePos := HitTest;
  // 座標値をグリッドの行と列の値に変換
  LGridPos := MouseCoord(LMousePos.X, LMousePos.Y);

  // MouseDown でアクティブになったレコードが対象
  // それ以外の場所で MouseUp した場合は動作させない
  if (LGridPos.Y - FixedRows) = DataLink.ActiveRecord then begin
    if Columns[LGridPos.X - 1].FieldName = Column.FieldName then begin
      LKey := VK_RETURN;
      KeyDown(LKey, []);
    end;
  end;
end;

//=============================================================================
//  LeuDpwm メソッド処理
//  [Enter] キーでボタンクリックと同じ動作をさせる
//=============================================================================
procedure TplDBGrid.KeyDown(var Key: Word; Shift: TShiftState);
begin
  inherited;

  if Key = VK_RETURN then begin
    if Columns[Col - 1].Field.FieldName = 'Graphic' then begin
      MessageBox(Handle, 'これは画像です', 'データ情報', MB_ICONINFORMATION);
      SetFocus;
    end;
  end;
end;

//=============================================================================
//  SelectCell メソッド処理
//  ボタンを描画した列のセルは編集禁止とする
//=============================================================================
function TplDBGrid.SelectCell(ACol, ARow: Integer): Boolean;
var
  LOptions : TDBGridOptions;
begin
  Result := inherited SelectCell(ACol, ARow);

  // 退避しておいた Options プロパティを操作用の変数に代入
  LOptions := FSaveOptions;
  if Columns[ACol - fixedcols].FieldName = 'Graphic' then begin
    System.Exclude(LOptions, dgEditing);
  end;
  Options := LOptions;
end;

//=============================================================================
//  DrawColumnCell メソッドの処理
//  特定の列にテーマ対応のボタンの画像を描画する
//
//  uses に Themes が必要
//=============================================================================
procedure TplDBGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
var
  LRect     : TRect;
  LBtnTheme : TThemedButton;
  LDetails  : TThemedElementDetails;
  LFormat   : TTextFormat;
  LText     : string;
begin
  inherited DrawColumnCell(Rect, DataCol, Column, State);

  if (Column.Field.FieldName = 'Graphic') then begin
    // 引数の State の値に応じてボタンの画像を変更
    LBtnTheme := tbPushButtonNormal;
    if gdPressed  in State then LBtnTheme := tbPushButtonPressed;
    if gdSelected in State then LBtnTheme := tbPushButtonDefaulted;
    if gdHotTrack in State then LBtnTheme := tbPushButtonHot;

    // ボタンを描画
    LRect := Rect;
    LDetails := StyleServices.GetElementDetails(LBtnTheme);
    StyleServices.DrawElement(Canvas.Handle, LDetails, LRect, nil);

    // 文字列を描画
    LFormat := [tfCenter, tfVerticalCenter, tfSingleLine];
    LRect := Rect;
    LText := '画像表示';
    Canvas.TextRect(LRect, LText, LFormat);
  end;
end;

end.

    // 文字列を描画 (ボタンの Caption)
    LRect :=  Rect;
    StyleServices.DrawText(Canvas.Handle,
                           LDetails,
                           '画像表示',
                           LRect,
                           [tfCenter, tfVerticalCenter, tfSingleLine]);

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls, plPopupListBox;

type
  TplDBGrid = class(TDBGrid)
  protected
    FPopUpListBox : TplPopupListBox;
    FBtnWidth : Integer;
    FSaveOptions : TDBGridOptions;
    FPopShowFlag : Boolean;
    procedure DrawColumnCell(const Rect: TRect; DataCol: Integer;
      Column: TColumn; State: TGridDrawState); override;
    function SelectCell(ACol: Integer; ARow: Integer): Boolean; override;
    procedure CellClick(Column: TColumn); override;
    procedure SetParent(AParent: TWinControl); override;
    procedure OnplPopupListBox1CloseUp(Sender: TObject);
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
  public
    destructor Destroy; override;
  end;

  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Query1: TQuery;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Database1: TDatabase;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private 宣言 }
    plDBGrid1 : TplDBGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  plChgCompo,
  Themes,
  Types;

{$R *.DFM}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  // フォーム作成時にコンポーネントの入れ替え
  plDBGrid1 := TplDBGrid(ChangeComponent(DBGrid1, TplDBGrid));

  // データベースの設定
  Query1.Close;
  Database1.Connected := False;
  Database1.DatabaseName := 'DBDEMOS';
  Database1.TransIsolation := tiDirtyRead;

  DataSource1.DataSet  := Query1;
  plDBGrid1.DataSource := DataSource1;
  Query1.DatabaseName  := Database1.DatabaseName;

  // 更新可能にする
  Query1.RequestLive := True;

  // データベースからデータを取得して表示
  Query1.SQL.Clear;
  Query1.SQL.Add('select CustNo, Company, State, City from customer.db');
  Query1.Open;
  plDBGrid1.Columns[1].Width := 140;
  plDBGrid1.Columns[2].Width := 100;

  // トランザクション開始
  Database1.StartTransaction;

  // 現在の Options プロパティの設定を退避
  plDBGrid1.FSaveOptions := plDBGrid1.Options;

  ActiveControl := plDBGrid1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  // テストなのでコミット (更新) しない
  Database1.Rollback;

  // データベースを閉じる
  Query1.Close;
  Database1.Close;
end;

{ TplDBGrid }

//=============================================================================
//  TplDBGrid のデコンストラクタ
//=============================================================================
destructor TplDBGrid.Destroy;
begin
  FreeAndNil(FPopUpListBox);
  inherited;
end;

//=============================================================================
//  TplDBGrid の SetParent メソッド処理
//  ポップアップ表示する TListBox のインスタンスを生成
//  拙作の TplPopupListBox コンポーネントを使用
//
//  選択リストの選択行の既定の値はおそらく以下の値
//    FPopUpListBox.SelBackColor := clHighlight;
//    FPopUpListBox.SelFontColor := clWhite;
//=============================================================================
procedure TplDBGrid.SetParent(AParent: TWinControl);
begin
  inherited;
  if AParent = nil then Exit;

  if not Assigned(FPopUpListBox) then begin
    // ポップアップ表示する TListBox の生成と設定
    FPopUpListBox := TplPopupListBox.Create(Self);
    FPopUpListBox.Parent := Self;

    FPopUpListBox.OnCloseUp    := OnplPopupListBox1CloseUp;
    FPopUpListBox.DefaultDraw  := False;
    FPopUpListBox.FocusRect    := False;

   // Style プロパティの値を lbOwnerDrawFixed にして ItemHeight の値を変更
    FPopUpListBox.Style := lbOwnerDrawFixed;
    FPopUpListBox.ItemHeight := 20;
  end;

  FBtnWidth := 17;
end;

//=============================================================================
//  KeyDown メソッド (OnKeyDown イベント相当) 処理
//  [Alt] + [↓] キーでポップアップ表示する TListBox のアイテムを作成してを表示
//=============================================================================
procedure TplDBGrid.KeyDown(var Key: Word; Shift: TShiftState);
var
  LCellRect : TRect;
  LShowPos  : TPoint;
  LItemIdx  : Integer;
begin
  if SelectedField.FieldName = 'State' then begin
    // セルの編集モードのトグルは [Enter]
    //  ドロップダウン表示はセルの値の編集の位置で含める場合
    if ((Key = VK_DOWN) and (ssAlt in Shift)) or (Key = VK_RETURN) then begin

      with FPopUpListBox.Items do begin
        BeginUpdate;
        Clear;
        Add('富山県');
        Add('岩手県');
        Add('山形県');
        Add('長野県');
        Add('山梨県');
        Add('埼玉県');
        Add('群馬県');
        Add('新潟県');
        EndUpdate;
      end;

      // 行と列の値からセルの矩形領域 TRect の値を取得
      LCellRect := CellRect(Col, Row);

      FPopUpListBox.Width := LCellRect.Right - LCellRect.Left;
      FPopUpListBox.IntegralHeight := True;
      FPopUpListBox.DropDownRows   := 6;

      // 位置を指定してポップアップ TListBox を表示
      // TListBox を表示する時は Key の値を 0 にする
      LShowPos :=  ClientToScreen(Point(LCellRect.Left, LCellRect.Bottom));
      FPopUpListBox.ShowBeneath(LShowPos.X, LShowPos.y);
      Key := 0;

      // セルの表示と同じ文字列を選択状態にする
      LItemIdx := FPopUpListBox.Items.IndexOf(SelectedField.Text);
      if LItemIdx < 0 then LItemIdx := 0;
      FPopUpListBox.ItemIndex := LItemIdx;
    end;
  end;

  inherited KeyDown(Key, Shift);//
end;

//=============================================================================
//  CellClick メソッド (CellClick イベント相当) 処理
//  ボタンをクリックした時の処理
//  ポップアップ表示する TListBox のアイテムを作成して TListBox を表示する
//
//  Click メソッドはセルを選択すると発生するので適切とは言えない
//=============================================================================
procedure TplDBGrid.CellClick(Column: TColumn);
var
  LBtnRect : TRect;
  LKeyCode : WORD;
begin
  inherited;

  // TListBox が表示状態でクリックしたら TListBox が閉じるようにフラグを使用
  if FPopShowFlag then begin
    FPopShowFlag := False;
    Exit;
  end;
  FPopShowFlag := True;


  // MouseDown でアクティブになったレコードが対象
  // それ以外の場所で MouseUp した場合は動作させない
  if (Row - FixedRows) <> DataLink.ActiveRecord then Exit;
  if SelectedField.FieldName <> Column.FieldName then Exit;


  // FieldName は KeyDown で判定しているので，なくても動作可能
  if Column.FieldName = 'State' then begin
    // 行と列の値からセルの矩形領域 TRect の値を取得
    LBtnRect := CellRect(Col, Row);

    // ボタンの描画領域を取得
    LBtnRect.Left := LBtnRect.Right - FBtnWidth;

    // マウスカーソルの位置がボタンの矩形領域内かをチェック
    if LBtnRect.Contains(Point(HitTest.X, HitTest.Y)) then begin
      LKeyCode := VK_DOWN;
      KeyDown(LKeyCode, [ssAlt]);
    end;
  end;
end;

//-----------------------------------------------------------------------------
//  TplPopupListBoxコンポのOnCloseUpイベント処理
//  項目をクリックすると TListBox が非表示になり，このイベントが発生する
//  ここで選択した TListBox の項目を取得してレコードのデータを更新する
//-----------------------------------------------------------------------------
procedure TplDBGrid.OnplPopupListBox1CloseUp(Sender: TObject);
var
  LIndex : Integer;
begin
  SetFocus;

  LIndex := FPopUpListBox.ItemIndex;
  if LIndex < 0 then Exit;

  // 選択中のレコードのデータを更新
  if SelectedField.FieldName = 'State' then begin
    DataSource.DataSet.Edit;
    SelectedField.AsString := FPopUpListBox.Items[LIndex];
    DataSource.DataSet.Post;

    FPopShowFlag := False;
  end;
end;

//=============================================================================
//  SelectCell メソッド処理
//  ボタンを描画した列のセルは編集禁止とする
//  リストからの選択した値だけをデータとして使用する
//=============================================================================
function TplDBGrid.SelectCell(ACol, ARow: Integer): Boolean;
var
  LOptions : TDBGridOptions;
begin
  Result := inherited SelectCell(ACol, ARow);

  // 退避しておいた Options プロパティを操作用の変数に代入
  LOptions := FSaveOptions;
  if Columns[ACol - fixedcols].FieldName = 'State' then begin
    System.Exclude(LOptions, dgEditing);
  end;
  Options := LOptions;
end;

//=============================================================================
//  DrawColumnCell メソッドの処理
//  特定の列にボタンの画像を描画する
//
//  uses に Themes が必要
//=============================================================================
procedure TplDBGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
var
  LRect    : TRect;
  LDetails : TThemedElementDetails;
begin
  inherited DrawColumnCell(Rect, DataCol, Column, State);

  if (Column.Field.FieldName = 'State') then begin
    // ボタンを描画
    LRect := Rect;
    SetRect(LRect, Rect.Right - FBtnWidth, Rect.Top + 1, Rect.Right, Rect.Bottom - 1);
    LDetails := StyleServices.GetElementDetails(tcDropDownButtonNormal);
    StyleServices.DrawElement(Canvas.Handle, LDetails, LRect, nil);
  end;

  // TListBox の表示中もフォーカスの枠線を描画する処理
  // 必要なければ削除する
  if (gdSelected in State) and (FPopUpListBox.Visible) then begin
    LRect := Rect;
    InflateRect(LRect, - 1, -1);
    Canvas.DrawFocusRect(LRect);
  end;
end;

end.

  if (Column.Field.FieldName = 'State') then begin
    if (Row - 1) = DataLink.ActiveRecord then begin
      // アクティブレコードだけにボタンを描画
      //
    end;
  end;

  if (SelectedField.FieldName = 'State') then begin
    if ((Row - 1) = DataLink.ActiveRecord) then begin
      // セルを選択した時にボタンを描画

      //
    end;
  end;

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TplDBGrid = class(TDBGrid)
  protected
    FSaveOptions : TDBGridOptions;
    function SelectCell(ACol: Integer; ARow: Integer): Boolean; override;
//    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X: Integer;
//      Y: Integer); override;
    procedure DrawColumnCell(const Rect: TRect; DataCol: Integer;
      Column: TColumn; State: TGridDrawState); override;
    procedure CellClick(Column: TColumn); override;
  end;

  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Query1: TQuery;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Database1: TDatabase;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private 宣言 }
    plDBGrid1 : TplDBGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  plChgCompo,
  Themes;

{$R *.DFM}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
var
  LItemList : string;
begin
  // フォーム作成時にコンポーネントの入れ替え
  plDBGrid1 := TplDBGrid(ChangeComponent(DBGrid1, TplDBGrid));

  // データベースの設定
  Database1.Connected := False;
  Database1.DatabaseName := 'DBDEMOS';
  Database1.TransIsolation := tiDirtyRead;

  Query1.Close;
  DataSource1.DataSet  := Query1;
  plDBGrid1.DataSource := DataSource1;
  Query1.DatabaseName  := Database1.DatabaseName;

  // 更新可能にする
  Query1.RequestLive := True;

  // データベースからデータを取得して表示
  Query1.SQL.Clear;
  LItemList := 'CustNo as BOOL, CustNo, State, Company, Zip';
  Query1.SQL.Add('select ' + LItemList + ' from customer.db');
  Query1.Open;


  // トランザクション開始
  Database1.StartTransaction;

  // チェックボックスを描画する列の幅を設定
  Query1.FieldByName('BOOL').DisplayWidth := 5;

  // 現在の Options プロパティの設定を退避
  plDBGrid1.FSaveOptions := plDBGrid1.Options;

  // 編集禁止のセルに対する処理
  // チェックボックスの描画が 2 列目以降であれば不要
  plDBGrid1.SelectCell(plDBGrid1.FixedCols, 0);

  ActiveControl := plDBGrid1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  // テストなのでコミット (更新) しない
  Database1.Rollback;

  // データベースを閉じる
  Query1.Close;
  Database1.Close;
end;

{ TplDBGrid }

//=============================================================================
//  CellClick メソッド処理
//  チェックボックスを描画しているセルをクリックした時の処理
//  Click メソッドはセルを選択すると発生するので適切とは言えない
//
//  チェックボックスは画像としての描画であって，TCheckBox のインスタンスではない
//  Click 等のイベントが使用できるわけではない
//=============================================================================
procedure TplDBGrid.CellClick(Column: TColumn);
var
  LMousePos : TPoint;
  LGridPos  : TGridCoord;
  LField    : TField;
  LValue    : string;
begin
  inherited;

  LMousePos := HitTest;
  // 座標値をグリッドした行と列の値に変換
  LGridPos := MouseCoord(LMousePos.X, LMousePos.y);

  // MouseDown でアクティブになったレコードが対象
  // それ以外の場所で MouseUp した場合は動作させない
  if (LGridPos.Y - FixedRows) = DataLink.ActiveRecord then begin
    if Columns[LGridPos.X - 1].FieldName = Column.FieldName then begin

      // 実際にはここで論理値型の項目データを編集する
      // 代わりに項目 State のデータを操作

      LField := DataSource.DataSet.FieldByName('State');

      DataSource.DataSet.Edit;
      LValue := LField.AsString;
      if Trim(LValue) = '' then begin
        LField.AsString := '日本国';
      end else begin
        LField.AsString := '';
      end;
      DataSource.DataSet.Post;
    end;
  end;
end;

//=============================================================================
//  SelectCell メソッド処理
//  チェックボックスを描画した列のセルは編集禁止とする
//=============================================================================
function TplDBGrid.SelectCell(ACol, ARow: Integer): Boolean;
var
  LOptions : TDBGridOptions;
begin
  Result := inherited SelectCell(ACol, ARow);

  // 退避しておいた Options プロパティを操作用の変数に代入
  LOptions := FSaveOptions;
  if Columns[ACol - fixedcols].FieldName = 'BOOL' then begin
    System.Exclude(LOptions, dgEditing);
  end;
  Options := LOptions;
end;

//=============================================================================
//  DrawColumnCell メソッドの処理
//  特定の列にテーマ対応チェックボックスの画像を描画する
//
//  uses に Themes が必要
//=============================================================================
procedure TplDBGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
var
  LValue    : string;
  LColor    : TColor;
  LRect     : TRect;
  LBtnTheme : TThemedButton;
  LDetails  : TThemedElementDetails;
begin
  inherited DrawColumnCell(Rect, DataCol, Column, State);

  if (Column.Field.FieldName = 'BOOL') then begin
    // セルの背景をデフォルトの設定で塗り潰す (セルの文字列が消える)
    if (gdSelected in State) then begin
      DrawCellHighlight(Rect, State, Col, Row);
    end else begin
      LColor := Canvas.Brush.Color;
      DrawCellBackground(Rect, LColor, State, Col, Row);
    end;

    // 操作対象の項目のデータを取得
    LValue := DataSource.DataSet.FieldByName('State').AsString;

    // 引数の State の値に応じてチェックボックスの画像を変更
    if Trim(LValue) <> '' then begin
      LBtnTheme := tbCheckBoxCheckedNormal;
      if gdPressed  in State then LBtnTheme := tbCheckBoxCheckedPressed;
      if gdSelected in State then LBtnTheme := tbCheckBoxCheckedHot;
      if gdHotTrack in State then LBtnTheme := tbCheckBoxCheckedHot;
    end else begin
      LBtnTheme := tbCheckBoxUncheckedNormal;
      if gdPressed  in State then LBtnTheme := tbCheckBoxCheckedPressed;
      if gdSelected in State then LBtnTheme := tbCheckBoxUncheckedHot;
      if gdHotTrack in State then LBtnTheme := tbCheckBoxUncheckedHot;
    end;

    // チェックボックスを描画
    LRect := Rect;
    LRect.Right := LRect.Right - 20;
    LDetails := StyleServices.GetElementDetails(LBtnTheme);
    StyleServices.DrawElement(Canvas.Handle, LDetails, LRect, nil);
  end;
end;

end.

    // 引数の State の値に応じてチェックボックスの画像を変更
    if Trim(LValue) <> '' then begin
      LBtnTheme := tbCheckBoxMixedNormal;
      if gdPressed  in State then LBtnTheme := tbCheckBoxMixedPressed;
      if gdSelected in State then LBtnTheme := tbCheckBoxMixedHot;
      if gdHotTrack in State then LBtnTheme := tbCheckBoxMixedHot;
    end else begin
      LBtnTheme := tbCheckBoxUncheckedNormal;
      if gdPressed  in State then LBtnTheme := tbCheckBoxCheckedPressed;
      if gdSelected in State then LBtnTheme := tbCheckBoxUncheckedHot;
      if gdHotTrack in State then LBtnTheme := tbCheckBoxUncheckedHot;
    end;

//=============================================================================
//  CellClick メソッド処理
//  チェックボックスを描画しているセルをクリックした時の処理
//  Click メソッドはセルを選択すると発生するので適切とは言えない
//
//  チェックボックスの矩形領域内でクリックした時だけ動作させるコード例
//=============================================================================
procedure TplDBGrid.CellClick(Column: TColumn);
var
  LMousePos : TPoint;
  LGridPos  : TGridCoord;
  LField    : TField;
  LValue    : string;
  LCellRect : TRect;
  LDetails  : TThemedElementDetails;
  LBtnSize  : TSize;
  LTop      : Integer;
  LLeft     : Integer;
  LRect     : TRect;
begin
  inherited;

  // 座標値をグリッドした行と列の値に変換
  LMousePos := HitTest;
  LGridPos := MouseCoord(LMousePos.X, LMousePos.y);

  // MouseDown でアクティブになったレコードが対象
  // それ以外の場所で MouseUp した場合は動作させない
  if (LGridPos.Y - FixedRows) <> DataLink.ActiveRecord then Exit;
  if SelectedField.FieldName <> Column.FieldName then Exit;


  // 行と列の値からセルの矩形領域 TRect の値を取得
  LCellRect := CellRect(LGridPos.X, LGridPos.Y);

  // チェックボックスの描画サイズを取得
  // 取得結果は LBtnSize (TSize 型) の変数として取得
  LDetails := StyleServices.GetElementDetails(tbCheckBoxUncheckedNormal);
  StyleServices.GetElementSize(Canvas.Handle, LDetails, esStretch, LBtnSize);

 // チェックボックスの上端と左端の値を計算して実際の描画領域を取得
  // 描画の時マージンを設定した場合はその補正が必要
  // デフォルトではセルの上下左右の中央に描画される
  LTop  := ((LCellRect.Top + LCellRect.Bottom) - LBtnSize.Height) div 2;
  LLeft := ((LCellRect.Left + LCellRect.Right) - LBtnSize.Width) div 2;
  SetRect(LRect, LLeft, LTop, LLeft + LBtnSize.Width, LTop + LBtnSize.Height);


  // マウスカーソルの位置が矩形領域内かをチェック
  if LRect.Contains(Point(LMousePos.X, LMousePos.Y)) then begin

    // 実際にはここで論理値型の項目データを編集する
    // 代わりに項目 State のデータを操作
    LField := DataSource.DataSet.FieldByName('State');

    DataSource.DataSet.Edit;
    LValue := LField.AsString;
    if Trim(LValue) = '' then begin
      LField.AsString := '日本国';
    end else begin
      LField.AsString := '';
    end;
    DataSource.DataSet.Post;
  end;
end;

//=============================================================================
//  DrawColumnCell メソッドの処理
//  データセルのグリッド線の色を変更する例
//=============================================================================
procedure TplDBGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
var
  LColor : TColor;
  LRect  : TRect;
begin
  inherited;

  if (DataCol >= 3) and (DataCol <= 5) then begin
    // 背景の色の指定
    case DataCol of
      3: LColor := CalcGradEndColor(clRed,   65);
      4: LColor := CalcGradEndColor(clGreen, 65);
      5 :LColor := CalcGradEndColor(clBlue,  65);
    else
      LColor := Color;
    end;

    // 塗り潰しの矩形領域
    LRect := Rect;
    // 塗り潰しの色 (TBrush.Color で指定する)
    Canvas.Brush.Color := LColor;
    // 描画ルーチンを実行
    DefaultDrawColumnCell(LRect, DataCol, Column, State);
  end;


  // データセルのグリッド線の色を変更
  LRect := Rect;
  if Form1.CheckBox1.Checked then begin
    InflateRect(LRect, 1, 1);
  end;

  Canvas.Brush.Color := clGray;
  Canvas.FrameRect(LRect);
end;

//=============================================================================
//  DrawCell メソッドの処理
//  データセルと固定行と固定列のセルのグリッド線の色を変更する例
//=============================================================================
procedure TplDBGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
  AState: TGridDrawState);
var
  LRect : TRect;
begin
  inherited;

  // データセルと固定行と固定列のセルのグリッド線の色を変更
  LRect := ARect;
  InflateRect(LRect, 1, 1);

  Canvas.Brush.Color := clGray;
  Canvas.FrameRect(LRect);
end;

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TplDBGrid = class(TDBGrid)
  protected
    procedure DrawDataCell(const Rect: TRect; Field: TField;
      State: TGridDrawState); override;
  end;

  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Query1: TQuery;
    Button1: TButton;
    DBGrid1: TDBGrid;
    CheckBox1: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private 宣言 }
    plDBGrid1 : TplDBGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  plChgCompo;

{$R *.DFM}

//=============================================================================
//  フォーム生成時の処理
//  オブジェクト・インスペクタで CheckBox1.Checked := True; にしている
//  (OnCreate ではフォームが不可視状態なので設定不可)
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  // フォーム作成時にコンポーネントの入れ替え
  plDBGrid1 := TplDBGrid(ChangeComponent(DBGrid1, TplDBGrid));

  // 複数のレコードの選択を可能にする
  plDBGrid1.Options := plDBGrid1.Options + [dgRowSelect, dgMultiSelect];

  Query1.Close;
  DataSource1.DataSet  := Query1;
  plDBGrid1.DataSource := DataSource1;

  // データベースからデータを取得して表示
  Query1.DatabaseName := 'DBDEMOS';
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from customer.db');
  Query1.Open;

  ActiveControl := plDBGrid1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Query1.Close;
end;

//=============================================================================
//  複数レコード選択可能・不可の切換
//=============================================================================
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then begin
    plDBGrid1.Options := plDBGrid1.Options + [dgRowSelect, dgMultiSelect];
  end else begin
    plDBGrid1.Options := plDBGrid1.Options - [dgRowSelect, dgMultiSelect];
  end;

  plDBGrid1.Invalidate;
  plDBGrid1.SetFocus;
end;

{ TplDBGrid }

//=============================================================================
//  DrawDataCell メソッド処理
//  選択レコード (TBookMarkList にあるレコード) の背景色を変更
//=============================================================================
procedure TplDBGrid.DrawDataCell(const Rect: TRect; Field: TField;
  State: TGridDrawState);
begin
  inherited;

  if ([dgRowSelect, dgMultiSelect] * Options <> [])
    and (SelectedRows.CurrentRowSelected) then begin
    Canvas.Brush.Color := clWebLightBlue;
    DefaultDrawDataCell(Rect, Field, State);
  end;
end;

end.

//=============================================================================
//  複数レコード選択可能・不可の切換
//=============================================================================
procedure TForm1.CheckBox1Click(Sender: TObject);
var
  LOptions : TDBGridOptions;
begin
  LOptions := plDBGrid1.Options;
  if CheckBox1.Checked then begin
    System.Include(LOptions, dgRowSelect);
    System.Include(LOptions, dgMultiSelect);
  end else begin
    System.Exclude(LOptions, dgRowSelect);
    System.Exclude(LOptions, dgMultiSelect);
  end;
  plDBGrid1.Options := LOptions;

  plDBGrid1.Invalidate;
  plDBGrid1.SetFocus;
end;

//=============================================================================
//  MouseDown メソッドの処理
//  レコードの選択操作
//
//  Options に dgRowSelect, dgMultiSelect があっても複数選択可能にするため
//  それらのメンバの有無をチェック
//  [Ctrl] キーの押下なしで選択可能にしている
//=============================================================================
procedure TplDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
var
  LBookMarkList : TBookmarkList;
begin
  inherited;

  if Button = mbLeft then begin
    if [dgMultiSelect] * Options = [] then begin
      LBookMarkList := SelectedRows;
      LBookMarkList.CurrentRowSelected := not LBookMarkList.CurrentRowSelected;

      // レコードの追加や削除があった場合は Refresh が必要
      LBookMarkList.Refresh;
    end;
  end;
end;

//=============================================================================
//  nKeyDown メソッドの処理
//  スペースキーを押したら選択/非選択を切り換える
//=============================================================================
procedure TplDBGrid.KeyDown(var Key: Word; Shift: TShiftState);
var
  LBookMarkList : TBookmarkList;
begin
  inherited;

  if (Key = VK_SPACE) then begin
    if [dgMultiSelect] * Options = [] then begin
      LBookMarkList := SelectedRows;
      LBookMarkList.CurrentRowSelected := not LBookMarkList.CurrentRowSelected;
    end;
  end;
end;

//=============================================================================
//  DrawDataCell メソッド処理
//  選択レコード (TBookMarkList にあるレコード) の背景色を変更
//=============================================================================
procedure TplDBGrid.DrawDataCell(const Rect: TRect; Field: TField;
  State: TGridDrawState);
begin
  inherited;

  if (SelectedRows.CurrentRowSelected) then begin
    Canvas.Brush.Color := clWebTan;
    DefaultDrawDataCell(Rect, Field, State);
  end;
end;

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TplDBGrid = class(TDBGrid)
  protected
    procedure DrawDataCell(const Rect: TRect; Field: TField;
      State: TGridDrawState); override;
  end;

  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Query1: TQuery;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private 宣言 }
    plDBGrid1 : TplDBGrid;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  plChgCompo;

{$R *.DFM}

//=============================================================================
//  フォーム生成時の処理
//  オブジェクト・インスペクタで CheckBox1.Checked := True; にしている
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  // フォーム作成時にコンポーネントの入れ替え
  plDBGrid1 := TplDBGrid(ChangeComponent(DBGrid1, TplDBGrid));

  // 複数のレコードの選択を可能にする
  plDBGrid1.Options := plDBGrid1.Options + [dgRowSelect, dgMultiSelect];

  Query1.Close;
  DataSource1.DataSet  := Query1;
  plDBGrid1.DataSource := DataSource1;

  // データベースからデータを取得して表示
  Query1.DatabaseName := 'DBDEMOS';
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from customer.db');
  Query1.Open;

  ActiveControl := plDBGrid1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Query1.Close;
end;

//=============================================================================
//  全てのレコードを選択
//
//  アクティブレコードの移動を行うので TDBGrid の表示もスクロールする
//  TDBGrid の先頭行のレコード番号とアクティブレコードの位置を退避しておく
//  処理後に元の表示状態に戻す
//  TDBGrid の表示更新を停止し，処理後に解除する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LDataset      : TDataSet;
  LRowCount     : Integer;
  Ltd-dateRecNo  : Integer;
  LCurrentRowNo : Integer;
begin
  //TDBGridに表示しているデータセット取得
  LDataset := DBGrid1.DataSource.Dataset;

  // DBGridのスクロール状態を元に戻すための変数設定
  LCurrentRowNo := TplDBGrid(DBGrid1).Row - plDBGrid1.FixedRows;
  Ltd-dateRecNo  := LDataset.RecNo - LCurrentRowNo;

  // 表示更新を止める
  LDataset.DisableControls;


  // データセットのレコードを順番に操作
  LDataset.First;
  while (LDataset.Eof = False) do begin
    // カレント行レコードを選択 (ブックマークリストに追加)
    plDBGrid1.SelectedRows.CurrentRowSelected := True;
    LDataset.Next;
  end;


  // DBGridのスクロール状態を元に戻すための処理
  LRowCount      := plDBGrid1.VisibleRowCount;
  LDataset.RecNo := Ltd-dateRecNo;
  LDataset.MoveBy(LRowCount);

  while LDataset.BOF = False do begin
    if LDataset.RecNo = Ltd-dateRecNo then begin
      Break;
    end else begin
      LDataset.Prior;
    end;
  end;
  LDataset.MoveBy(LCurrentRowNo);

  // 表示更新再開
  LDataset.EnableControls;

  plDBGrid1.SetFocus;
end;

//=============================================================================
//  全ての選択を解除
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
begin
  plDBGrid1.SelectedRows.Clear;
  plDBGrid1.SetFocus;
end;

{ TplDBGrid }

//=============================================================================
//  DrawDataCell メソッド処理
//  選択レコード (TBookMarkList にあるレコード) の背景色を変更
//=============================================================================
procedure TplDBGrid.DrawDataCell(const Rect: TRect; Field: TField;
  State: TGridDrawState);
begin
  inherited;

  if ([dgRowSelect, dgMultiSelect] * Options <> [])
    and (SelectedRows.CurrentRowSelected) then begin
    Canvas.Brush.Color := clWebLightBlue;
    DefaultDrawDataCell(Rect, Field, State);
  end;
end;

end.

  // TFloatField 型のデータの表示書式を設定してみる 
  TFloatField(Query1.FieldByName('CustNo')).DisplayFormat := 'No - 000000';

//=============================================================================
//  アクティブなレコードのデータを取得する例
//  TDataset.Fields[ ].AsString で取得する例
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LDataset   : TDataSet;
  LFieldName : string;
  LFieldIdx  : Integer;
  LText      : string;
begin
  // TDBGridに表示しているデータセット取得
  LDataset := DBGrid1.DataSource.Dataset;

  LText := '';
  // 項目 (フィールド) 数だけループ
  for LFieldIdx := 0 to LDataset.FieldCount - 1 do begin
    // 特定の項目のデータだけを文字列として取得して表示
    LFieldName := LDataset.Fields[LFieldIdx].FieldName;
    if (LFieldName = 'CustNo') or (LFieldName = 'Company') then begin
      LText := LText + sLineBreak + LDataset.Fields[LFieldIdx].AsString;
    end;
  end;

  MessageBox(Handle, PChar(LText), 'データ取得', MB_ICONINFORMATION);

  plDBGrid1.SetFocus;
end;

//=============================================================================
//  アクティブなレコードのデータを取得
//  TDataSet.Fields[ ].DisplayText の値を取得する例
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LDataset   : TDataSet;
  LFieldName : string;
  LFieldIdx  : Integer;
  LText      : string;
begin
  //TDBGridに表示しているデータセット取得
  LDataset := DBGrid1.DataSource.Dataset;

  LText := '';
  // 項目 (フィールド) 数だけループ
  for LFieldIdx := 0 to LDataset.FieldCount - 1 do begin
    // 特定の項目のデータだけを文字列として取得して表示
    LFieldName := LDataset.Fields[LFieldIdx].FieldName;
    if (LFieldName = 'CustNo') or (LFieldName = 'Company') then begin
      LText := LText + sLineBreak + LDataset.Fields[LFieldIdx].DisplayText;
    end;
  end;

  MessageBox(Handle, PChar(LText), 'データ取得', MB_ICONINFORMATION);

  plDBGrid1.SetFocus;
end;

//=============================================================================
//  選択した複数のレコードのデータを取得する例
//  CSV (カンマ区切りのテキスト) テータとして取得
//
//  アクティブレコードの移動を行うので TDBGrid の表示もスクロールする
//  TDBGrid の先頭行のレコード番号とアクティブレコードの位置を退避しておく
//  処理後に元の表示状態に戻す
//  TDBGrid の表示更新を停止し，処理後に解除する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LStrList      : TStringList;
  LValueList    : TStringList;
  LRowCount     : Integer;
  LRN           : Integer;
  Ltd-dateRecNo  : Integer;
  LCurrentRowNo : Integer;
  LDataset      : TDataSet;
  LBkMarkIdx    : integer;
  LFieldIdx     : Integer;
begin
  // TDBGridに表示しているデータセット取得
  LDataset := DBGrid1.DataSource.Dataset;

  // TDBGridのスクロール状態を元に戻すための変数設定
  LCurrentRowNo := TplDBGrid(DBGrid1).Row - plDBGrid1.FixedRows;
  Ltd-dateRecNo  := LDataset.RecNo - LCurrentRowNo;

  // 表示更新を止める
  LDataset.DisableControls;


  LStrList := TStringList.Create;
  LValueList := TStringList.Create;
  try
    LValueList.DelimitedText := ',';

    // 選択レコード分処理を行う
    for LBkMarkIdx := 0 to plDBGrid1.SelectedRows.Count - 1 do begin
      // ブックマーク位置のレコードに移動
      LDataset.BookMark := plDBGrid1.SelectedRows[LBkMarkIdx];


      // データ取得の例
      // データをデリミタ文字で区切ってリストに追加
      LValueList.Clear;
      for LFieldIdx := 0 to LDataset.FieldCount - 1 do begin
        LValueList.Add(LDataset.Fields[LFieldIdx].AsString);
      end;
      LStrList.Add(LValueList.DelimitedText);
    end;

    // CSV ファイルとして保存
    LStrList.SaveToFile('Data.csv');
  finally
    FreeAndNil(LStrList);
    FreeAndNil(LValueList);
  end;


  // TDBGridのスクロール状態を元に戻すための処理
  LRowCount      := plDBGrid1.VisibleRowCount;
  LDataset.RecNo := Ltd-dateRecNo;
  LDataset.MoveBy(LRowCount);

  while LDataset.BOF = False do begin
    if LDataset.RecNo = Ltd-dateRecNo then begin
      Break;
    end else begin
      LDataset.Prior;
    end;
  end;
  LDataset.MoveBy(LCurrentRowNo);

  // 表示更新再開
  LDataset.EnableControls;

  plDBGrid1.SetFocus;
end;