كيفية تحديد إعداد حجم الخط

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

137556
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الموجز
يوضح التعليمات البرمجية في هذه المقالة كيفية استخدام أوامر مكتبة Foxtools.fll استدعاء واجهة برمجة التطبيق Microsoft Windows وظائف (API) لتحديد ما إذا كان يستخدم جلسة العمل الحالية من Windows الصغيرة أو خطوط كبيرة. يتم استخدام وظائف API التالية:
GetDC()GetDeviceCaps()ReleaseDC()				
معلومات أخرى
تحميل البرنامج أولاً المكتبة Foxtools.fll المتوفرة مع FoxPro لـ Windows. ثم تهيئة بعض متغيرات وقم يسترد مقبض جهاز العرض. بعد ذلك، يقوم باستدعاء الدالة GetDeviceCaps طلب عدد وحدات البكسل في البوصة المنطقية طول العرض والارتفاع. إذا كانت عدد وحدات البكسل مساوية 96 تشغيل Windows مع "خطوط صغيرة". إذا كانت عدد وحدات البكسل مساوية 120 تشغيل Windows مع "خطوط كبيرة". الإصدارات البرنامج ثم المؤشر إلى جهاز عرض والمكتبة.
SET LIBRARY TO SYS(2004) + "FOXTOOLS.FLL" ADDITIVE* create variables to pass index to GetDeviceCaps()* this value cane be found in the WINGDI.H fileLOGPIXELSX = 88LOGPIXELSY = 90* get the handle to the device contextlnGetDC = RegFN("GetDC","I","I")lnHDC = CallFN(lnGetDC,0)* get the number of pixels per logical inchlnGetLogPix = RegFN("GetDeviceCaps","II","I")lnLogPixX = CallFN(lnGetLogPix,lnHDC,LOGPIXELSX)lnLogPixY = CallFN(lnGetLogPix,lnHDC,LOGPIXELSY)* determine if small or large fonts, either lnLogPixX or* lnLogPixY may be used to test for the values 96 or 120IF lnLogPixX < 96  WAIT WINDOW "Windows is using smaller than Small Fonts"   ELSE IF InLogPixX = 96  WAIT WINDOW "Windows is using Small Fonts"   ELSE IF InLogPixX < 120  WAIT WINDOW "Windows is using between Small Fonts and Large Fonts"ELSE IF IF lnLogPixX = 120  WAIT WINDOW "Windows is using Large Fonts"ELSE  WAIT WINDOW "Windows is using larger than Large Fonts"ENDIF* release the handle to the device contextlnRelease = RegFN("ReleaseDC","II","I")= CallFN(lnRelease,0,lnHDC)* release the FOXTOOLS.FLL libraryRELEASE LIBRARY SYS(2004) + "FOXTOOLS.FLL"				
مراجع
أدوات تطوير برامج Windows Microsoft ، "المرجع الخاص للمبرمجين وحدة التخزين 2: الدالات،" صفحات 350-354 785.

في دليل C:\Fpw26\Goodies\Foxtools Foxtools.wri.

في دليل C:\C700\Include Wingdi.h
2.50 2.60 FoxWin

تحذير: تمت ترجمة هذا المقال تلقائياً

خصائص

رقم الموضوع: 137556 - آخر مراجعة: 02/24/2014 08:22:16 - المراجعة: 2.2

  • Microsoft FoxPro 2.5b
  • Microsoft FoxPro 2.5a
  • Microsoft FoxPro 2.5b
  • Microsoft FoxPro 2.6 Standard Edition
  • Microsoft FoxPro 2.6a Standard Edition
  • kbnosurvey kbarchive kbmt kbfont kbhowto KB137556 KbMtar
تعليقات