리스트뷰안에 프로그레스 여러개가 나오는거 구현하려고 햇는데 setparent로 넣고
맨 위에 2% 5% 적히게 하려고 하는데 그게 잘 안되네요
Sender.Canvas.TextRect(ir,10,20,'5555dd'); 로 하니 프로그레스에 가려서 나오질 않습니다.
그래서 그냥 그리는 방식으로 프로그레스 구현하려고
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
여기안에
Sender.Canvas.Rectangle(0,0,40,40);
Sender.Canvas.TextRect(ir,10,20,'5555dd');
이렇게 해도 역시 사각형에 가려서 5555dd란 글자가 안나오네요
어떻게 하면 text를 맨 위에 적을수 잇을까요?> 도움좀 주세요 부탁드립니다.
이것을 구현 하려고 합니다. 이미지 첨부 합니다.
TCustomListView(Sender).Canvas.Brush.Style := bsClear;
해보세요.
잘 그려집니다.