掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TStringGridの固定行のみDefaultDrawingをFalseにした時の選択セルの描画について (ID:23728)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すいません、要点のみコードを抽出したのですが、コンパイルが通らない状態になってしまいました。申し訳ありません。 procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var Text: string; begin // 固定セルのみ if gdFixed in State then begin Text := StringGrid1.Cells[ACol, ARow]; 結合対象セルの描画Rectを計算 // Rect := StringGrid1.Canvas.Brush.Color := StringGrid1.FixedColor; StringGrid1.Canvas.Font.Color := clWhite StringGrid1.Canvas.FillRect(Rect); DrawEdge(StringGrid1.Canvas.Handle, Rect, BDR_RAISEDINNER, BF_RECT); // 文字列描画 DrawText(StringGrid1.Canvas.Handle, PChar(Text), -1, Rect, DT_SINGLELINE or DT_CENTER or DT_VCENTER); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.