StringGidのセル内の文字の色を変更したい

解決


ゆう  2009-09-07 20:13:09  No: 35609  IP: 192.*.*.*

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;

編集 削除
igy  2009-09-07 20:41:00  No: 35610  IP: 192.*.*.*

StringGridで一行だけセルに色を付けるには?
https://www.petitmonte.com/bbs/answers?question_id=1063

のように、DrawText を使うのはいかがですか?

あと、(どうでもよいことですが)、StringGidではなく、StringGridですよ〜

編集 削除
HOta  2009-09-08 07:17:43  No: 35611  IP: 192.*.*.*

ゆうさんのコードでは、セルの中をclBlueで塗りつぶしたままですね。
igy さんの書いたように、DrawTextなどで書き直します。

編集 削除
ゆう  2009-09-08 18:34:12  No: 35612  IP: 192.*.*.*

igy様、HOta様有難うございました。
何とか無事解決しました。

編集 削除