मूल डेल्फी टीवीर्टुअल ट्री व्यू नोड आइकन

Question

के शीर्ष पर एक ओवरले आइकन प्रस्तुत करने के लिए सबसे अच्छा तरीका है, मैं टीवी टीचुअल स्ट्रीट्री का उपयोग करने के लिए मानक TTreeView से पेड़ दृश्य को परिवर्तित कर रहा हूं। मेरी अंतिम चुनौती एक ऐसी सुविधा को लागू करना है जहां मुझे ज्ञात नोड आइकन के शीर्ष पर 'पास/असफल' स्थिति सूचक आकर्षित करने की आवश्यकता है। TTreeView के साथ मैं प्रयोग किया है:

TVirtualStringTree के साथ मैं बेहतर पाने के लिए एक बेहतर तरीका खोजने के लिए या तो, या आशा व्यक्त की:

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

परिणाम बुनियादी चिह्न पर लाल क्रॉस के रूप में नीचे दिखाया गया है आवश्यक ओवरले आइकन स्थिति के लिए ज्ञात पदों। मैं कर रहा हूं:

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

क्या यह सबसे अच्छा समाधान है? भयानक नोड स्तर कॉल के बिना मूल आइकन के शीर्ष/बाएं कोने को पाने का कोई बेहतर तरीका है?

Answer 1

आपको अपने OnGetImageIndex ईवेंट हैंडलर में Kind: TVTImageKind पैरामीटर मिलता है। इसे ikOverlay के लिए जांचें और बस उचित छवि अनुक्रमणिका वापस करें।