Colouring different parts of a string, differently within a listbox (Delphi) -

इस सवाल का पहले से ही एक उत्तर है: < / P>

• 1 उत्तर

मेरे पास सूचीबॉक्स है I एक घटना के बारे में जानकारी जोड़ रहा है और यह कि घटना सक्रिय, पूर्ण या निष्क्रिय है या नहीं। प्रत्येक ईवेंट सूचीबद्घ के अलग-अलग पंक्ति पर होगा और मैं 'गतिविधि लेबल' को रंग कोडित होना चाहता हूं (जैसे सक्रिय के लिए हरे, पूर्ण करने के लिए नीले रंग आदि) लेकिन काले रंग में बाकी पाठ क्या किसी को पता है कि यह कैसे करना है?

असल में आपको TListBox सेट करना होगा। शैली को lbOwnerDrawFixed। एक इव्लेंट TListBox.DrawItem बनाएँ। इस घटना में आप ऐसा कुछ कर सकते हैं:

  प्रक्रिया TForm1.ListBox1DrawItem (नियंत्रण: TWINControl; सूचकांक: पूर्णांक; रीट: ट्रक्ट; राज्य: टोनरड्रास्टेट); के साथ शुरू (TListBox के रूप में नियंत्रण) .कनवास FillRect (रीक्ट) शुरू करते हैं; // यहां आप अपना टेक्स्ट आउटपुट अपनी पसन्द फॉन्ट में बदल सकते हैं। रंग: = clRed; टेक्स्टऑट (रीक्ट। लेफ्ट, रीकटॉप।, (टीएलआईएसबीओक्स के रूप में नियंत्रण)। आइम्स [इंडेक्स]); समाप्त; समाप्त;