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

名前

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

本文 次の様なやり方ではどうでしょう？ TGridコンポーネント上にTRectangleコンポーネントを乗っける方法です。 「構造」 Form1 ┗Grid1 ┣ImageColumn1 ┣ImageColumn2 ┣ImageColumn3 ┣ImageColumn4 ┣ImageColumn5 ┗Rectangle1 「FMXコード」 unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.Rtti, FMX.Grid, FMX.Layouts, FMX.Objects, System.UIConsts; type TForm1 = class(TForm) Grid1: TGrid; ImageColumn1: TImageColumn; ImageColumn2: TImageColumn; ImageColumn3: TImageColumn; ImageColumn4: TImageColumn; ImageColumn5: TImageColumn; Rectangle1: TRectangle; procedure FormCreate(Sender: TObject); procedure Grid1SelectCell(Sender: TObject; const ACol, ARow: Integer; var CanSelect: Boolean); procedure Grid1ViewportPositionChange(Sender: TObject; const OldViewportPosition, NewViewportPosition: TPointF; const ContentSizeChanged: Boolean); private { private 宣言 } SelectCol : Integer; // 選択中の列 SelectRow : Integer; // 選択中の行 public { public 宣言 } end; var Form1: TForm1; implementation {$R *.fmx} // 最初の処理 procedure TForm1.FormCreate(Sender: TObject); begin // 選択中変数を初期化 SelectCol := -1; SelectRow := -1; // 枠を初期化 ( ここはオブジェクトインスペクタで設定しても良い ) Rectangle1.Fill.Kind := TBrushKind.None; // 塗り潰し無し Rectangle1.Stroke.Color := claYellowGreen; // 枠の色 Rectangle1.Stroke.Thickness := 3; // 枠の太さ Rectangle1.HitTest := FALSE; // クリックを透過させる Rectangle1.Visible := FALSE; // 最初は表示OFF end; // セルを選択した時にする描画 procedure TForm1.Grid1SelectCell(Sender: TObject; const ACol, ARow: Integer; var CanSelect: Boolean); begin // セル番号を保存 SelectCol := ACol; SelectRow := ARow; // 枠を描画 Rectangle1.Position.X := Grid1.ColumnByIndex(ACol).Position.X; Rectangle1.Position.Y := Grid1.RowHeight * ARow; Rectangle1.Width := Grid1.Columns[ACol].Width; Rectangle1.Height := Grid1.RowHeight; Rectangle1.Visible := TRUE; end; // 列の幅を変更した時に実行 procedure TForm1.Grid1ViewportPositionChange(Sender: TObject; const OldViewportPosition, NewViewportPosition: TPointF; const ContentSizeChanged: Boolean); var CanSelect : Boolean; begin // 選択中？ if SelectCol > -1 then begin // 描画し直す Grid1SelectCell(Grid1, SelectCol, SelectRow, CanSelect); end; end; end. 「動作確認」 Delphi XE8 TRectangle(枠)がTGridの子なので、上下左右にスクロールさせてもちゃんと付いてきます。 列の幅を変更しても枠の大きさが変わります。