رد شدن به محتوای اصلی

gozir

gozir

نوار لغزان با لغزندگی پایین

Posted: 11 Dec 2009 12:52 AM PST

یکی از ایرادهای گزارش شده برای ویرایشهای قدیمی‌تر گنجور رومیزی این بود که نوارهای لغزان آن با کمک کلیدهای جهتی نمی‌لغزد. در واقع اگر ویرایش ۱.۶۳ و پایین‌تر آن را آزمایش بکنید می‌بینید که مثلاً نوار لغزان عمودی آن را، اگر کلید جهتی پایین را همینطور فشار دهید، بعد از سه چهار ثانیه بالاخره تسلیم می‌شود و راه می‌افتد اما خوب! سخت راه می‌افتد (دلیلش از لحاظ برنامه‌نویسی احتمالاً این است که کلید جهتی مزبور در واقع فوکوس را دارد بین کنترلها جابجا می‌کند و به هر کدام چند میلی ثانیه اجازهٔ مالکیت آن را می‌دهد تا آخر سر نوبت به نوار لغزان می‌رسد). توی ویرایش جدیدتر این مشکل را حل کردم.

اما «چطورش» شاید به درد برنامه‌نویسهای (احتمالاً تازه‌کار یا کم‌سواد مثل خودم) ویندوز فرمز بخورد (چون راه حلش را با جستجو پیدا نکردم): کنترل اصلی گنجور رومیزی یک User Control ساده است که نشانی شعرها یا دسته‌های شعرها و همینطور شماره بیتها با استفاده از کنترلهای LinkLabel و مصرعها با استفاده از یک کنترل مشتق از Label روی آن تعبیه شده و ویژگی AutoScroll آن فعال است. به این ترتیب، با توجه به جای پایین‌ترین و سمت چپ‌ترین کنترل، نوارهای لغزندهٔ آن به طور خودکار ظاهر می‌شوند. من برای این که بتوانم کلیدهای جهتی را برای حرکت دادن نوارهای لغزان دریافت کنم رویداد PreviewKeyDown را برای این کنترل به صورت زیر نوشتم:

