استفاده از فونت درپوشه برنامه بدون نیاز به نصب در ویندوز

[solook]

با سلام
میشه چنین کاری رو کرد؟

[Hsimple11]

مشخصه که فونتها باید در پوشه فونت ویندوز کپی بشوند. منظورتون چیزی غیر از این است؟

[solook]

بله منظورم اینه که بدون اینکه در پوشه فونت های ویندوز کپی بشه !
فونت ها باشه ولی تنها در پوشه خود برنامه

بعضی برنامه ها اینجوری دیده شده

[Touska]

به اون شکلی که شما می خواهید نمیشه ولی می تونید از Resource Font استفاده کنید و از طریق کد

Font رو نصب و سپس بعد از خروج از برنامه آن را بردارید.

موفق باشید :)

[vcldeveloper]

تابع AddFontResource را قبلا توضیح داده بودیم، جستجو کنید.

[solook]

با ریسورس دیگه در پوشه فونت ویندوز کپی نمیشه؟

[Touska]

var

Form1: TForm1;

implementation

{$R SetFont.RES}

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

Var

ResFile : TResourceStream;

begin

ResFile := TResourceStream.Create(HInstance,'MY_FONT',pchar(' ANYOL1'));

ResFile.SaveToFile('LOVE.TTF');

ResFile.Free;

AddFontResource('LOVE.TTF');

SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Button1.Font.Name :='LOVE';

Button1.Font.Size := 20;

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

RemoveFontResource(pchar('LOVE.TTF'));

DeleteFile('LOVE.TTF');

SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);

end;

منبعش یادم نیست :)

[solook]

این کارش همونی هست که می خواستم یا اینکه کپی میکنه در پوشه فونت ویندوز؟

[Hsimple11]

این کارش همونی هست که می خواستم یا اینکه کپی میکنه در پوشه فونت ویندوز؟

فونت شما از فایل ریسورسی که ساخته اید و فونت خود را در آن قرار داده اید خوانده می شود. در واقع تابع AddFontResource فونتی را از ریسورس به جدول فونت ویندوز اضافه میکند. در هنگام Free کردن فرم این فونت را دوباره حذف میکنید.

[B-Vedadian]

تو شاخه فونت ويندوز کپي نميشه.

[shuriken]

سلام
روش دیگه ای هم برای انکه از فونتی بدون انکه در پوشه ویندوز کپیش کنید وجود داره.
اونم اینه که شما اول فونتتون رو به Recource های پروژتون (یا از هر طریق دیگه که همراه برنامه باشه. ولی resource مطمئن ترین راه هست) اضافه کنید.
بعد از نوع فونت یه متغیر به setting پروژه اضافه کنید.
و با اولین بار اجرای برنامه این متغییر رو با فونت مورد علاقتون مقدار دهی کنید.
و فونت مورد استفاده برنامرو برابر این متغیر قرار بدین.
اگه بخواین میتونم کدش رو در اختیارتون قرار بدم

[solook]

ممنون میشم کدش رو در اختیارمون بیذارید

[s.mostafa.rahmani]

ابتدا در قسمت setting برنامه متغیری از نوع زیر میسازین.

System.Drawing.Text.PrivateFontCollection priv_font;
و همچنین فونت دلخواهتون رو وارد قسمت Resource میکنید.
بعد برای اینکه بتونید از این فونت ذخیره شده در بریامتون استفاده کنید نیاز به قطعه کد زیر دارید







if ([Project Name].Properties.Settings.Default.priv_font == null) {
string st = System.IO.Path.GetTempFileName();
System.IO.File.WriteAllBytes(st, [Project Name].Properties.Resources.[Font Name]);
[Project Name].Properties.Settings.Default.priv_font = new System.Drawing.Text.PrivateFontCollection();
[Project Name].Properties.Settings.Default.priv_font.AddFontFile (st);
[Project Name].Properties.Settings.Default.Save();
}




و برای اینکه بتونید فونت کنترل دلخواهتون رو برابر فونت مورد علاقتون قرار بدین . کد زیر رو بنویسید



System.Drawing.FontFamily fm = [Project Name].Properties.Settings.Default.priv_font.Families[0];
System.Drawing.Font f = new Font(fm, (float)15.75);
[Control Name].Font = f;

امیدوارم که به دردتون بخوره. موفق باشید.

داداش اينجا انجمن دلفي هست نه #C.