掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StringGridのFontや大きさを変更するには？ (ID:42718)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
参考までに・・・ procedure TForm1.StringGrid1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); var i,j :Integer; begin for i := 0 to StringGrid1.ColumnCount-1 do begin for j := 0 to StringGrid1.RowCount-1 do begin if Assigned(TTextCell(StringGrid1.Columns[i].CellControlByRow(j))) then begin with TTextCell(StringGrid1.Columns[i].CellControlByRow(j)) do begin if (i mod 2 = 0) and (j mod 2 = 0) then begin TextAlign := TTextAlign.taCenter;//アライメント Font.Size := 16; //FontFill.Color := claBlueViolet; {色} //Font.Family := 'Times New Roman';{フォント} //Font.Style := [ TFontStyle.fsBold ];{スタイル} end else begin TextAlign := TTextAlign.taLeading; Font.Size := 11; end; end; end; end; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.