보고서 스타일에서 listview의 행 높이를 늘리는 방법은 무엇입니까?

Question

목록보기에서 행의 높이에 단지 2px :)를 추가해야합니다 (사용자 정의 그려진 진행 막대가 너무 좁습니다).

두 개의 좋은 답변 Change Listview item height, http://www.delphipages.com/forum/showthread.php?t=49939이 있지만 그럴 수 없습니다.

나는이 이미지 목록과 함께 할 수 있다는 것을 알고 있지만, 이미 16 × 16 이미지 :

이

아무도 도와 줄 수 있나요? 감사하겠습니다. CN_MEASUREITEM 제어 알림 메시지에

Answer 1

에 응답, 다음과 같이

type 
    TListView = class(ComCtrls.TListView) 
    private 
    procedure CNMeasureItem(var Message: TWMMeasureItem); message CN_MEASUREITEM; 
    end; 

    TForm1 = class(TForm) 
    ... 

procedure TListView.CNMeasureItem(var Message: TWMMeasureItem); 
begin 
    inherited; 
    Inc(Message.MeasureItemStruct.itemHeight, 2); 
end; 

참고 : OwnerDraw 속성이 true 인 경우이 메시지는 전송됩니다.

Answer 2

코드를 작성하지 않고 빠르고 간단하게 대체 할 수있는 방법은 TImageList를 추가하고 너비를 1로 설정하고 높이를 줄 높이로 지정하고 목록보기의 SmallImages에 할당하는 것입니다.