كامپوننت تقويم شمسی

سلام آقای خرسندی

من به یه مشکلی با این کامپوننت برخوردم! اونم اینه که وقتی تاریخ میلادی انتخاب کرده باشی و بخوای دوباره تاریخ رو عوض کنی پیغام خطا میده که '21/08/2009' تاریخ معتبری نیست! کلی با این کامپوننت سروکله زدم تا متوجه شدم فرمت LongDate ویندوزم به صورت Friday 21 August 2009 تنظیم شده است اگه اونو تغییر دادم به 21/08/2009 کامپوننت به درستی عمل میکنه اگه بشه کاری کنید که در هنگامی که داره شرط زیر رو تست میکنه با فرمت ShortDate بیاد تاریخ رو بررسی کنه خیلی خوب میشه!

جایی که کامپوننت ایراد میگیره رو میذارم:

  FCustomSolarCalendar.VisibleLayoutSwitch := FVisibleLayoutSwitch;

  try

    FCustomSolarCalendar.InDate := Trim(Text);

    FCustomSolarCalendar.FLayout.Visible := FVisibleLayoutSwitch;

    {if DateKind = dkGregorian then

      FCustomSolarCalendar.SetDateKind(DateKind);} //87-03-16

    if Assigned(FOnLayoutClick) then

      FCustomSolarCalendar.FOnLayoutClick := FOnLayoutClick;

خط قرمز رنگ باعث بروز خطا میشه دوستان لطف کنن تست کنن ببینن این ایرادی که گرفت درسته یا من دارم اشتباه میکنم! (ویندوزم ویستاست)

بازم ممنون از کار بسیار زیباتون
موفق و موید باشی

نقل قول:

---

نوشته شده توسط اصغر (پآچ)

سلام دوست من

شما که داری زحمت اصلاح این ویژگی ها و اضافه کردن اونها رو می کشی یه زحمت کوچیک هم بکش و پیغام خطایی رو که هنگام وارد کردن اشتباه تاریخ میلادی میده از نظر املایی تصحیح کن، حیف این کامپوننت خوبه که یه خطا به این کوچیکی داشته باشه!

متن پیغام خطای موجود:
متن پیغام صحیح:

موفق و موید باشید

---

اين رفع شد،
مشكل دوم هم به احتمال خيلی زياد بايد وجود داشته باشه،
تست ميكنم.
ممنون از توجهت.

سلام.
با تشکر از شما بخاطر کامپوننت خوبتون.
می خواستم بپرسم که ویرایش جدید رو کی منتشر میکنید؟

سلام.امکان وصل شدن به بانک ازطریق Datasource و تعیین فیلد مورد نظر مهم ترین مساله ممکن است

سلام
با تشکر از آقاي خرسندي.
آقاي خرسندي اگر ورژن جديد طول ميکشه لطفا براي حل مشکل ماههاي 31 روزه در سال کبيسه ما را راهنمايي کنيد.
(در سالهاي کبيسه ماههاي 31 روزه رو 30 روز نشون ميده)

نسخه‌ی جديد رو آپلود كردم، از لينك زير می‌تونيد بگيريد :
Solar Calendar 2.26.11

راهنما و مثال رو هم ببينيد.



سورس، راهنما، مثال اجرایی و سورس مثال :
View all files

سلام. آقاي خرسندي دو تا اشكال در كامپوننت ديدم. اگه ممكن هست در موردش توضيح بدين.
1- SolarDatePicker رويداد OnDayClick راندارد.
2- رويداد OnKeyPress در SolarDatePicker كار نمي‌كند.

ممنون مي‌شم اگه زود جواب بدين.

سلام. آقاي خرسندي لطف مي‌كنيد زوتر جواب بدين. خيلي بهش نياز دارم. ممنون.

نقل قول:

---

نوشته شده توسط mojtaba_ha2007

سلام. آقاي خرسندي دو تا اشكال در كامپوننت ديدم. اگه ممكن هست در موردش توضيح بدين.
1- SolarDatePicker رويداد OnDayClick راندارد.
2- رويداد OnKeyPress در SolarDatePicker كار نمي‌كند.

.

---

ممنون مي‌شم اگه زود جواب بدين

نقل قول:

---

