العودة   منتديات داماس > انظمة التشغيل والاوفيس > ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio

إضافة رد
15-08-2018, 04:23 PM
sabmov
عضو مشارك
رقم العضوية: 106621
تاريخ التسجيل: Feb 2008
المشاركات: 32
تلقى دعوات الى: 0 موضوع
إعجاب: 0
تلقى 8 إعجاب على 6 مشاركة
 
بسم الله الرحمن الرحيم
سبق ان عرضت هذه المشكلة وقام اخى الفاضل old_school بوضع حل
ويحتاج الى شئ من الاحترافية ونحن لسنا كذلك
فوصلت الى هذا الكود
الكود التالى يقوم بنسخ خطوط الى فولدر اسمه temp على سطح المكتب DesktopFolr_ وبالفعل تم النسخ


;(File.Copy("AutoPlay\\Docs\\*.TTF", _DesktopFolder .. "\\temp", true, true, false, true, nil
وعند تغيير تغيير الكود ليتم النسخ في windows\fonts_
;(File.Copy("AutoPlay\\Docs\\*.TTF", _WindowsFolder .. "\\Fonts", true, true, false, true, nil
لم يتم النسخ .. فما مشكلة الكود هذا
lملاحظة : اعمل على ويندوز 10




19-08-2018, 11:02 AM
awraq.3ashq
عضو محترف
رقم العضوية: 431419
تاريخ التسجيل: Sep 2013
الإقامة: الاردن - عمان
المشاركات: 687
تلقى دعوات الى: 53 موضوع
إعجاب: 13
تلقى 607 إعجاب على 150 مشاركة
 
إضافـــة الخطوط إلى مجلـد الخطوط في الويندوز


قد يحدث وأن تقوم بالكتابة بأي خط تكون قد أضفته أنت لمجلد الخطوط في الويندوز وبالتالي فإن مستعمل الأسطوانة لما يقوم بتشغيلها ربما لا يتوفر جهازه على نفس الخط وبالتالي يتغير الخط داخل الأسطوانة وربما يكبر حجمه حتى يخرج من الأسطوانة وهذا ما لا نريده.
ومن خلال هذه الطريقــة يستطيـع متصفـح الإسطوانـة من نسخ الخط وتصفح الأسطوانة بشكل عادى .
قم أولاً بإنشـاء التصميم الخاص بالخطوط وأضف إليـه صور لبعض الخطوط الموجودة وذلك بتصويرهـا بأي برنامج ومن ثم إدراجهـا كهيئـة صور كذلك لاتنسـى أن تقوم بتصميم الإزرار بمعنـى لكل خط زر خاص بــه وأيضاً زر خاص بنسـخ جميـع الخطوط لتسهيل عمليـة التنزيل كما بالصورة أدناه



ثم قم بنسخ الخطوط إلى المجلد Docs في مجلد سمه مثلا Font كما ترى



وهذه صور الخطوط المقابلة للأزرار




إذهب لزر الخط الأول وضع هذا الكود
كود:
File.Copy("AutoPlay\\Docs\\Font\\Hi djaz.TTF&q uot;, _******sFolder .. "\\Fonts", false);
كما ترى في الصورة



في هذا المثال يمكنك العود لدرس كيفية إظهار صورة بمجرد مرور الماوس فلا داعي لإعادة شرحها هنا
والهذف منها إظهار صورة الخط المقابل للزر



الآن بعد تخصيص لكل زر خط خاص به نأتي لزر تنصيب جميع الخطوط ونضغط عليه مرتين



نذهب إلى سكريبت ثم On Click ونضع هذا الكود

كود:
confirmation = Dialog.Message(" رسالة تأكيد ", "هل أنت متأكد من نسخ جميع الخطوط إلى جهازك؟", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1); if confirmation == 6 then File.Copy("AutoPlay\\Docs\\Font\\*. *", _******sFolder .. "\\Fonts", false); else Application.Exit******(); end



وهاهي النتيجة




* ملاحظة على درس التعامل مع الخطوط وكيفية تنصيبها بضغطة زر

وهي في الكود الأخير لما تقوم بالتجربة وتضغط على تنصيب الخط أو كل الخطوط لا يحس المستخدم ولا يشعر بتنصيبها أي التنصيب يكون صامت.

ويمكن إضافة سكريبت لطمأنة المستخدم بأن العمل يتم على ما يرام كما ترى في الصورة



ولعمل ذلك نقوم باستبدال الكود الأخير بهذا الكود

كما ترى في الصورة




كود:
confirmation = Dialog.Message(" رسالة تأكيد ", "هل أنت متأكد من نسخ جميع الخطوط إلى جهازك؟", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1); if confirmation == 6 then StatusDlg.Show(MB_ICONNONE, false); File.Copy("AutoPlay\\Docs\\Arabic Font Pack\\*.*", _******sFolder .. "\\Fonts", false); StatusDlg.Hide(); else Application.Exit******(); end
تم حذف من الكود كلمة سكريبت لاحظ الصورة في الأعلى

وتقبل تحياتي ....

الموضوع منقول من منتدى اخر

23-08-2018, 03:36 PM
sabmov
عضو مشارك
رقم العضوية: 106621
تاريخ التسجيل: Feb 2008
المشاركات: 32
تلقى دعوات الى: 0 موضوع
إعجاب: 0
تلقى 8 إعجاب على 6 مشاركة
 
بسم الله الرحمن الرحيم
تحياتى اخى الكريم
هل جربت الاكواد على ams8.5
اعتقد ان الاكواد لاصدار سابق .. فلم تعمل معى

25-08-2018, 11:54 AM
old_school
عضو فعال
رقم العضوية: 987444
تاريخ التسجيل: Oct 2017
الإقامة: Kandahar
المشاركات: 110
تلقى دعوات الى: 3 موضوع
إعجاب: 57
تلقى 95 إعجاب على 54 مشاركة
 

28-08-2018, 12:17 AM
sabmov
عضو مشارك
رقم العضوية: 106621
تاريخ التسجيل: Feb 2008
المشاركات: 32
تلقى دعوات الى: 0 موضوع
إعجاب: 0
تلقى 8 إعجاب على 6 مشاركة
 
ما شاء الله اخى old_school
حقيقة اجد فكر جديد فشكرا لك
طبعا الجزء الاول تم الاستفادة منه بشكل كامل وهو فتح فولدر الخطوط فى الويندوز
بالنسبة للجزء الثانى وهو تحميل الخط .. هذا خط واحد .. ماذا لوكان هناك عدد من الخطوط
لقد قمت بالتعديل على اسم الخط ليشمل ttf.*
للاسف لم اوفق .. فكيف افعلها
لك تحياتى وكل عام وانتم بخير


عودة لمشكلة كود نسخ الخطوط



Powered by vBulletin® Version
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
The owner and operator of the site is not responsible for the availability of, or any content provided.
Topics that are written in the site reflect the opinion of the author.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.