掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Delphi FMX StringGrid 枠線 (ID:151866)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
【追記】 解決したいことを箇条書きに ・FMXのTStringGridの枠線をVCLのTStringGridのようにする →おそらく各StringColumのスクロールバーの部分で各セルの隙間が出来ている 実際のコードはこれです procedure TFM.grdd1DrawColumnCell(Sender: TObject; const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF; const Row: Integer; const Value: TValue; const State: TGridDrawStates); var drawRect: TRectF; begin drawRect.Top := Bounds.Top-3; drawRect.Left := Bounds.Left; drawRect.Bottom := Bounds.Bottom+3; drawRect.Right := Bounds.Right+4; grdData.Canvas.Stroke.Kind := TBrushKind.Solid; grdData.Canvas.Stroke.Color := TAlphaColors.Black; grdData.Canvas.Stroke.Thickness := 1; grdData.Canvas.DrawRect(drawRect, 0, 0, [], 1); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.