نوشته شده توسط 0armin0

سلام.امکان وصل شدن به بانک ازطریق Datasource و تعیین فیلد مورد نظر مهم ترین مساله ممکن است

---

آقاي خرسندي با تشکر از شما ، اين مورد رو کي ميتونيد بذاريد؟

سلام. آقاي خرسندي لطف كنيد به سوالاتي كه در صفحه قبل پرسيدم جواب بدين. خيلي بهشون نياز دارم.

نقل قول:

---

نوشته شده توسط mojtaba_ha2007

سلام. آقاي خرسندي دو تا اشكال در كامپوننت ديدم. اگه ممكن هست در موردش توضيح بدين.
1- SolarDatePicker رويداد OnDayClick راندارد.
2- رويداد OnKeyPress در SolarDatePicker كار نمي‌كند.
.

---

آقاي خرسندي هنوز وقت نكردين اين مشكلات رو بررسي كنيين؟

نقل قول:

---

1- SolarDatePicker رويداد OnDayClick راندارد.

---

اين كامپوننت اصلاً چنين Eventیی نداشته.

نقل قول:

---

2- رويداد OnKeyPress در SolarDatePicker كار نمي‌كند.

---

توی سورس، اين خط زير رو سرچ كن:
TSolarDatePicker.KeyPress

بعد به بادی procedure برو و كلمه inherited رو در آخرين خط اضافه كن.

نقل قول:

---

نوشته شده توسط m-khorsandi

اين كامپوننت اصلاً چنين Eventیی نداشته.
.

---

ممنون از راهنماييتون. امكانش هست اين Event رو به كامپوننت اضافه كنيد؟ چون براي كاربراني كه با صفحه كليد كار ميكنند سخته كه بخوان اين قسمت رو با موس روش كليك كنن.

نقل قول:

---

نوشته شده توسط m-khorsandi

توی سورس، اين خط زير رو سرچ كن:
TSolarDatePicker.KeyPress

بعد به بادی procedure برو و كلمه inherited رو در آخرين خط اضافه كن.

---

آقاي خرسندي پس از نصب كامپوننت چطوري ميتونيم سورس كامپوننت رو ببينيم؟

نقل قول:

---

نوشته شده توسط mojtaba_ha2007

ممنون از راهنماييتون. امكانش هست اين Event رو به كامپوننت اضافه كنيد؟ چون براي كاربراني كه با صفحه كليد كار ميكنند سخته كه بخوان اين قسمت رو با موس روش كليك كنن.

---

بله حتماً.

نقل قول:

---

آقاي خرسندي پس از نصب كامپوننت چطوري ميتونيم سورس كامپوننت رو ببينيم؟

---

در جایی كه كامپوننت رو كپی كرديد، فايل pas اون رو Open كنيد.

سلام.امکان وصل شدن به بانک ازطریق Datasource را آقاي خرسندي کي راهنمايي ميکنيد؟

آقاي خرسندي كلمه

inherited;

را در آخر procedure TSolarDatePicker.KeyPress نوشتم و پس از ذخيره دوباره برنامه را اجرا كردم اما باز هم درست نشد كه نشد. لطفا راهنمايي كنيد. ممنون.

راه حلی كه تو پست 164 نوشتم رو خودم انجام دادم و مشكل حل شده!

پس از اضافه كردن اين قسمت آيا بايد كامپوننت رو دوباره نصب كنم و بعد برنامه رو اجرا كنم؟

نقل قول:

---

نوشته شده توسط szabeh

سلام.امکان وصل شدن به بانک ازطریق Datasource را آقاي خرسندي کي راهنمايي ميکنيد؟

---

در نسخه‌ی بعدی حتماً امكان اتصال به ديتاست‌ وجود خواهد داشت.

نقل قول:

---

نوشته شده توسط mojtaba_ha2007

پس از اضافه كردن اين قسمت آيا بايد كامپوننت رو دوباره نصب كنم و بعد برنامه رو اجرا كنم؟

---

نه فقط بايد مسير سورس كامپوننت در Library Path دلفی وجود داشته باشه.

آقاي خرسندي من كامپوننت رو پاك كردم و حالا هر كاري ميكنم دوباره نصب نميشه. لطف ميكنيد طريقه صحيح پاك كردن و نصب مجدد يك كامپوننت رو توضيح بدين؟

