
(برای دیدن کد کلیک کنید)
(برای دیدن کد کلیک کنید)
کد ۸
کد 0
کد ۱۰
کد ۱۶
کد ۹
کد ۱
میبینید که از روی خود فرم میتونید فرم رو جابجا کنید. (برای دیدن کد کلیک کنید)
کد ۰
کد ۰
کد ۲۸
کد ۱۵
کد ۲۴
براي نمايش مسيرها از list box استفاده کنيد.
براي اجرا شدن کدها بايد دو يونيت ActiveX, ShlObj را به يونيت برنامه خود اضافه کنيد. (برای دیدن کد کلیک کنید)
کد ۱۵
براي مثال در اين کد از onclick دکمه اي براي فراخواني تابع استفاده کرده ايم.
(برای دیدن کد کلیک کنید)
کد ۱۳
detail enhancment و غيره انجام داد.
فقط کافيه مقادير عددي آرايه 2بعدي که تو مثال اين کد نوشته شده را عوض کنيد. حتما تستش کنيد خيلي جالبه....
براي استفاده 2 يونيت، Graphics, Windows را اضافه کنيد. سپس نوع جديد زير را قبل از کلمه کليدي implementation اضافه کنيد و در نهايت تابع را اضافه کنيد. (برای دیدن کد کلیک کنید)
کد ۱۸
تابع Spray داراي 5 آرگومان است:
Canvas در واقع پرده نقاشي تصوير مورد نظرتان را تعيين ميکند، x,y مختصات مرکزي دايره اي که اسپري ميشود را تعيين ميکند، r شعاع دايره اسپري را مشخص مي کند، Color رنگ اسپري را مشخص مي کند.
توجه کنيد عکس انتخابي حتما Bmp باشد. (برای دیدن کد کلیک کنید)
کد ۱۶
براي استفاده از اين کد بايد يونيت ComObj را به بخش Uses اضافه کنيد. (برای دیدن کد کلیک کنید)
کد ۹
این وبلاگ به نوعی معرفی سایت www.irdelphi.com می باشد.
این سایت در مورد ترفندها و تکه کد برنامه هایی است که در برنامه نویسی مورد استفاده قرار می گیرد. اگر شما یک برنامه نویس باشید می دانید که خیلی مواقع فقط و فقط نیاز به کپی و پیست یک کد دارید تا در وقت خود صرفه جویی کنید.
با توجه به این نکته که برنامه نویسان ایرانی ( از جمله خودم ) تمایل دارند پروژه ها را به صورت انفرادی انجام دهند، این سایت (برنامه نویس دلفی) برایشان کمک بزرگی خواهد بود.
حالا من تو این وبلاگ چه کار می کنم ::: --- >
در این وبلاگ ترفند های ارسال شده در www.irdelphi.com را برای شما دوستان قرار می دهم. امیدوارم کار مفید باشه. و ازش بتونید استفاده کنید.

