Fa تغييررنگ متن داخل پوشه

[nazary2009]

سلام من ميخوام يه جعبه رنگ توي برنامه بذارم كه كاربر بانتخاب رنگ موردنظرش رنگ متن داخل پوشه تغييربكنه براي همين بايداين خط رو
IconArea_Text=0xFFFFFFدرفايلdesktop.ini تغييربدم مثلا رنگ قرمزكدش اينه'IconArea_Text=0x000000FF'حالا چه كاركنم كه باانتخاب
رنگ توسط كاربر فقط اين كد تغييركنه

 

[MahmoodM30]

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

توی متغییر Color$
کد مربوط به رنگتون رو بنویسید

درضمن کد زیر کلی هست برای تغییر پس زمینه درایو ها

  Color$=''
  Text$='[ExtShellFolderViews]'+CHR(13)+CHR(10)+'{BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC}'+CHR(13)+CHR(10)+'[{BE098140-A513-11D0-A3A4-00C04FD706EC}]'+CHR(13)+CHR(10)+'Attributes=1'+CHR(13)+CHR(10)+'IconArea_Image=Exprience.jpg'+CHR(13)+CHR(10)+'IconArea_Text='+Color$+CHR(13)+CHR(10)+'[.ShellClassInfo]'+CHR(13)+CHR(10)+'ConfirmFileOp = 0'
  a=StrToFile(File$,Text$,TRUE,TRUE)

 

[nazary2009]

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

توی متغییر Color$
کد مربوط به رنگتون رو بنویسید

درضمن کد زیر کلی هست برای تغییر پس زمینه درایو ها

  Color$=''
  Text$='[ExtShellFolderViews]'+CHR(13)+CHR(10)+'{BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC}'+CHR(13)+CHR(10)+'[{BE098140-A513-11D0-A3A4-00C04FD706EC}]'+CHR(13)+CHR(10)+'Attributes=1'+CHR(13)+CHR(10)+'IconArea_Image=Exprience.jpg'+CHR(13)+CHR(10)+'IconArea_Text='+Color$+CHR(13)+CHR(10)+'[.ShellClassInfo]'+CHR(13)+CHR(10)+'ConfirmFileOp = 0'
  a=StrToFile(File$,Text$,TRUE,TRUE)

سلام ميشه يكم بيشترتوضيح بديدچطوري بايد كد رنگ انتخاب شده رودرمتغير Color$وارد كنم و+CHR(13)+CHR(10) چي هستند

 

[Free Man]

با سلام ،

10 و 13 دو کد اسکی بسیار پرکاربرد هستند، که همان عمل Enter و یا رفتن به خط بعد را انجام میدهند.


دقیقتر: کاراکتر 10 مکان نما را به خط بعدی میبرد و کارکتر با مقدار عددی 13 مکان نما را به اول خط می آورد

 

[nazary2009]

ممنون حالاچطوري بايد كد رنگ انتخاب شده رودرمتغير Color$وارد كنم

 

[MahmoodM30]

دوست عزیز بهتره اول از همه کتاب جامع مالتیمدیابیلدر رو مطالعه بفرمایید اینجوری پاسخ سوال هاتون براتون خود به خود پیدا و خودتون حلش میکنید به این شکل باید مقدار دهی کنید این همون کد رنگ قرمزی هست که بالا گفتین

color$='0x000000FF'

 

[nazary2009]

دوست عزیز بهتره اول از همه کتاب جامع مالتیمدیابیلدر رو مطالعه بفرمایید اینجوری پاسخ سوال هاتون براتون خود به خود پیدا و خودتون حلش میکنید به این شکل باید مقدار دهی کنید این همون کد رنگ قرمزی هست که بالا گفتین

color$='0x000000FF'

سلام منظورم اين بود كه چكاركنم كه برنامه رنگي رو كه كاربرانتخاب كرده كدش رودر فايلdesktop.iniبريزه واين فايل رودر پوشه اي كه كاربرانتخاب كرده كپي كنه

 

[MahmoodM30]

ColorPicker()
TEXTCOLOR$=CBK_SelColor
DisplayValue("TextBTN","TEXTCOLOR$")

 

[nazary2009]

ColorPicker()
TEXTCOLOR$=CBK_SelColor
DisplayValue("TextBTN","TEXTCOLOR$")

من اين كدرودرButtonقراردادم وكدقبلي رادرفايلdesktop.iniقراردادم مي تونم رنگ روازبرنامه انتخاب كنم ولي هيچ تغييردرپوشه رخ نميده
ميشه راهنمايي كنيد

 

[nevercom]

فرمت رنگ انتخابی در mmb به شکل rgb هست، مثلاً: 255,0,115
باید رنگ رو به معادل هگزادسیمال تبدیل کنید، صفحه ی دوم مثالی که پیوست کردم رو ببینید

 

[nazary2009]

سلام ميشه بگيد من چطوربايدازفرمت رنگ هگزادسیمال استفاده كنم يعني چطوربايد اين كدي كه برنامه ميده رودرفايلdesktop.iniذخيره كنم

 

[nevercom]

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

در صفحه ی دوم، یک اسکریپت وجود داره، اون اسکریپت عملیات تبدیل رو انجام میده
اون اسکریپت رو کپی کنید به پروژه ی خودتون، وردی مناسب که همون مقدار رنگ انتخاب شده هست رو به اسکریپت بدید، خروجی اسکریپت که مقدار هگز هست رو دریافت کنید.
ظاهراً باید قبل از مقدار هگز (6 کاراکتر آخر)، عبارت "0x00" رو هم اضافه کنید که به فرمت مناسب تبدیل بشه.

در نهایت شما مقدار رنگ با فرمت مناسب رو در اختیار دارید، در صفحه ی قبل محمود عزیز اشاره کردن که چطور مقدار رنگ رو در فایل لحاظ کنید، همچنین در اون مثالی که براتون ساخته بودم هم روش ذخیره ی فایل Desktop.ini رو ببینید.
فقط کافیه چند خط دیگه به محتویات این فایل اضافه کنید.