لطفا در مورد Library Path هم اگه ممكنه توضيح بدين.

در ضمن آقاي خرسندي:
1. كلمه mojtaba_ha2007 رو كه بالاي كلمه كاربر دائمي نوشته شده رو از كجا ميتونم ويرايشش كنم؟
2. بعد از جوابها بعضي دوستان مطالبي رو مينويسند مثل شعر يا تابليغ يك موضوع. اگه ممكنه در مورد اين هم توضيح بدين.

نقل قول:

---

آقاي خرسندي من كامپوننت رو پاك كردم و حالا هر كاري ميكنم دوباره نصب نميشه. لطف ميكنيد طريقه صحيح پاك كردن و نصب مجدد يك كامپوننت رو توضيح بدين؟

---

كامپوننت رو همونطور كه تا الان نصب كردی بايد نصب كنی، فايل dpk رو باز كن و Compile و Install.
اين رو امتحان كن، اگر نشد روش نصب و حتماً دليل يا پيغامی كه موقع نصب ميگيری رو اينجا بنويس.

نقل قول:

---

لطفا در مورد Library Path هم اگه ممكنه توضيح بدين.

---

Library Path در منوی Tools->Environmet Options->Library هست.

در مورد ساير موارد هم راهنمای سايت رو مطالعه كن.

آقاي خرسندي پيام به شكل زير هست:

بعد از نصب يه صفحه مياد كه install مربوط به اون صفحه خاموشه اما Compile فعال هست. اما باز هم جواب نميده. از طريق open كه فايل pdk رو باز ميكنم و install ميكنم پيام خطاي زير رو نشون ميده.

اگه ممكنه همين الان پاسخ بدين. ممنون.

برنامه ای نوشته ام که شامل دو فرم است. فرم اول فرم مادر و فرم دوم برای ورود اطلاعات.
در فرم دوم از کامپوننت SolarDatePicker استفاده کرده ام. اما زمانی که بر روی تاریخ مورد نظر دو بار کلیک میکنم و تاریخ در Editbox قرار میگیره، Focus به فرم اول منتقل میشه و برای اجرای رویداد KeyPress مربوط به SolarDatePicker باید ابتدا بر روی فرم دوم کلیک کنم تا Focus روی فرم دوم قرار بگیره و مکان نما نیز در SolarDatePicker قرار بگیره تا بتوانم این رویداد را اجرا کنم.
در ضمن این کار رو با یک فرم انجام دادم درست جواب میده. اما با دو تا فرم نه.
دوستان عزیز لطفا راهنمایی کنید که چی کار باید بکنم تا این مشکل برطرف بشه؟

سلام:
ظاهرا من دير به قافله رسيدم .
من در نصب کامپوننت مشکل دارم تمام فايلها را دانلود کردم و نصب ميکنم ولي Tab براي آن باز نميشه تا بشود کامپوننت را انتخاب نمود و فايل ريسورس نيز پيدا نکردم 18 صفحه را دو بار مظالعه کردم
تذکر: من با دلفي 7 کار ميکنم

نقل قول:

---

نوشته شده توسط mojtaba_ha2007

برنامه ای نوشته ام که شامل دو فرم است. فرم اول فرم مادر و فرم دوم برای ورود اطلاعات.
در فرم دوم از کامپوننت SolarDatePicker استفاده کرده ام. اما زمانی که بر روی تاریخ مورد نظر دو بار کلیک میکنم و تاریخ در Editbox قرار میگیره، Focus به فرم اول منتقل میشه و برای اجرای رویداد KeyPress مربوط به SolarDatePicker باید ابتدا بر روی فرم دوم کلیک کنم تا Focus روی فرم دوم قرار بگیره و مکان نما نیز در SolarDatePicker قرار بگیره تا بتوانم این رویداد را اجرا کنم.
در ضمن این کار رو با یک فرم انجام دادم درست جواب میده. اما با دو تا فرم نه.

---

