با اين تابع شما عزيزان به راحتی می توانيد تاريخ ميلادی سيستم را به تاريخ شمسی تبديل و در برنامه های خود مورد استفاده قرار دهيد (برای دیدن کد کلیک کنید)
+ نوشته شده در دوشنبه سی ام مرداد 1385ساعت 1 قبل از ظهر توسط سید مسعود عقیلی
|
قطعا تا کنون با این مورد در برنامه های زیادی روبرو شدید.توسط این کد می توانید تشخیص دهید که ویندوز چه مدت است که در حال اجراست:
(برای دیدن کد کلیک کنید)
+ نوشته شده در جمعه بیست و هفتم مرداد 1385ساعت 0 قبل از ظهر توسط سید مسعود عقیلی
|
+ نوشته شده در پنجشنبه بیست و ششم مرداد 1385ساعت 2 قبل از ظهر توسط سید مسعود عقیلی
|
+ نوشته شده در جمعه سیزدهم مرداد 1385ساعت 6 قبل از ظهر توسط سید مسعود عقیلی
|
+ نوشته شده در چهارشنبه یازدهم مرداد 1385ساعت 4 قبل از ظهر توسط سید شاهرخ نبوی
|
+ نوشته شده در چهارشنبه یازدهم مرداد 1385ساعت 3 قبل از ظهر توسط سید شاهرخ نبوی
|
+ نوشته شده در سه شنبه دهم مرداد 1385ساعت 6 قبل از ظهر توسط سید شاهرخ نبوی
|
+ نوشته شده در سه شنبه دهم مرداد 1385ساعت 3 قبل از ظهر توسط سید شاهرخ نبوی
|
+ نوشته شده در دوشنبه نهم مرداد 1385ساعت 2 قبل از ظهر توسط سید شاهرخ نبوی
|
+ نوشته شده در یکشنبه هشتم مرداد 1385ساعت 2 قبل از ظهر توسط سید شاهرخ نبوی
|
+ نوشته شده در شنبه هفتم مرداد 1385ساعت 5 قبل از ظهر توسط سید شاهرخ نبوی
|
+ نوشته شده در شنبه هفتم مرداد 1385ساعت 3 قبل از ظهر توسط سید شاهرخ نبوی
|
اين تکه برنامه رو قبل از end; قرار بدید .
میبینید که از روی خود فرم میتونید فرم رو جابجا کنید. (برای دیدن کد کلیک کنید)
کد ۰
+ نوشته شده در چهارشنبه چهارم مرداد 1385ساعت 2 قبل از ظهر توسط سید شاهرخ نبوی
|
+ نوشته شده در چهارشنبه چهارم مرداد 1385ساعت 2 قبل از ظهر توسط سید شاهرخ نبوی
|
+ نوشته شده در سه شنبه سوم مرداد 1385ساعت 3 قبل از ظهر توسط سید شاهرخ نبوی
|
+ نوشته شده در سه شنبه سوم مرداد 1385ساعت 3 قبل از ظهر توسط سید شاهرخ نبوی
|
+ نوشته شده در سه شنبه سوم مرداد 1385ساعت 3 قبل از ظهر توسط سید شاهرخ نبوی
|
توسط اين کد که در onclick دکمه نوشته شده مي توانيد مسير درايوها( هم Local Disks و هم CD-Roms) و ديگر فولدرهايي که در My Computer موجود است را بدست آوريد.
براي نمايش مسيرها از list box استفاده کنيد.
براي اجرا شدن کدها بايد دو يونيت ActiveX, ShlObj را به يونيت برنامه خود اضافه کنيد. (برای دیدن کد کلیک کنید)
کد ۱۵
+ نوشته شده در دوشنبه دوم مرداد 1385ساعت 4 قبل از ظهر توسط سید شاهرخ نبوی
|
در واقع ابن کد با تغييراتي در رجيستري ويندوز باعث غير فعال شدن task manager ميشود.
براي مثال در اين کد از onclick دکمه اي براي فراخواني تابع استفاده کرده ايم.
(برای دیدن کد کلیک کنید)
کد ۱۳
+ نوشته شده در دوشنبه دوم مرداد 1385ساعت 4 قبل از ظهر توسط سید شاهرخ نبوی
|
اين تابع جالب، يه جورايي واسه خودش آخر Photoshop. با اين تابع مي تونين کارايي مثل smoothing, anti-aliasing, edge detection,
detail enhancment و غيره انجام داد.
فقط کافيه مقادير عددي آرايه 2بعدي که تو مثال اين کد نوشته شده را عوض کنيد. حتما تستش کنيد خيلي جالبه....
براي استفاده 2 يونيت، Graphics, Windows را اضافه کنيد. سپس نوع جديد زير را قبل از کلمه کليدي implementation اضافه کنيد و در نهايت تابع را اضافه کنيد. (برای دیدن کد کلیک کنید)
کد ۱۸
+ نوشته شده در دوشنبه دوم مرداد 1385ساعت 4 قبل از ظهر توسط سید شاهرخ نبوی
|
بوسيله اين تابع شما مي توانيد قلمي ساخته که روي عکس را به صورت اسپري رنگ آميزي کند.
تابع Spray داراي 5 آرگومان است:
procedure Spray(Canvas: TCanvas; x, y, r: Integer; Color: TColor);
Canvas در واقع پرده نقاشي تصوير مورد نظرتان را تعيين ميکند، x,y مختصات مرکزي دايره اي که اسپري ميشود را تعيين ميکند، r شعاع دايره اسپري را مشخص مي کند، Color رنگ اسپري را مشخص مي کند.
توجه کنيد عکس انتخابي حتما Bmp باشد. (برای دیدن کد کلیک کنید)
کد ۱۶
+ نوشته شده در دوشنبه دوم مرداد 1385ساعت 4 قبل از ظهر توسط سید شاهرخ نبوی
|
به وسيله اين تابع مشخص مي سازيد فايلي که آدرس آن را به عوان آرگومان براي تابع ارسال شده روي درايوي است که سيستم فايل آن NTFS مي باشد. به بيان بسيار ساده سيستم فايل يک درايو همان نوع فرمتبندي آن درايو است که داراي انواع FAT,FAT32,NTFS,LINUX,... ميباشد.
براي استفاده از اين کد بايد يونيت ComObj را به بخش Uses اضافه کنيد. (برای دیدن کد کلیک کنید)
کد ۹
+ نوشته شده در دوشنبه دوم مرداد 1385ساعت 4 قبل از ظهر توسط سید شاهرخ نبوی
|
