ذخیره تنظیمات

[ilia fallah]

با سلام و ارزوی قبولی طاعات وعبادات
آیا میشه در صورتیکه نوع فونت و رنگ اشیاء صفحات را تغییر دادیم
این تنظمات رو بشه در یک تکست فایل ذخیره کرد و دفعه بعد هنگام باز شدن فرم براساس تنظیم جدید لود بشه
++++++++
برای روشن شدن مطلب نمونه فایل ضمیمه کردم
با تشکر

 

[evil_gates]

دوست عزيز
منظورتون اينه كه رنگ يا فونتي رو يكبار براي پروژه تنظيم كنيد و تمام متون پروژه به طور خودكار تغيير پيدا كنه؟

اگه منظورتون رو درست متوجه شده باشم پيشنهاد ميكنم:

1- يك فايل متني كنار برنامه قرار بديد

2- تو همون مثالي كه پيوست كرديد بعد از انتخاب فونت موردنظر توسط كاربر مقدار CBK_Font رو با يك متغير رشته‌اي و دستور StrToLine به فايل متني ارسال كنيد:

FontPicker()
font$ = CBK_Font
SetObjectParam("E","FONTALL=font$")
path$ = '<SrcDir>\file.txt'
retval= StrToLine(path$,font$,1,TRUE)

3- تو Page Start هر صفحه اين دستورات رو بنويسيد:

path$ = '<SrcDir>\file.txt'
font$ = StrFromFile(path$,1,1)
SetObjectParam("E","FONTALL=font$")

همين روش رو براي تمام اشيا متني كه در صفحه داريد اعمال كنيد.

همينطور ميتونيد از اين روش براي تغيير رنگ متن هم استفاده كنيد و كد رنگ رو با همون دستور StrToLine به خط دوم فايل متني ارسال و از خط دوم بخونيد