unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ZColorStringGrid, StdCtrls, ExtCtrls, Grids;

type
  TForm1 = class(TForm)
    ZColorStringGrid1: TZColorStringGrid;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ZColorStringGrid1BeforeTextDrawCell(Sender: TObject; ACol,
      ARow: Integer; Rect: TRect; State: TGridDrawState);
    procedure ZColorStringGrid1BeforeTextDrawMergeCell(Sender: TObject; ACol,
      ARow: Integer; Rect: TRect; State: TGridDrawState;
      var CellCanvas: TCanvas);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses GraphUtil;

{$R *.dfm}

//=============================================================================
//  各種設定
//  多くは設計時に，オブジェクト・インスペクタで設定できるが，コードをコピペし
//  利用可能とするため，ここに記述
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
var
  AStyle    : TCellStyle;
  AFileName : String;
  SL        : TStringList;
  i         : Integer;
  iRow      : Integer;
begin
  //グラデーションの色設定
  ZColorStringGrid1.GradientStartColor := clWhite;
  ZColorStringGrid1.GradientEndColor   := $00E8E8E8;

  //選択セルの背景色とセル枠線
  ZColorStringGrid1.SelectedColors.BGColor := $00E9E9DA;
  ZColorStringGrid1.LineDesign.LineColor   := clSilver;

  //固定列と固定行数を設定して，その文字列のアライメントを設定
  ZColorStringGrid1.FixedCols := 1;
  ZColorStringGrid1.FixedRows := 2;
  ZColorStringGrid1.DefaultFixedCellStyle.VerticalAlignment   := vaCenter;
  ZColorStringGrid1.DefaultFixedCellStyle.HorizontalAlignment := taCenter;

  ZColorStringGrid1.Options := ZColorStringGrid1.Options + [goEditing];
  ZColorStringGrid1.Options := ZColorStringGrid1.Options + [goThumbTracking];

  //固定行と固定列のセル結合
  ZColorStringGrid1.MergeCells.AddRectXY(0,0,0,1);
  ZColorStringGrid1.MergeCells.AddRectXY(1,0,1,1);
  ZColorStringGrid1.MergeCells.AddRectXY(2,0,3,0);
  ZColorStringGrid1.MergeCells.AddRectXY(4,0,4,1);

  //第1列名(列番号は0)はデータを表示しないので狭い幅に
  ZColorStringGrid1.ColWidths[0] := 20;

  //表示データをファイルから読み込む
  AFileName := ExtractFilePath(Application.ExeName) + 'ATest.txt';
  SL := TStringList.Create;
  try
    SL.LoadFromFile(AFileName);
    //列数と行数設定
    ZColorStringGrid1.ColCount := 5;
    ZColorStringGrid1.RowCount := SL.Count + ZColorStringGrid1.FixedRows;

    for i := 0 to SL.Count - 1 do begin
      iRow := i + ZColorStringGrid1.FixedRows;
      ZColorStringGrid1.Rows[iRow].CommaText := ',' + SL[i];
    end;
  finally
    FreeAndNil(SL);
  end;

  //固定行のテキスト
  ZColorStringGrid1.Cells[1, 0] := '番号';
  ZColorStringGrid1.Cells[2, 0] := '食品';
  ZColorStringGrid1.Cells[2, 1] := '分類';
  ZColorStringGrid1.Cells[3, 1] := '食品名';
  ZColorStringGrid1.Cells[4, 0] := 'キロカロリー';

  //セルのスタイル各種設定
  AStyle := ZColorStringGrid1.DefaultCellStyle;
  AStyle.VerticalAlignment   := vaCenter;
  AStyle.HorizontalAlignment := taLeftJustify;
  AStyle.Font.Color          := clBlack;
  AStyle.Font.Size           := 9;

  ZColorStringGrid1.CellStyleCol[1, False] := AStyle;
  ZColorStringGrid1.CellStyleCol[2, False] := AStyle;
  ZColorStringGrid1.CellStyleCol[3, False] := AStyle;

  AStyle.HorizontalAlignment := taRightJustify;
  ZColorStringGrid1.CellStyleCol[4, False] := AStyle;

  ZColorStringGrid1.SelectedColors.FontColor := clBlack;
end;

//=============================================================================
//  指定セルを結合する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  ZColorStringGrid1.MergeCells.AddRectXY(2,5,3,8);
  ZColorStringGrid1.Invalidate;
