बाहरी फ़ॉन्ट का उपयोग कैसे करें?

Question

क्या डेल्फी में संसाधनों से सीधे फ़ॉन्ट का उपयोग करना संभव है और कैसे?

मुझे पहले चरण के साथ कोई समस्या है। उदाहरण के लिए मैं एक परियोजना के संसाधनों में सेगो यूआई लाइट फ़ॉन्ट शामिल नहीं कर सकता, एक अपवाद होता है। और यह केवल तभी होता है जब फ़ाइल का एक्सटेंशन 'ttf' होता है।

यदि उपरोक्त लिखा गया संभव नहीं है तो मैं फ़ॉन्ट को अलग से (निष्पादन योग्य से) तैनात किए बिना बाहरी फ़ॉन्ट का उपयोग कैसे करूं?

अग्रिम धन्यवाद!

Answer 1

Windows 2000 पर और बाद में, आप स्मृति से अपनी प्रक्रिया के लिए फ़ॉन्ट को स्थापित करने AddFontMemResourceEx उपयोग कर सकते हैं।

Answer 2

यदि आप फ़ॉन्ट का उपयोग करना चाहते हैं तो फ़ॉन्ट स्थापित होना चाहिए। लेकिन AddFontResource का उपयोग करके आप इसे नकली बना सकते हैं।

procedure TForm1.FormCreate(Sender: TObject) ; 
begin 
    AddFontResource('c:\FONTS\MyFont.TTF') ; 
    SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ; 
end; 

//Before application terminates we must remove our font: 
procedure TForm1.FormDestroy(Sender: TObject) ; 
begin 
    RemoveFontResource('C:\FONTS\MyFont.TTF') ; 
    SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ; 
end; 

जैसा कि आप AddFontResource को फ़ाइल नाम की आवश्यकता है। AddFontResourceEx के लिए भी यही है।

तो आपको एक फ़ॉन्ट फ़ाइल की आवश्यकता है। लेकिन हम भी नकली कर सकते हैं।

अपने निष्पादन योग्य में अपनी टीटीएफ फ़ाइल को शामिल करने के लिए JVCL के TjvDataEmbedded का उपयोग करें। फ़ॉन्ट फ़ाइल को एम्बेड करने के लिए सीधा है। (राइट-क्लिक करें, 'फ़ाइल से लोड करें' ...)।

रनटाइम पर, अपनी फ़ाइल को उपयोगकर्ता की अस्थायी निर्देशिका में निकालें (TjvDataEmbedded विधियों को देखें - मुझे अब पता नहीं है, लेकिन यह SaveToFile या इसी तरह की तरह होना चाहिए)। बीटीडब्ल्यू आप इसे किसी भी अन्य निर्देशिका में निकाल सकते हैं। उस पर AddFontResource पर कॉल करें।

इसके अलावा, आपकी आवश्यकताओं के मुताबिक, आप फ़ाइल को मैप किए गए मेमोरी में और/या रैम ड्राइव में निकाल सकते हैं।

HTH