آقای خرسندی من کد زیر را در رویداد onkeypress کامپوننت نوشتم اما کار نمیکنه.(فرمی رو که توش از این کامپوننت استفاده کردم یک بار پاکش کردم و دوباره از اول طراحییش کردم که تمام احتمالات خطا از بین بره) اما همین کد را توی یه برنامه دیگه (یه Application جدید برای امتحان کردن کامپوننت ایجاد کردم) امتحان کردم هم با یک فرم هم با چند فرم، رویداد onkeypress درست کار میکنه.

if key = char(vk_return) then

begin

if SolarDatePicker1.Text = '' then

  messagedlg('لطفا تاریخ را وارد نمایید',mtWarning,[mbok],0)

else

begin

  Edit3.Enabled := True ;

  Edit3.SetFocus;

end;

end;

اگه زوتر رویداد ondayclick را برای کامپوننت طراحی بکنین این مشکلات پیش نمیومد.
به امید بهره برداری هرچه زودتر از رویداد ondayclick کامپوننتتون.
باز هم از شما ممنون که این کامپوننت خیلی خیلی خوب رو طراحی کردین.

با سلام. آقاي خرسندي آخرين نسخه كامپوننت رو كه رويداد Ondayclick رو داشته باشه كي آپلود ميكنيد؟ خيلي وقته منتظريم.

با سلام و خسته نباشید. آقای خرسندی حدودا یک ماهی گذشته. امکانش هست زودتر نسخه جدید رو آپلود کنین؟

نقل قول:

---

با سلام و خسته نباشید. آقای خرسندی حدودا یک ماهی گذشته. امکانش هست زودتر نسخه جدید رو آپلود کنین؟

---

دوست عزیز، مگه در سایت امکان ارسال پیام خصوصی وجود نداره که شما هر چند روز یک بار در این تاپیک پستی ارسال می کنید و زمان انتشار نسخه بعدی را می پرسید؟!!

سلام

دست شما درد نکنه بابت این کامپوننت عالی. فکر کنم چند قابلیت مورد نیاز در کامپوننت اینها باشند:

- با استفاده از کیبورد بشود بین ماهها یا روزها سوییچ کرد (مثلا با pgDown , pgUp).
- به صورت hint یا در جایی از کادر، Shortcut های ممکن جهت راهبری و انتخاب نوشته شوند.
- بدون ماوس به طور کامل و به سرعت توسط کاربران مبتدی قابل استفاده باشد. (بالاخره قرار است برای dataentry مورد استفاده قرار بگیرد)
- با حرکت ماوس روی روزها، دکمه آنها برجسته شود. (مثلا با اضافه کردن Speedbtn بر روی هر روز)

آقاي خرسندي امكانش هست كادر دور كامپوننت رو به صورت سه بعدي طراحي كنيد؟ مثلا مثل ويندوز ويستا. يعني يه كم قشنگتر بشه.

سلام
من هم از کامپوننت بسیار جالب استاد خرسندی استفاده کردم واز زحمات فراوانشون تشکر میکنم.
فقط مثل خیلیا (sale_fartash,...)مشکل کارنکردنش با کیبرد رو داشتم که با یه فضولی تو سورس استاد یه جورایی واسه خودم حلش کردم که با دوبار اینتر تاریخ روز رو بگیره و با اجازه ی ایشون میزارم دوستان دیگه هم استفاده کنن.

Momkene File Marboot Be Resource Post Ghabli Ro Ham Bezarid.
Be Man Error Mide, Fek Konam Esme Filesh "Calendar_Images.res" Bashe.
Ba Tashakor

با سلام.
آقای خورسندی قصد ندارید تاریخ قمری رو هم به این کامپوننت اضافه کنید؟

سلام استاد
با تشکر از زحمات شما
من هر بار که سعی کردم دانلود کنم خطای 403 رو داد:عصبانی++:
لطفا اگه زحمت نمیشه آخرین ورژن رو برام میل کنید:قلب:
با تشکر
masoud_salimy@yahoo.com

نقل قول:

---

نوشته شده توسط m-khorsandi

نسخه 1.4.2 كامپوننت تقويم شمسی رو ميتونيد از لينك زير دانلود كنيد :

Solar Calendar

يا

لينك مستقيم دانلود

http://img.majidonline.com/pic/208358/1.jpg

---

سلام من نتونستم دانلود كنم اين ارور را مي ده 403 Error – Forbidden چيكار كنم

