دوست عزیز بنظر میرسه صرفاً استفاده از روش آزمایش و خطا (ما بهش میگیم انگولک کردن کدها) بدون اگاهی از زبانهای برنام نویسی مناسب برای یادگیری نوشتن پلاگین نیست.
اگر یک کم تسلط بیشتری بر دلفی و زبان برنامه نویسی اون پیدا کنید بهتر خواهید تونست در این امر موفق بشید و برای چنین سئوالهایی پست نخواهید زد.واین تاپیک مفید بیهوده شلوغ نمیشه.
موفق باشید
امروز وقتی پیدا شد و بکمک اون نمونه مثالی که برای ایجاد پلاگین با فرم گذاشته بودین یک پلاگین با شیی Combobox برای خودم درست کردم و الان هم دارم امکاناتش رو بیشتر میکنم(البته به جهت مشق و تمرین پلاگین نویسی). در حین انجام کار در بیلدر دیدم در فرمان insert اگر مقدار ایندکس رو بیشتر از تعداد کل آیتمهای کمبوباکس قرار بدم (ComboBox1.Items.Count) و دستور رو اجرا کنم برنامه کرش میکنه و بسته میشه. این مورد رو با پلاگین شما UO هم امتحان کردم و همین عمل اتفاق می افتاد. خواستم به اطلاعتون برسونم که اگر خواستید در نسخه های بعدی این باگ رو برطرف کنید.(البته اگر بشه اسمش رو باگ گذاشت؟)
من توی پلاگین خودم برای رفعش از این کد استفاده کردم. لطفاً یه نگاه بندازید و راه بهتر و حرفه ای تر اون رو بیان کنید.
با سپاس
کد:
procedure insertToComb; cdecl;
var
TotalItems,userIndexItem : integer;
begin
TotalItems:=MainForm.ComboBox1.Items.Count ;
userIndexItem:=NumInput;
if userIndexItem <= TotalItems then
MainForm.ComboBox1.Items.Insert(NumInput,TextInput)
else
MessageBox(0,'please input a less index','ItemIndex is Too Big',0);
end;
در مورد کدی هم که نوشتید ، بهتر است تا حد امکان از تعریف بی مورد متغیرها بپرهیزیم.
کد:
procedure insertToComb; cdecl;
begin
if NumInput <= MainForm.ComboBox1.Items.Count then
MainForm.ComboBox1.Items.Insert(NumInput,TextInput)
else
MessageBox(0,'please input a less index','ItemIndex is Too Big',0);
end;
حقیقتش کدها رو به همون شکل شما نوشته بودم ولی برای اینکه یک کم واضح تر بگم چیکار کردم اون تعاریف متغیرها رو بیان کردم.بازم از راهنمایی شما تشکر میکنم. البته با چند تا سئوال اساسی دیگه باز هم مزاحم خواهم شد بزودی
با سلام به محسن عزیز.
یکی دو تا سئوال داشتم که تا بحال نتونستم خودم مرتفعش کنم و گفتم مطرح کنم و نظر شما رو بدونم.
1- یک شیی کامبوباکس روی فرم داریم و میخوام وقتی دستور show plugin رو میدم فرم تغییر اندازه پیدا کنه و دقیقاً به همون اندازه کامبو بشه. یا وقتی سایز فونت کامبو باکس رو کوچک و بزرگ میکنه فرم هم تغییر اندازه بده. من از این دستور استفاده کردم
کد:
MainForm.ComboBox1.Font.Size:=NumInput;
h := CreateRectRgn(0,0,MainForm.ComboBox1.Width ,MainForm.ComboBox1.Height);
SetWindowRgn(MainForm.Handle ,h,true);
ولی یک مشکل پیش میاد و اونم اگر کاربر وقتی توی بیلدر شیی پلاگین رو اضافه میکنه عرض کادر اون رو کوچک بگیره وقتی دستور اجرا میشه یک مقدار از کامبوباکس میفته زیر صفحه و ناجور در میاد. لطفاً بگین روش اصولیش چطوریه ؟و کدش به چه شکل باید نوشته بشه؟
2- چطوری میشه از داخل پلاگین به بیلدر دستور داد ؟
مثلا توی رویداد Onclick شیی لیست باکس پلاگین بنویسیم که با انتخاب هر گزینه لیست باکس یک اسکریپت مثلاً به نام Event در بیلدر اجرا بشه؟ چون این مورد جزء خروجی های unit PluginInterface نیست و یا من متوجه نشدم.
procedure RunScript(Script: string; EnableSyntaxChecker: boolean=false);
begin
if EnableSyntaxChecker=false then
SendMessage(hMMBWindow, WM_RUNSCRIPT, 0, LPARAM(Script));
if EnableSyntaxChecker=true then
SendMessage(hMMBWindow, WM_RUNSCRIPT, 1, LPARAM(Script));
end;
و به طور مثال ، جهت اجرای اسکریپت Event در MMB می نویسیم :
کد:
RunScript('RunScript("Event")');
در مورد سوال اول هم باید بگم که شی پلاگین در MMB است و ما به راحتی نمی توانیم آن را تغییر انداره دهیم.
برای این کار می توانید ارتفاع و عرض جدید را با استفاده از دستور بالا برای یک اسکریپت در MMB ارسال نمایید
و سپس در آن اسگریپت شی پلاگین را تغییر اندازه دهید.
ممنون از توضیحاتی که دادین.
من کد اولی رو توی PluginInterface اضافه کردم.البته ارور میداد که باید نوع متغیر WM_RUNSCRIPT رو تعریف کنید که من اونو از نوع کاردینال گرفتم . حالا متوجه نشدم که این کد
کد:
RunScript('RunScript("Event")');
رو کجا باید اضافه کنم؟ چون وقتی توی رویداد on select کامبوباکس اضافه کردم باز ارور میداد و RunScript رو نمیشناخت و.....
اگه میشه یک کم بیشتر توضیح بدین .
و بفرمایید این پارامترهای دستور sendMessage چه کاری انجام میدن؟ چون توی راهنمای دلفی چیز خاصی گیرم نیومد.
سئوال دومم هم ظاهرا وابسته به یادگیری روش اول برای فرستادن دستور به بیلدر هست که هنوز موفق نشدم انجامش بدم.
اما اگر پلاگین g_combobox رو ببینید متوجه میشید که اندازه کادر شیی پلاگین در بیلدر رو هر اندازه ای بگیرید مثلا حتی 10 در 10 پیکسل بازهم وقتی پلاگین نمایش داده میشه سایزش خود بخود به اندازه پیشفرض در میاد.و ضمن اینکه صفحه سیاه فرم که زیر کامبوباکس هست هم با تغییر اندازه فونت کامبوباکس و بزرگ و کوچگ شدن اون خودش رو به همون اندازه در میاره و دیده نمیشه.
با سلامی دوباره.
من با استفاده از پارامتر Hint برای کامبوباکسم امکان نمایش hint رو بر قرار کردم.ولی مشکلی که بوجود میاد همونطور که میتونید در شکلی که گذاشتم ببینید این هست که وقتی مکان نما میره روی کامبو و hint نمایش داده میشه ،وقتی محو میشه سایه ای از همون کادر زرد رنگ hint به صفحه میچسبه و هر چقدر اینکار رو تکرار بشه بازهم این سایه ها در صفحه میمونند. و تا خود MMB رو نبندم اینها هستند و حتی اگر برنامه دیگه ای هم باز بشه روی صفحه اون هم ظاهر میشن. انگار به دسکتاپ پین شده اند.
ممنون میشم اگر تجربه ای اینچنین داشتید ،بگین علتش چیه؟ ممنون
تشکر از جوابی که دادین.متاسفانه من موقع نوشتن پست بالا بجایComboBoxEX فقط نوشتم کامبوباکس(آخه دلفی هر دو رو توی یک دسته قلمداد کرده توی راهنمای خودش). و توی این مدل کامبو هم اون گزینه ها توی استایلش نیست.
ظاهراً باید بی خیال این خاصیت بشم. الان که پلاگین g_combobox رو امتحان کردم دیدم اون هم همین مشکل رو داره!
امکان داره مربوط به سیستم عامل باشه ؟؟؟
برای این کار از مثالهای موجود در همین مبحث استفاده کردم ، برای اضافه کردن این کامپوننت که یه Progressbar هست ابتدا ListBox و تمام پارامترهای آن رو حذف کردم حالا وقتی که Progressbar رو اضافه میکنم و میخوام آن رو بسازم مدام اخطار بهم میده ، اخطارش هم این هست که فرم رو نمیشناسه در حالی که من هیچ تغییری در فرم ایجاد نکردم
این Progressbar چندتا uses داره که به پلاگین اضافه کردم ، حالا مشکل کار از کجاست که نمیتونه فرم رو بشناسه ؟
یه چیزه دیگه وقتی که از Progressbar خود دلفی استفاده میکنم ، پلاگین ساخته میشه...
