掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
STringGridで色分けを行うには？ (ID:5087)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
グローバル変数 cc の使用をやめて procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin case (ACol+ARow) mod 2 of 0: StringGrid1.canvas.font.color := clRed; 1: StringGrid1.canvas.font.color := clBlue; end; StringGrid1.Canvas.TextRect(Rect,Rect.Left+2,Rect.Top+2, StringGrid1.Cells[ACol,ARow]); end; procedure TForm1.Button1Click(Sender: TObject); var ic,ir :Integer; begin for ic:= 0 to 10 do begin for ir:= 0 to 20 do begin if (ic+ir) mod 2 =0 then StringGrid1.Cells[ic,ir]:=InttoStr(ic*5+ir); end; end; end; procedure TForm1.Button2Click(Sender: TObject); var ic,ir :Integer; begin for ic:= 0 to 10 do begin for ir:= 0 to 20 do begin if (ic+ir) mod 2 =1 then StringGrid1.Cells[ic,ir]:=InttoStr(ic*5+ir); end; end; end; とすればよいのでは。。。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.