shayan_delphi
جمعه 18 آذر 1384, 08:53 صبح
بنام خدا
سلام
طریقه قرار دادن فونت درون خود برنامه. روش کار:
اول برای سهولت در استفاده یک کپی از فایل Brrcc32.exe (در مسیر نصب دلفی شاخه Bin)
و یک کپی از فایل فونت (مثلا Btraffic) در شاخه پروژه خودتان بگذارید.
داخل NotPad این خط را بنویسید: MyFont Font1 "Btraffic.ttf" و فایل را به اسم Font با پسوند rc. ذخیره کنید.
حالا در حالت داس به این شاخه پروژه بروید و این دستور را در خط فرمان بنویسید:
Brcc32 Font.rc و اینتر بزنید!!!
فایل Font.res ایجاد شد. خوب در یونیت فرم مورد نظر این خط مربوط به کامپایلر را اضافه کنید:
{$R Font.res}
در متد OnCreate فرم هم بنویسید:
procedure TForm1.FormCreate(Sender: TObject);
var
Res : TResourceStream
Begin
Res := TResourceStream.Create(HInstance,'MyFont',Pchar('F ont1') Res.SaveToFile('BTraffic.ttf');
Res.Free;
AddFontResource(Pchar('BTraffic.ttf'));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
End;
برای پاک کردن فونت موقع خروج هم این دستور را بنویسید:
procedure TForm1.FormDestroy(Sender: Tobject);
begin
DeleteFile('BTraffic.ttf');
end;
حالا هر جا و برای هر شی که می خواهید فونت را استفاده کنید.مثلا در OnCreate فرم فونت را به فونت فرم نسبت بدید تا همه اشیا روی فرم از اون ارث ببرند.
Self.Form1.Font.Name := 'BTraffic';
سلام
طریقه قرار دادن فونت درون خود برنامه. روش کار:
اول برای سهولت در استفاده یک کپی از فایل Brrcc32.exe (در مسیر نصب دلفی شاخه Bin)
و یک کپی از فایل فونت (مثلا Btraffic) در شاخه پروژه خودتان بگذارید.
داخل NotPad این خط را بنویسید: MyFont Font1 "Btraffic.ttf" و فایل را به اسم Font با پسوند rc. ذخیره کنید.
حالا در حالت داس به این شاخه پروژه بروید و این دستور را در خط فرمان بنویسید:
Brcc32 Font.rc و اینتر بزنید!!!
فایل Font.res ایجاد شد. خوب در یونیت فرم مورد نظر این خط مربوط به کامپایلر را اضافه کنید:
{$R Font.res}
در متد OnCreate فرم هم بنویسید:
procedure TForm1.FormCreate(Sender: TObject);
var
Res : TResourceStream
Begin
Res := TResourceStream.Create(HInstance,'MyFont',Pchar('F ont1') Res.SaveToFile('BTraffic.ttf');
Res.Free;
AddFontResource(Pchar('BTraffic.ttf'));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
End;
برای پاک کردن فونت موقع خروج هم این دستور را بنویسید:
procedure TForm1.FormDestroy(Sender: Tobject);
begin
DeleteFile('BTraffic.ttf');
end;
حالا هر جا و برای هر شی که می خواهید فونت را استفاده کنید.مثلا در OnCreate فرم فونت را به فونت فرم نسبت بدید تا همه اشیا روی فرم از اون ارث ببرند.
Self.Form1.Font.Name := 'BTraffic';