喫茶XRAYトップページ

[スレッド全体]
[9948] Re3:TStringGridのセルの塗り潰し返信　削除
2016/5/16 (月) 21:19:02 Mr.XRAY
> で，やってみました．領域の左端を - 4 にしたのが図の下の図です．
> コードは以下です．

Delphi ML の書き込みの 10 px だと以下の図のような感じですね．
10 px はかなり目立ちます．

[9949] Re4:TStringGridのセルの塗り潰し返信　削除
2016/5/16 (月) 21:20:22 Mr.XRAY
> > で，やってみました．領域の左端を - 4 にしたのが図の下の図です．
> > コードは以下です．
>
> Delphi ML の書き込みの 10 px だと以下の図のような感じですね．
> 10 px はかなり目立ちます．

では昔はどうだったのか．Delphi 6 の場合です．
フォームに TStringGrid を配置して，前に示したイベントだけを実行した結果です．

[9950] Re4:TStringGridのセルの塗り潰し返信　削除
2016/5/16 (月) 22:38:27 igy
▼ Mr.XRAYさん
> Delphi ML の書き込みの 10 px だと以下の図のような感じですね．
> 10 px はかなり目立ちます．

Delphi 10.1 Berlinで試してみました。

私の場合、Delphi XE以前のバージョンもよく使うので、
以下のような感じで調整しています。

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
begin
{$IFDEF CONDITIONALEXPRESSIONS}
  {$IF Declared(CompilerVersion) and (CompilerVersion >= 23.0)}
    Rect.Left := Rect.Left - 4;
  {$IFEND}
{$ENDIF}

  if ACol = 2 then begin
    StringGrid1.Canvas.Brush.Style := bsSolid;
    StringGrid1.Canvas.Brush.Color := RGB(0, 150, 0);
    StringGrid1.Canvas.FillRect(Rect);
  end;
end;

[9952] Re5:TStringGridのセルの塗り潰し返信　削除
2016/5/16 (月) 23:50:49 Mr.XRAY
▼ igyさん，サンクスです．

> Delphi 10.1 Berlinで試してみました。

なるほど．となると，Delphi ML の方の 10 px は左側のマージンが多いと
いう意味の表現ですね．きっと．
福士さんの調査結果の Delphi XE2 以降ということになりそうです．

[▼次のスレッド]
INCM/CMT
Cyclamen v3.82