فعلاً از اينجا دانلود كنيد،
Nice Boy راهنمایی كرده كه چطور بايد به سورس فورج امكان دانلود دوباره برای كشورهای تحريم شده را اضافه كنم ولی متاسفانه با اين وضعيت اينترنت هنوز موفق به لاگين به سورس فورج هم نشده‌ام، البته اينها هيچ كدام ارتباطی به كشوری كه فقط يكی از ويژگی‌هاش آزادی مطلق است، ندارد.

با سلام و احترام خدمت جناب آقاي خرسندي
ضمن عرض تشكر، چند مورد را از شما يا ساير دوستان سؤال دارم:

بعد از نصب كامپوننت در دلفي 2010، در برنامه‌ي نمونه‌اي كه قرار داديد، با خطاي زير مواجه مي‌شم، دليل‌ش را مي‌تونيد توضيح بديد تا برطرف كنم؟

[DCC Error] UntMainForm.pas(332): E2003 Undeclared identifier: 'GetRawDate'

[DCC Error] UntMainForm.pas(333): E2003 Undeclared identifier: 'GetDateWithDiv'

[DCC Error] UntMainForm.pas(334): E2003 Undeclared identifier: 'GetWeekRemainDays'

[DCC Error] UntMainForm.pas(335): E2003 Undeclared identifier: 'GetMonthRemainDay'

[DCC Error] UntMainForm.pas(336): E2003 Undeclared identifier: 'GetYearRemainDays'

[DCC Error] UntMainForm.pas(337): E2003 Undeclared identifier: 'WeekOfTheYear'

[DCC Error] UntMainForm.pas(341): E2003 Undeclared identifier: 'YearScript'

[DCC Error] UntMainForm.pas(341): E2003 Undeclared identifier: 'fLong'

[DCC Error] UntMainForm.pas(342): E2003 Undeclared identifier: 'YearScript'

[DCC Error] UntMainForm.pas(342): E2003 Undeclared identifier: 'fShort'

[DCC Error] UntMainForm.pas(343): E2003 Undeclared identifier: 'MonthScript'

[DCC Error] UntMainForm.pas(344): E2003 Undeclared identifier: 'YMDScript'

[DCC Error] UntMainForm.pas(345): E2003 Undeclared identifier: 'YMDScript'

[DCC Error] UntMainForm.pas(362): E2003 Undeclared identifier: 'MaskEnabled'

در صورتي كه اين خطاها را با حذف كردن خطوطي كه خطا درون اونها وجود داره، برطرف كنم، هنگام كامپايل با خطاي زير مواجه مي‌شم كه تصويرش را ضميمه كردم. در صورتي كه كليد Continue را بزنم، پيام خطاي شماره 2 و در صورتي كه مجدداً Continue را بزنم، خطاي سوم ظاهر مي‌شه و نهايتاً بدون اجرا، خاتمه پيدا مي‌كنه.

ممنون مي‌شم دوستان كمك كنند.

يا علي... موفق باشيد...

آخرين نسخه رو دانلود كنيد.

نقل قول:

---

نوشته شده توسط مصطفی مختاری

منتظر mask هستیم.

---

با تشکر از جناب خورسندی....

منم چون یه برنامه قدیمی رو که کاربراش عادت کرده بودن به mask دارم update میکنمو به اجبار فعلا خودم یه mask روی solardatepicker گذلشتم و توی form.activate یه کد کوچیک نوشتم که متن داخل سولار رو همیشه بریزه تو mask...
چون datatype هردوش یکیه جواب میده،نمونشم گذاشتم

نقل قول:

---

نوشته شده توسط alidehban

یعنی خداییش بدرد هیچکی نخورد؟! ازین همه تشکر و نظر سازنده واقعاَ ممنون:ناراحت:
سر درآوردن از توابعی که جناب خرسندی نوشته خداییش میدونی چقد سخت بود؟!!!:متعجب:
فقط کافی بود جای فایل pas اصلی رو با فایلی که من گذاشتم عوض کنید تا datepicker سولار با اینتر کار کنه و لازم به تشکر نبود !!!
فقط خوبیش این بود که زودتر تست میشد تا اگه اشکالی داشت مشخص میشد خصوصا دلم میخواست نظر خود استاد خرسندی رو بدونم....

