Stringgridのセル内複数行表示の色つけについて (ID：45765)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんにちは
stringgridのdrawcellを使っての描画の質問です。
------------------------------
stringgrid1.cells［0,1］:＝'父'+
                          #13#10+
                          '母';
------------------------------
一行目の父を青色
二行目の母を赤色に描画する場合
  s:=stringgrid1.cells[Acol,Arow];

if((ARow=0) and (ACol=1)) then
    with Canvas do begin
      fillrect(rect);//一度表示を消す
      Brush.Color:=clwhite;
      Font.Color:=clblue;
      DrawTextEx(StringGrid1.Canvas.Handle,
             PChar(S),
             Length(S),
             Rect,
             DT_left,
             nil);
      dt:=DrawTextEx(StringGrid1.Canvas.Handle,
             PChar(S),
             Length(S),
             Rect,
             DT_left,
             nil);
      if(dt>12)and(dt<=24)then begin
        fillrect(rect);
        Font.Color:=clred;
        DrawTextEx(StringGrid1.Canvas.Handle,
             PChar(S),
             Length(S),
             Rect,
             DT_left,
             nil);
       end;
     end;//
-------------------
以上のようなコードでdrawtextの戻り値を利用して見たのですが、表示は赤色になってしまいます。結局、戻り値の値だけで一行目二行目を判定できていません。Rect.topの値を調整するというのは、どのようにするのでしょうか？

←解決時は質問者本人がここをチェックしてください。

戻る