डेल्फी में कैनवास में एक बार में विभिन्न फ़ॉन्ट स्वरूपण के साथ टेक्स्ट कैसे आकर्षित करें?

Question

मैं अपने सभी "आयत में आयत" के लिए DrawText का उपयोग कर रहा हूं, हालांकि मैं स्ट्रिंग को खींचने का एक तरीका देखने में असफल रहा हूं, उदाहरण के लिए, बोल्ड या अलग-अलग रंग, या इससे भी बदतर यादृच्छिक रूप से चुने गए शब्दों के लिए अलग-अलग पृष्ठभूमि। शायद कोई भी प्रक्रिया नहीं है जो इसे देख सकती है, जहां तक ​​मैं देख सकता हूं, मैं गलत हो सकता हूं, यह इस प्रश्न का मुख्य बिंदु है। क्या कोई ऐसी प्रक्रियाओं को इंगित कर सकता है जो इस तरह के प्रभावों को प्राप्त करने की कोशिश कर रहे किसी के लिए ब्याज हो सकता है? इसके अतिरिक्त, यदि मैं सही हूं और ऐसा करने का कोई आसान तरीका नहीं है, तो लेने का अनुशंसित तरीका क्या होगा? प्रत्येक शब्द को अलग से खींचना और उसके बाद उन सभी को गोंद लगाने की कोशिश करना एक दुःस्वप्न जैसा लगता है जब आप उन मुद्दों के बारे में सोचना शुरू करते हैं जो उसके सिर के शीर्ष से उत्पन्न हो सकते हैं: आपके पास अलग-अलग फोंट या आकार होने पर एक क्षैतिज रेखा पर उचित टेक्स्ट संरेखण। ..

मुझे डेल्फी xe3 मिला है; अगर कोई मेरे प्रश्न और/या पाठ के वाक्यांश को बेहतर बना सकता है, तो कृपया ऐसा करें।

Answer 1

आप VCL से कुछ मदद मिल, के बाद से TCanvas.TextOut विधि बढ़ जाती है x उत्पादन स्ट्रिंग की चौड़ाई से कलम स्थिति का समन्वय: किसी भी तरह

procedure TForm1.FormPaint(Sender: TObject); 
begin 
    Canvas.MoveTo(20, 100); 

    Canvas.Font.Name := 'Segoe UI'; 
    Canvas.Font.Color := clMaroon; 
    Canvas.Font.Style := []; 
    Canvas.Font.Height := 64; 
    Canvas.TextOut(Canvas.PenPos.X, Canvas.PenPos.Y, 'This '); 

    Canvas.Font.Color := clNavy; 
    Canvas.Font.Style := [fsBold]; 
    Canvas.Font.Height := 64; 
    Canvas.TextOut(Canvas.PenPos.X, Canvas.PenPos.Y, 'is '); 

    Canvas.Font.Name := 'Bookman Old Style'; 
    Canvas.Font.Color := clBlack; 
    Canvas.Font.Style := [fsItalic]; 
    Canvas.Font.Height := 64; 
    Canvas.TextOut(Canvas.PenPos.X, Canvas.PenPos.Y, 'a '); 

    Canvas.Font.Name := 'Courier New'; 
    Canvas.Font.Color := clSilver; 
    Canvas.Font.Style := []; 
    Canvas.Font.Height := 64; 
    Canvas.TextOut(Canvas.PenPos.X, Canvas.PenPos.Y, 'test!'); 
end; 

Screenshot http://privat.rejbrand.se/canvastextpos.png

, अगर आप अधिक की जरूरत है उन्नत टेक्स्ट आउटपुट दिनचर्या, DirectWrite पर क्यों नज़र डालें?

Answer 2

क्या आपने रिचहेडिट का उपयोग इसकी समृद्ध स्वरूपण क्षमताओं के साथ किया है? यदि आपको कैनवास पर टेक्स्ट खींचने की आवश्यकता है, विंडो में नहीं, तो EM_FORMATRANGE संदेश स्वरूपित पाठ के आलेखीय प्रतिनिधित्व की प्रतिलिपि बनाने की अनुमति देता है।