---

من تغييرات شما رو هنوز نديدم متاسفانه،
فقط خواستم اين موضوع رو يادآوری كنم كه كار با كيبورد كه شامل كليدهای جهتی، Enter + Ctrl و Enter هست، از دو نسخه‌ی قبل به كامپوننت اضافه شده، به اضافه‌ی امكان Mask. جزئيات بيشتر رو ميتونيد در فايل راهنما و همچنين نمونه‌ی برنامه‌ی همراه كامپوننت ببينيد.

بار دیگه می خواستم از زحمات آقای خرسندی تشکر کنم.

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

خیلی کاربر پسندانه بود که وقتی پیکر باز میشه بدون دخالت موس بتونین تاریخ رو انتخاب کنین و با زدن Enter تاریخ داخل Edit درج بشه.

ممنون می شم راهنمایی بفرمایین.

نقل قول:

---

نوشته شده توسط saied_cp

بار دیگه می خواستم از زحمات آقای خرسندی تشکر کنم.

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

خیلی کاربر پسندانه بود که وقتی پیکر باز میشه بدون دخالت موس بتونین تاریخ رو انتخاب کنین و با زدن Enter تاریخ داخل Edit درج بشه.

ممنون می شم راهنمایی بفرمایین.

---

سلام...
این مشکل حل شدنیه!!!
فایل pas که گذاشتمو با فایل pas کامپایل شده در شاخه borland\lib عوض کن بعدش با ctrl+Down پنل باز میشه که ابداع خود استاده و با Enter بسته میشه که من بهش اضافه کردم...
البته من اینو قبلا گذاشته بودم که با اینتر اول باز میشد با اینتر دوم بسته ، ولی از تشکرهای خیلی خیلی زیاد دوستان مشخص شد به کار نمیاد!!!
این یکی با اینتر پنلو باز نمیکنه ،امیدوارم قابل استفاده باشه.
موفق باشید(با تشکر از جناب خرسندی)

و دکمه ی تشکر بسیار زیباست...!!

سلام
من از این کامپوننت در دلفی 2009 استفاده کردم ولی نوشته هاشو فارسی نشون نمیده و یک سری حروف عجیب غریب میاره. باید چه کار کنم؟
لطفا راهنمایی کنید...

با سلام

جناب خورسندی عزیز بابت کامپوننت عالی و کاربردیتان کمال تشکر را از شما دارم !

آیا تابع یا روالی در کامپوننت برای ( روزجاری ، هفته جاری ، ماه جاری ، سال جاری ) نوشتید ؟
و چطور فراخوانی می شوند ؟
میخواهم که کاربر با زدن دکمه ( مثلا هفته جاری و یا ... ) تاریخ اولین روز هفته جاری را در SolarDatePicker اولی و سپس آخرین روز هفته جاری را در SolarDatePicker دومی بریزد !
ممنون ...

تمام توابع و ويژگی‌ها در مثال و راهنمای كامپوننت به همراه توضيحات وجود داره.

با سلام :لبخندساده:

نقل قول:

---

نوشته شده توسط m-khorsandi

تمام توابع و ويژگی‌ها در مثال و راهنمای كامپوننت به همراه توضيحات وجود داره.

---

درسته حق با شماست :

Label1.Caption:=IntToStr(SolarDatePicker1.Year);

Label2.Caption:=IntToStr(SolarDatePicker1.Month);

Label3.Caption:=IntToStr(SolarDatePicker1.Day);

شاید منظورم رو گنگ بیان کردم !
منظورم از توابع ( با توجه به بخش دوم سئوال ) است :

نقل قول:

---

میخواهم که کاربر با زدن دکمه ( مثلا هفته جاری و یا ... ) تاریخ اولین روز هفته جاری را در SolarDatePicker اولی و سپس آخرین روز هفته جاری را در SolarDatePicker دومی بریزد !

---

ممنون از توجه و راهنمایی شما ...
موفق باشید ...

نقل قول:

---

نوشته شده توسط مصطفی مختاری

منتظر mask هستیم.

---

میگم خاصیت AUTOCHECK رو تست کردی ؟
کارتو راه نمیندازه؟