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

名前

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

本文 procedure TForm6.Grid2DrawColumnBackground(Sender: TObject; const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF; const Row: Integer; const Value: TValue; const State: TGridDrawStates); var idx : Byte; bRect : TRectF; bBr : TStrokeBrush; begin idx := Grid1.ColumnIndex; bRect := TRectF.Create( 0, 0, Grid1.Columns[ idx ].Width - 1, Grid1.Columns[ idx ].Height - 1 ); bBr := TStrokeBrush.Create( TBrushKind.Solid, TAlphaColors.Yellowgreen ); bRect.Left := Bounds.Left; bRect.Right := Bounds.Right; Canvas.BeginScene(); Canvas.DrawRect( bRect, 0, 0, ALLCORNERS, 1, bBr ); Canvas.EndScene(); end; かな？