Temel Delphi TVirtualTreeView düğümü simgesinin üst kısmındaki bindirme simgesi en iyi nasıl oluşturulur

Question

TVirtualStringTree ürününü kullanmak için standart TTreeView'den bir ağaç görünümü dönüştürüyorum. Son görevim, bilinen düğüm simgesinin üstünde bir 'geçme/başarısızlık' durum göstergesini çizmem gereken bir özellik uygulamaktır. TTreeView ile kullandığım: TVirtualStringTree ile

İyileşmeliyim ya daha iyi bir yol bulmak ya ümit: aşağıda gösterildiği gibi

var 
    R : TRect; 
    begin 
    R := Node.DisplayRect(True); 
    StatusIconList.Draw(TreeView1.Canvas, 
         R.Left - StatusIconList.Width - 14, 
         R.Top, 
         3 {MyOverlayImageIndex}); 

sonuç temel simgesinin üzerine kırmızı haç ise gerekli yer paylaşımlı simge konumu için bilinen konumlar. Ben yapıyorum:

procedure DrawFailed; 
    var 
    R : TRect; 
    begin 
     R := CellRect; 
     StatusIconList.Draw(TargetCanvas, 
          R.Left - StatusIconList.Width + 49 + Sender.GetNodeLevel(Node) * 16, 
          R.Top, 
          siiFailed); 
    end; 

Bu en iyi çözüm mü? Temel ikonun üst/sol köşesini, korkunç düğüm seviyesi çağrısı olmadan almanın daha iyi bir yolu var mı?

Answer 1

Sen OnGetImageIndex olay işleyicisi Kind: TVTImageKind parametreyi olsun. ikOverlay için kontrol edin ve uygun görüntü indeksini döndürün.