TStringGridで特定の列のカラム数を変えるには (ID:36758)

名前

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

本文 例えば、こんな感じでしょうか？ procedure TForm1.FormCreate(Sender: TObject); begin SG1.DefaultColWidth := 40; SG1.DefaultRowHeight := 20; SG1.ColCount := 4; SG1.RowCount := 5; SG1.FixedCols := 0; SG1.FixedRows := 1; SG1.DefaultDrawing := False; // SG1.Rows[0][0] := '時刻'; SG1.Rows[0][1] := '温度'; SG1.Rows[0][2] := '流量'; SG1.Rows[0][3] := '判定'; SG1.Rows[1][0] := '運転開始'; SG1.Rows[1][2] := '通常状態'; SG1.Rows[2][0] := '18:37'; SG1.Rows[2][1] := '135℃'; SG1.Rows[2][2] := '21t'; SG1.Rows[2][3] := '0.1'; SG1.Rows[3][0] := '運転中'; SG1.Rows[3][2] := '臨界状態'; SG1.Rows[4][0] := '20:55'; SG1.Rows[4][1] := '365℃'; SG1.Rows[4][2] := '26t'; SG1.Rows[4][3] := '1.9'; end; procedure TForm1.SG1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var uRect, rRect: TRect; begin uRect := Rect; // if Odd(ARow) then begin if not Odd(ACol) then begin rRect := SG1.CellRect(ACol+1,ARow); Types.UnionRect(uRect,Rect,rRect); SG1.Canvas.FillRect(uRect); end; end; // SG1.Canvas.TextOut(uRect.Left+1,uRect.Top+1,SG1.Cells[ACol,ARow]); end;