- 博客(0)
- 资源 (7)
- 收藏
- 关注
RSS订阅TransListView,ListView透明
inherited Create(AOwner);
FBgPic := nil;
BorderStyle := bsNone;
BorderWidth := 0;
Enabled := True ;
ShowHint := True;
ViewStyle := vsIcon ;
IconOptions.Arrangement := iaLeft ;
IconOptions.AutoArrange := True ;
IconOptions.WrapText := True ;
OldViewOrigin := Point(0, 0) ;
if not DesignTime(Self) then
begin
OnCustomDrawItem := DrawTransItem;
end;
2019-05-01
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人