[code lang="c#"] private void GanjoorViewer_PreviewKeyDown(object sender, PreviewKeyDownEventArgs e) { bool isInputKey = true; switch (e.KeyCode) { case Keys.Down: if (VerticalScroll.Value + VerticalScroll.SmallChange <= VerticalScroll.Maximum) VerticalScroll.Value += VerticalScroll.SmallChange; break; case Keys.Up: if (VerticalScroll.Value - VerticalScroll.SmallChange >= VerticalScroll.Minimum) VerticalScroll.Value -= VerticalScroll.SmallChange; break; case Keys.PageDown: for(int i=0; i<2; i++)//!? if (VerticalScroll.Value + VerticalScroll.LargeChange <= VerticalScroll.Maximum) VerticalScroll.Value += VerticalScroll.LargeChange; else VerticalScroll.Value = VerticalScroll.Maximum; break; case Keys.PageUp: for (int i = 0; i < 2; i++)//!? if (VerticalScroll.Value - VerticalScroll.LargeChange >= VerticalScroll.Minimum) VerticalScroll.Value -= VerticalScroll.LargeChange; else VerticalScroll.Value = VerticalScroll.Minimum; break; case Keys.Right: if (HorizontalScroll.Value + HorizontalScroll.SmallChange <= HorizontalScroll.Maximum) HorizontalScroll.Value += HorizontalScroll.SmallChange; break; case Keys.Left: if (HorizontalScroll.Value - HorizontalScroll.SmallChange >= HorizontalScroll.Minimum) HorizontalScroll.Value -= HorizontalScroll.SmallChange; break; default: isInputKey = false; break; } if (isInputKey) e.IsInputKey = true; } [/code]

در مورد حلقهٔ دوتایی کلیدهای PageDown و PageUp، دلیلش را نمی‌دانم ولی بدون اصرار ;) کار نمی‌کرد! بعد این رویداد را علاوه بر UserControl اصلی، همه جا، پس از ایجاد و اضافه کردن زیرکنترلهایش به آنها هم نسبت دادم:

[code lang="c#"] private void AssignPreviewKeyDownEventToControls() { foreach (Control ctl in this.Controls) ctl.PreviewKeyDown += GanjoorViewer_PreviewKeyDown; } [/code]

در هر صورت، راه حل، کمی عجیب و غریب است ولی کار می‌کند. اگر دوستان راه‌حل بهتری سراغ دارند پیشنهاد دهند. کد گنجور رومیزی نیز در دسترس و قابل دریافت است (این صفحه را ببینید). فهرست تغییرات گنجور رومیزی را در این صفحه می‌توانید ببینید.

نظرات

ارسال یک نظر

پست‌های معروف از این وبلاگ

Alef dot ir

Alef dot ir كچوئيان امشب در برنامه "ديروز امروز فردا" ارسال پرونده فرزندان هاشمی به دادسراي تهران واکنش اعتماد به خبر بی.بی.سی خاطرات خواندنی ناطق نوری از مبارزات رهبر انقلاب چرا سوداگران املاک، بر طبل اعطاي وام خريد مسكن مي ... قطع کامل اینترنت در استان کرمانشاه ساخت سلاح ويژه مقابله با بالگرد آپاچي تلویزیون فارسی زبان دولتی در ترکیه BRT در عراق اجرا مي‌شود بانک سلولهای بنیادی درسازمان انتقال خون فضای ايران ماهواره‌ باران می‏شود متخلفان دربی محروم و حتي حذف از فوتبال روزانه 60 كودك در انگلستان مورد تجاوز قرار مي‌گيرند سه‌چهارم كاربران قرباني كلاهبرداري اينترنتي خطرکسری عظیم بودجه امریکا واجدان شرایط دریافت آرم طرح ترافیک سخنان آيت‌الله لاريجاني در حرم امام (ره) سالمندان نياز كمتري به خواب دارند وخامت وضعيت مالي دولت و مردم آلمان تاکيد آيت الله مکارم بر گراميداشت اربعين حسيني اختلاف در 1+5 براي تحريم ايران اسامی پذيرفته‌شدگان كارداني به كارشناسي داور دربی مشخص شد گ...
ارسال یک نظر
بیشتر بخوانيد

Alef dot ir

Alef dot ir دانشگاه بستنی‌سازی تاسيس شد زوج مسن به فاصله یک روز از هم درگذشتند كاركنان كنسولگری فرانسه اعتصاب كردند کواکبیان: هولوکاست جزء منافع ملی نیست مجيدي: داوري حق ما را خورد عنايت: به مظفري‌زاده نمره قبولي مي‌دهم سعید زيباكلام ميهمان امشب "ديروز امروز فردا" مذاکره برای آزادی شالیط متوقف شد اژه‌ای: انقلاب ما صرفا اخلاقی نبود خاطرات عزت‌‌شاهی از مقام معظم رهبری فردا آخرین مهلت ثبت‌نام در کنکور کارشناسی‌ارشد 5 روش برای شناخت دقیق انقلاب مردی همسر مطلقه‌اش را با 19موش ترساند سرپرست دانشگاه محقق اردبیلی منصوب شد رامين: درحفظ كليدواژه‌هاي امام(ره) ضعف داريم طلسم تساوی‌های دربی شکست پایان مهلت یونسکو برای تعدیل جهان‌نما اقدام دانشگاه آزاد برای گرفتن امضا از نمایندگان علت مرگ پزشک کهریزک مشخص شد مجهز شدن کلیساها به سیستم حضور و غیاب مبتلايان به آلزايمر نرگس بو کنند عکس/ دست نوازش یوزپلنگ بر سر بچه آهو علت ترافیک در تونل توحید اظهارات خصمانه...
ارسال یک نظر
بیشتر بخوانيد

Jomalaat Hakimanhe

دیباچه ی جملات ناب از نظر گاندي هفت موردي که بدون هفت مورد ديگر خطرناک هستند: 1- ثروت ، بدون زحمت 2- لذت، بدون وجدان 3- دانش، بدون شخصيت 4- تجارت، بدون اخلاق 5- علم، بدون انسانيت 6- عبادت، بدون ايثار 7- سياست، بدون شرافت تقريبا همه ميتوانند در برابر فلاکت و بدبختي مقاومت کنند. اگر ميخواهي فردي را امتحان کني, به او قدرت بده." آبراهام لينکولن همه دوست دارند که به بهشت بروند, ولي کسي دوست ندارد که بميرد. جان لوييس تجربه اسمي است که افراد به اشتباهاتشان ميدهند. اسکار وايلد هميشه بين خود و همسرت بازه اي را نگاهدار تا به خواري گرفتار نشوي . اُرد بزرگ در زندگي ثروت حقيقي مهرباني است ، و بينوايي حقيقي خودخواهي . وينه طلوع و غروب عشق ، خود را به وسيل? درد تنهايي و جدايي محسوس مي سازد . لابروير فرودستان ، در بهترين هنگامه هم ، بهانه هاي فراوان ، براي انجام ندادن کار هاي خويش دارند . اُرد بزرگ اگر مشکلي داري، به دليل طرز فکر توست و تنها راهي که مي تواني مشکلات را براي هميشه حل کني، اين است که طرز فکرت را تغيير دهي. وين داير چ...
ارسال یک نظر
بیشتر بخوانيد