end;

//=============================================================================
//  結合したセルの結合を解除する
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  MergCellNo : Integer;
begin
  //結合セルのインデックスを取得
  MergCellNo := ZColorStringGrid1.MergeCells.InMergeRange(2, 5);
  //そのインデックスのセル結合を解除
  ZColorStringGrid1.MergeCells.DeleteItem(MergCellNo);
  ZColorStringGrid1.Invalidate;
end;

//=============================================================================
//  セルの文字列描画前に発生するイベント
//  TZColorStringGridコンポはDrawingStyleはgdsClassicしか有効でないので
//  固定行と列は体裁のため，グラデーションで塗りつぶす
//
//  usesにGraphUtilが必要
//=============================================================================
procedure TForm1.ZColorStringGrid1BeforeTextDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if gdFixed in State then begin
    //Rectの矩形領域内をグラデーションで塗り潰す
    GradientFillCanvas(ZColorStringGrid1.Canvas,
                       ZColorStringGrid1.GradientStartColor,
                       ZColorStringGrid1.GradientEndColor,
                       Rect,
                       gdVertical);
  end;
end;

//=============================================================================
//  結合セルの文字列描画前に発生するイベント
//  TZColorStringGridコンポはDrawingStyleはgdsClassicしか有効でないので
//  結合した固定行と列も体裁のため，グラデーションで塗りつぶす
//  このイベント内で描画するCanvasは，結合セル専用のCellCanvas
//
//  usesにGraphUtilが必要
//=============================================================================
procedure TForm1.ZColorStringGrid1BeforeTextDrawMergeCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState; var CellCanvas: TCanvas);
begin
  if gdFixed in State then begin
    //Rectの矩形領域内をグラデーションで塗り潰す
    GradientFillCanvas(CellCanvas,
                       ZColorStringGrid1.GradientStartColor,
                       ZColorStringGrid1.GradientEndColor,
                       Rect,
                       gdVertical);
  end;
end;

end.

procedure TForm1.FormShow(Sender: TObject);
begin
  //デフォルトのフォントサイズを大きくしてみる
  ZCGrid1.DefaultCellStyle.Font.Size := 25;

  //セルの高さをフォントサイズに合わせて自動調整
  ZCGrid1.SizingHeight := True;

  //これ以降は各セルへのデータのセット 

procedure TForm1.FormShow(Sender: TObject);
begin
  ZCGrid1.UseCellSizingWidth := False;
  ZCGrid1.SizingWidth        := True;

  //これ以降は各セルへのデータのセット 

procedure TForm1.FormShow(Sender: TObject);
begin
  ZCGrid1.UseCellWordWrap := False;
  ZCGrid1.WordWrap        := True;

  //これ以降は各セルへのデータのセット 
end;

//=============================================================================
//  セルのプロパティを変更してみる
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  AStyle : TCellStyle;
begin
  //デフォルトのセルスタイルを取得して，一部変更
  AStyle                     := ZCGrid1.DefaultCellStyle;
  AStyle.BGColor             := $00DDEDDA;
  AStyle.Font.Color          := clPurple;
  AStyle.HorizontalAlignment := taCenter;
  AStyle.Font.Style          := AStyle.Font.Style + [fsBold];

  //設定したスタイルを列1に適用.固定セルには適用しない
  ZCGrid1.CellStyleCol[1, False] := AStyle;

  //セル単位の設定
  //MergeCellsメソッドでセルを結合
  //結合セルの場合は,左上のセルで指定する
  ZCGrid1.MergeCells.AddRectXY(3, 3, 4, 4);
  ZCGrid1.CellStyle[3, 3].BGColor := clSilver;
end;

