- くだすれDelphi(超初心者用)その57 [無断転載禁止]©2ch.net
21 ：デフォルトの名無しさん[sage]：2016/10/23(日) 13:40:03.44 ID:MP5NXD0l - 今まで Delphi 7 で作っていましたが、Delphi 10.1 に移行することにしました。
そこで、10.1のListViewの挙動について質問です。
D7では、以下のコードで ListItem の一行の背景全てが綺麗に塗りつぶされていましたが、
10.1では Caption と SubItems[0]、そして SubItems間で 2pixel の白い区切り線のようなものが出来てしまいます。
回避方法をご存知の人は教えて下さい。
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Not Odd(Item.Index) then
begin
with ListView1.Canvas do
begin
Brush.Style := bsSolid;
Brush.Color := clLime;
end;
end;
end;
|
- くだすれDelphi(超初心者用)その57 [無断転載禁止]©2ch.net
23 ：デフォルトの名無しさん[sage]：2016/10/23(日) 15:14:16.61 ID:MP5NXD0l - >>22
GridLines は False です。
試しに True にしても同じように 2pixel の区切り線が出ます。
他の人の環境では出ないのでしょうか?
|
- くだすれDelphi(超初心者用)その57 [無断転載禁止]©2ch.net
24 ：デフォルトの名無しさん[sage]：2016/10/23(日) 15:28:26.85 ID:MP5NXD0l - 参考画像です。
http://fast-uploader.com/file/7032759494826/
|