[delphi-users:4452] TStringGridのDrawCellで左側に謎の空白が出る

[takefumi-o]

皆様こんにちは。
太田です。


TStringGridのDrawCellで妙な現象に悩まされています。

環境は
Delphi 10 Seattle
Windows 7


1セルごとに背景の色を付けたくて、以下の様な処理を書きました。


procedure TfrmMain.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin

if (ARow > 0) then
case ACol of
2:
begin
//背景を塗る
StringGrid1.Canvas.Brush.Style := bsSolid;
StringGrid1.Canvas.Brush.Color := RGB(250, 250, 250);
StringGrid1.Canvas.FillRect(Rect);
end;
end;
end;



色はつくのですが、なぜかセルの左10pxほどが白いままなのです。

-----------------
|白| 指定色 |
-----------------

こんな感じなのです。

DrawingStyleをgdsThemed、gdsGradientに変えても同じです。
カラムを変えても同様です。

他の部分では一切描画していません。


心当たりのある方、教えてください。


太田剛文


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
≪送料無料！≫【抜け毛に気になる方必見】
女性ホルモンにシャンプーでアプローチ！
独自成分で、ぬけの無い美しい髪へ！
スカルプD ボーテ シャンプー≪送料無料！≫
http://ad.freeml.com/cgi-bin/sa.cgi?id=nNsXw
------------------------------------------------------[freeml byGMO]--

[Mr.XRAY]

[delphi-users:4452] TStringGridのDrawCellで左側に謎の空白が出る へのレ
スです．

こんにちは，Mr.XRAY と申します．

>色はつくのですが、なぜかセルの左10pxほどが白いままなのです。
>
>-----------------
>|白| 指定色 |
>-----------------

Delphi 10 Seattle は持っていませんが，Delphi XE, XE7 でテストして
みました．どうやら，XE2 当たりから，描画の仕様が変わっているようです．
福士さんに教わりましたので，以下をご覧ください．

http://mrxray.on.coocan.jp/bbs/DelphiBBS/mrxray_delphifan_coffe.cgi?tree=s9931

--------------------------------------------------------------------
山が好き,花が好き,人が好き Mr.XRAY
http://mrxray.on.coocan.jp/
--------------------------------------------------------------------


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
【温泉】≪１泊２食付５００円！≫箱根・軽井沢・伊豆高原・京都
・勝浦（千葉）・鴨川（千葉）期間限定特別価格【部屋数限り！】
大感謝プラン１：【平日】　　￥５００～
大感謝プラン２：【土・連休】￥１，５００～
http://ad.freeml.com/cgi-bin/sa.cgi?id=nPk10
------------------------------------------------------[freeml byGMO]--

[takefumi-o]

Mr.XRAYさん

いつもありがとうございます！

詳しく調査いただいてありがとうございます。

亀レスですみません。

私も同様にRect.Left - 4することで解決しました。

10pxは目測でした。

テーマで表示にブレが出るのは勘弁してもらいたいものです。

ありがとうございました！

2016年5月16日 18:03 Mr.XRAY <delphi...@freeml.com>: