StringGidのCell内の文字の色を変更したいのですが、うまくいきません。
セルの色は、変更できるのですが、文字の色をどのように変更すればよいか教えていただけませんか?
procedure TForm1.StringGrid1DrawCell(...
begin
if (ACol = 5) and (ARow =5) then begin
StringGrid1.Canvas.Brush.Color := clBlue;
StringGrid1.Canvas.font.Color := clred;
StringGrid1.Canvas.FillRect(Rect);
end;
end;
StringGridで一行だけセルに色を付けるには?
https://www.petitmonte.com/bbs/answers?question_id=1063
のように、DrawText を使うのはいかがですか?
あと、(どうでもよいことですが)、StringGidではなく、StringGridですよ〜
ゆうさんのコードでは、セルの中をclBlueで塗りつぶしたままですね。
igy さんの書いたように、DrawTextなどで書き直します。
igy様、HOta様有難うございました。
何とか無事解決しました。
ツイート | ![]() |