دو تا سوال مربوط به طراحی Paint

[M_P_1374]

خسته نباشید من یه دونه Paint درست کردم ولی دوچیزش مونده میشه به من بگید که:
1- چجوری داخل Paint امکان Selection رو اضافه کنم؟
2- و چجوری داخل Paint امکان نوشتن رو فراهم کنم؟

[M_P_1374]

کسی جواب نمیده من دیگه آخرای کارم ولی ایناش هنوز مونده!!!!!!!!!؟؟؟؟؟؟؟؟؟؟؟؟؟..... ...........

[mbshareat]

راستش من هم می خواستم تو دلفی Paint بسازم. به نظر من هر خط محیطی که توی کادر تصویر روی فرم ترسیم می کنین توی یه تصویر پس زمینه مثلا یه کادر نامرئی اون خط رو با رنگ صعودی ترسیم کنین. مثلا اولین خط رو با رنگ &H000000& دومی رو که مثلا خط محیطی یه کمان(با تابع Arc از توابع Api) می تونه باشه با رنگ &H000008& و به همین ترتیب هشت تا هشت تا با لا برین(در تعداد رنگ 16 بیت نمی شود یکی یکی بالا رفت!)
بعدش هر وقت مختصات متناظر با اشاره گر ماوس روی رنگی در پس زمینه غیر از سفید بود رنگ رو بررسی کنید و از این راه می تونید بفهمین که خط محیطی چندم انتخاب شده .
البته این رو هم بگم که قبلا باید یک نوع کاربر طراحی کنین که دارای فیلدهای نوع ترسیم مثل دایره منحنی خط چهارگوش و مستطیل لبه گرد و نقطه رنگ آمیزی(FloodFill از توابع Api) و ..
و فیلد نقطه اول و دوم وسوم از نوع Point و فیلد رنگ خط محیطی و رنگ داخلی باشه.
اگه این نوع را درست کردین می تونین حتی Undo هم قرار بدین.
در مورد متن هم می تونین از دستور Print استفاده کنی یا از TextOut از توابع Api استفاده کنی!

[850725115]

سلام دوست عزیز سورس برنامتو بزار تا برات تکمیل کنم :تشویق:

[VB.SOS]

اينم نسخه كامل Paint خدمت دوستان
از همين سايت خيلي وقت پيش گرفته بودم

[850725115]

x = InputBox("äæÔÊä ãÊä ", "TEXT EDITOR", , "20", "1000")J
Form2.pic.Cls
For i = 1 To 250

Form2.pic.ForeColor = RGB(100 + 1, i + 1, 0)L
Form2.pic.CurrentX = i

Form2.pic.CurrentY = i

Form2.pic.Print x
Next i

برای نوشتن افکت دار البته خواسیت DRAGبهش اضافه کن

شرمنده اگه دیر شد