منظومة خاصة بالموظفين في اي مصلحة
#4
(26-08-2021, 10:56 AM)Delphi4Us كتب : هل تقصد وضعه في الريسورس ومنها تثبيته في مجلد الخطوط
ام انشاء حزمة تثبيت وتثبيته في مجلد الخطوط
ام ان هناك طريقة أخرى غير ما ذكرت تستخدمونها

أظن أن الأخ يقصد استعمالها دون تثبيتها.


PHP كود :
// first load it in the OnCreate event of a form:
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  AddFontResource
('c:\FONTS\MyFont.TTF');
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

// before application terminates, we must free it:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  RemoveFontResource
('C:\FONTS\MyFont.TTF');
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end; 
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
[-] كل من 1 user says قال شكرا ل أبو معاذ على المشاركة المفيدة
  • Delphi4Us
الرد


الردود في هذا الموضوع
RE: منظومة خاصة بالموظفين في اي مصلحة - بواسطة أبو معاذ - 26-08-2021, 04:56 PM

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 2 ) ضيف كريم