TGridのセルに枠を描画したい (ID:151130)

名前

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

本文 もう１つの方法が、スタイルブックを使用する方法があります。 こちらは前の方法とは若干異なる表示になってしまいますが、似た様な事ができます。 Delphi XE6の環境が無く、Delphi XE8での話ですが。 (1) FormにTGridを配置 (2) TGirdを右クリックしてポップアップメニューを表示させ「カスタムスタイルの編集」を選択 ※ 自動的にTStyleBookコンポーネントが追加され、スタイルブック編集画面に移行します。 (3) 下記の位置にRectangle1を追加 grid1style1 ┗background ┗content ┣focus ← (5)で設定 ┃┗rectangle1style ← (4)で設定 ┗selection ← (6)で設定 ※ ツールパレットからTRectangleをfocus項目の配下にドラッグ＆ドロップします。 (4) 追加したrectangle1style項目を選択して、下記のプロパティを設定します Align = Contents Fill.Kind = None Stroke.Color = Yellowgreen Stroke.Thickness = 3 Margins.Bottom = 2 Margins.Left = 2 Margins.Right = 1 Margins.Top = 1 (4) その１つ上のfocus項目を選択して、下記のプロパティを設定します ClipChildren = True Fill.Color = While Stroke.Kind = None (5) selection項目を選択して、下記のプロパティを設定します Fill.Kind = None Stroke.Kind = None