TVirtualStringTree에서 테마 체크 상자가 잘못 그려졌습니다.

Question

toTeamAware가 활성화되면 VirtualTrees.pas 버전 5.0.0의 체크 박스 처리가 깨졌습니다. csUncheckedNormal 인 노드는 checked + hot으로 그려집니다.

DrawElement를 사용하여 체크되지 않은 테마 체크 박스를 올바르게 그리려면 Details 레코드는 Element = teButton, Part = 3 및 State = 5 여야합니다. 그러나 VirtualTrees.pas는 노드가 csUncheckedNormal로 설정됩니다.

VirtualTrees에서 간접 지정과 여분의 상수가 선언 된 것으로 보입니다. 따라서이 문제를 해결하는 가장 좋은 방법은 확실하지 않습니다. 아이디어가 환영 ...

(화면에 TVirtualStringTree를 가져오고 일부 데이터로 채워지는 최소한의 코드조차도 여기에 게시하는 데 약간 시간이 걸립니다.) 기본 사항 외에, 이것을 재현하려면 TreeOptions에서 toCheckSupport를 활성화해야합니다. .MiscOptions를 설정하고 InitNode 콜백에서 Node.CheckType : = ctTriStateCheckBox를 설정하십시오.)

Answer 1

사실, VirtualTreeView는 델파이 XE2로 이식 할 때 VCL 스타일로 계산되지 않으므로 문제를 해결할 수 있습니다. 그리기 전에 요소 세부 정보를 가져와야합니다. 그렇지 않으면 VirtualTreeView 페인트 확인란의 상태를 시뮬레이션하는 것과 같은 효과가 나타납니다. 다른 순서와 아티팩트를 주목하십시오. 내가 아는

아주 이상한,하지만 난이 일어나고있는 이유를 대답 할 수없는 : 그것은 한 번 사용할 VCL 스타일과 같은 코드의 결과입니다, 두 번째는 사용 가능. TThemeServices.GetElementDetails으로 전화하거나 선택적으로 상태 색인을 계산하여 요소 렌더링이 제대로 작동하도록해야한다고 말할 수 있습니다. 다음 픽스를 사용하려고 시도 할 수 있습니다.

procedure TBaseVirtualTree.PaintCheckImage(Canvas: TCanvas; 
    const ImageInfo: TVTImageInfo; Selected: Boolean); 
var 
    // add a new variable for calculating TThemedButton state from the input 
    // ImageInfo.Index; I hope ImageInfo.Index has the proper state order 
    State: Integer; 
begin 
... 
    case Index of 
    0..8: // radio buttons 
    begin 
     // get the low index of the first radio button state and increment it by 
     // the ImageInfo.Index and get details of the button element 
     State := Ord(TThemedButton(tbRadioButtonUncheckedNormal)) + Index - 1; 
     Details := StyleServices.GetElementDetails(TThemedButton(State)); 
    end; 
    9..20: // check boxes 
    begin 
     // get the low index of the first check box state and increment it by 
     // the ImageInfo.Index and get details of the button element 
     State := Ord(TThemedButton(tbCheckBoxUncheckedNormal)) + Index - 9; 
     Details := StyleServices.GetElementDetails(TThemedButton(State)); 
    end; 
    21..24: // buttons 
    begin 
     // get the low index of the first push button state and increment it by 
     // the ImageInfo.Index and get details of the button element 
     State := Ord(TThemedButton(tbPushButtonNormal)) + Index - 21; 
     Details := StyleServices.GetElementDetails(TThemedButton(State)); 
    end; 
    else 
    Details.Part := 0; 
    Details.State := 0; 
    end; 
... 
end; 

모든 검사 유형에 대해이 테스트를 거쳤습니다.