//=============================================================================
//  セルのプロパティを変更してみる  セル内の文字列の回転の例
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  AStyle : TCellStyle;
begin
  //デフォルトのセルスタイルを取得して，一部変更
  AStyle                     := ZCGrid1.DefaultCellStyle;
  AStyle.Font.Name           := 'Tahoma';
  AStyle.Font.Size           := 12;
  AStyle.Rotate              := 90;
  AStyle.Rotate              := 90;
  AStyle.HorizontalAlignment := taCenter;

  //設定したスタイルを列2に適用.固定セルにも適用する
  ZCGrid1.CellStyleCol[2, True] := AStyle;

  //第2列名の幅を変更してみる
  ZCGrid1.ColWidths[2] := 40;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  ZCGrid1.SelectedColors.BGColor       := $00D9FFD9;
  ZCGrid1.SelectedColors.ColoredSelect := True;
  ZCGrid1.SelectedColors.FontColor     := clBlack;
  ZCGrid1.SelectedColors.UseFocusRect  := True;

  //これ以降はセルへのデータのセット
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  ZCGrid1.LineDesign.LineColor := $00AED7D7;

  //これ以降は各セルへのデータのセット
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  //セルを結合して，OptionsプロパティのメンバにgoRowSelectを追加
  ZCGrid1.MergeCells.AddRectXY(3, 2, 4, 3);
  ZCGrid1.Options := ZCGrid1.Options + [goRowSelect];

  //これ以降は他のセルへのデータのセット

procedure TForm1.ZCGrid1BeforeTextDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if gdFixed in State then begin
    //Rectの矩形領域内をグラデーションで塗り潰す
    //usesにGraphUtilが必要
    GradientFillCanvas(ZCGrid1.Canvas,
                       ZCGrid1.GradientStartColor,
                       ZCGrid1.GradientEndColor,
                       Rect,
                       gdVertical);
  end;
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, ZColorStringGrid, StdCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
    ZCGrid1 : TZColorStringGrid;
    procedure ZColorStringGrid1BeforeTextDrawCell(Sender: TObject; ACol,
      ARow: Integer; Rect: TRect; State: TGridDrawState);
    procedure ZColorStringGrid1BeforeTextDrawMergeCell(Sender: TObject; ACol,
      ARow: Integer; Rect: TRect; State: TGridDrawState;
      var CellCanvas: TCanvas);
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses  plChgCompo, GraphUtil;

{$R *.dfm}

//=============================================================================
//  フォーム作成時にコンポーネントの入れ換え
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  //フォーム作成時にコンポーネントの機能を入れ替え
  ZCGrid1 := TZColorStringGrid(ChangeComponent(StringGrid1, TZColorStringGrid));

  //標準のStringGridにないイベントは再定義が必要
  ZCGrid1.OnBeforeTextDrawCell      := ZColorStringGrid1BeforeTextDrawCell;
  ZCGrid1.OnBeforeTextDrawMergeCell := ZColorStringGrid1BeforeTextDrawMergeCell;
end;

//=============================================================================
//  ZColorStringGridのテスト用初期設定とデータのセット
//=============================================================================
procedure TForm1.FormShow(Sender: TObject);
begin
  ZCGrid1.UseCellSizingWidth := False;
  ZCGrid1.SizingWidth        := True;

  //テスト用の値をセット(タイトル行)
  ZCGrid1.Cells[1,0] := '調査番号';
  ZCGrid1.Cells[2,0] := '都道府県';
  ZCGrid1.Cells[3,0] := '予想値';
  ZCGrid1.Cells[4,0] := '結果値';

  //テスト用の値をセット
  ZCGrid1.Cells[1,1] := 'A-100';
  ZCGrid1.Cells[1,2] := 'A-200';
  ZCGrid1.Cells[1,3] := 'A-300';
  ZCGrid1.Cells[1,4] := 'A-400';

  ZCGrid1.Cells[2,1] := '東京都' + sLineBreak + '千代田区秋葉原５丁目';
  ZCGrid1.Cells[2,2] := '大阪府';
  ZCGrid1.Cells[2,3] := '京都府';
  ZCGrid1.Cells[2,4] := '長野県';

  ZCGrid1.Cells[3,1] := '5000';
  ZCGrid1.Cells[3,2] := '8000';
  ZCGrid1.Cells[3,3] := '3000';
  ZCGrid1.Cells[3,4] := '2000';

  ZCGrid1.Cells[4,1] := '5500';
  ZCGrid1.Cells[4,2] := '8300';
  ZCGrid1.Cells[4,3] := '3100';
  ZCGrid1.Cells[4,4] := '3000';

  ZCGrid1.ColWidths[0] := 20;
end;

//=============================================================================
//  セルの文字列描画前に発生するイベント
//=============================================================================
procedure TForm1.ZColorStringGrid1BeforeTextDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
//
end;

//=============================================================================
//  結合セルの文字列描画前に発生するイベント
//=============================================================================
procedure TForm1.ZColorStringGrid1BeforeTextDrawMergeCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState; var CellCanvas: TCanvas);
begin
//
end;

end.