سورس کامل برنامه های کاربردی مهم و ضروری دلفی

[dkhatibi]

سلام
مرسی خودم درست کردم.
اما اگر بخواهیم یک progessbar یا gage چیزی شبیه به این در فرم Splash بگذاریم کار نمی کند چون همه چیز غیرفعال می شود.
چون من می خواهم به کاربر نشان دهم که برنامه در حال باز کردن بانک است - چه کنم.

در صورتیکه می خواهید محتویات یک Lable را تغییر دهید بعد از تغییر Caption اون متد Update شی Lable را فراخوانی کنید.
من برای استفاده از ProcessBar قبل از هر formCreate در فایل پروژه مقدار position اونو تغییر میدم و مشکلی هم نیست.

[مجتبی جوادی]

تست معتبر بودن تاریخ ورودی

[ali_abbasi22145]

در صورتیکه می خواهید محتویات یک Lable را تغییر دهید بعد از تغییر Caption اون متد Update شی Lable را فراخوانی کنید.
من برای استفاده از ProcessBar قبل از هر formCreate در فایل پروژه مقدار position اونو تغییر میدم و مشکلی هم نیست.

سلام
اگر لطف کنید با یک مثال برای splash اینجا بگذارید ممنون می شوم.

[rasool_brn]

برنامه ای برای نمایش Label به صورت مورب

[مجتبی جوادی]

دوستان ببخشید کمی اصلاحی داشت
تست معتبر بودن تاریخ ورودی

[dkhatibi]

سلام

اگر لطف کنید با یک مثال برای splash اینجا بگذارید ممنون می شوم.

سلام
در بالای صفحه دکمه ی جستجو را بزنید و splash را جستجو کنید یک مثال توسط آقای احدی گذاشتع شده!

[Saeid59_m]

این نمونه برنامه ورود و یا خروج یک دستگاه USB رو تشخیص می ده

[seyed_farid]

پسوردش؟:تشویق:

[Saeid59_m]

پسوردش؟:تشویق:
ببخشید . دوباره داونلود کنید
این Winrar ما هم قاطی کرده من پسورد نگذاشتم !

[Saeid59_m]

این نمونه برنامه یک آهنگ رو می تونه هم از اسپیکر و هم از کیس پخش کنه .
البته کدهای این برنامه رو دوست عزیزم Damavand محبت کردند .

[Touska]

یک Combobox با item های دارای CheckBox و Property BidiMode برای راست چین :

[Mah6447]

برگرفته از
http://www.sirgan.com/index.php?option=com_content&task=view&id=36&Itemid=38


یجاد طیف رنگی :

از پردازه زیر استفاده کنید :
procedure Tform1.DrawGradient(ACanvas: TCanvas; Rect: TRect
; Horizontal: Boolean; Colors: array of TColor);
type
RGBArray = array[0..2] of Byte;
var
x, y, z, stelle, mx, bis, faColorsh, mass: Integer;
Faktor: double;
A: RGBArray;
B: array of RGBArray;
merkw: integer;
merks: TPenStyle;
merkp: TColor;
begin
mx := High(Colors);
if mx > 0 then
begin

if Horizontal then
mass := Rect.Right - Rect.Left
else
mass := Rect.Bottom - Rect.Top;
SetLength(b, mx + 1);
for x := 0 to mx do
begin
Colors[x] := ColorToRGB(Colors[x]);
b[x][0] := GetRValue(Colors[x]);
b[x][1] := GetGValue(Colors[x]);
b[x][2] := GetBValue(Colors[x]);
end;
merkw := ACanvas.Pen.Width;
merks := ACanvas.Pen.Style;
merkp := ACanvas.Pen.Color;
ACanvas.Pen.Width := 1;
ACanvas.Pen.Style := psSolid;
faColorsh := Round(mass / mx);
for y := 0 to mx - 1 do
begin
if y = mx - 1 then
bis := mass - y * faColorsh - 1
else
bis := faColorsh;
for x := 0 to bis do
begin
Stelle := x + y * faColorsh;
faktor := x / bis;
for z := 0 to 3 do
a[z] := Trunc(b[y][z] + ((b[y + 1][z] - b[y][z]) * Faktor));
ACanvas.Pen.Color := RGB(a[0], a[1], a[2]);
if Horizontal then
begin
ACanvas.MoveTo(Rect.Left + Stelle, Rect.Top);
ACanvas.LineTo(Rect.Left + Stelle, Rect.Bottom);
end
else
begin
ACanvas.MoveTo(Rect.Left, Rect.Top + Stelle);
ACanvas.LineTo(Rect.Right, Rect.Top + Stelle);
end;
end;
end;
b := nil;
ACanvas.Pen.Width := merkw;
ACanvas.Pen.Style := merks;
ACanvas.Pen.Color := merkp;
end ;
end;

نکته :
این پردازه رو باید روی Canvas به کا رببرید . فرقی نمیکنه مال ایمیج باشه . مال فرم باشه . مال پنل باشه یا ...
همونجور که خودتونم میدونید اگه اسم Canvas برده نشه . دلفی Canvas فرم رو در نظر میگیره . افتاد ؟

مثال :
DrawGradient(Image1.Canvas, Rect(0, 0, 100, 200), False, [clRed, $00FFA9B4]);
یا
DrawGradient(Canvas, GetClientRect, True, [clhotlight,clwhite]);
راستی یه چیز دیگه یادم رفت. پارامترای رنگی که استفاده میتونید کنید محدودیتی نداره . میتونید از ۲ تا رنگ استفاده کنید یا از n تا

[samprp]

برنامه ای برای بدست اوردن ولوم درایو های ویندوز :
با استفاده از این برنامه شما میتونید ولوم درایو مورد نظر رو بدست بیارید


برنامه ای جهت بدست آوردن کد اسکی کیبورد :
با استفاده از این برنامه میتونید کد ASCI کلید های کیبورد رو بدست بیارید

پس لینک دانلودش کجاست ؟:اشتباه:
از کجا اینارو دانلود کنم ؟:اشتباه:

[Saeid59_m]

آقای کـشاورز زحمت کشیدند تمام زحمات دوستان را پاک کردند !

[Mah6447]

این رو من داشتم برات گذاشتم . شاید بدردت بخورد ...

[vcldeveloper]

آقای کـشاورز زحمت کشیدند تمام زحمات دوستان را پاک کردند !
من اون ضمیمه ها رو پاک نکردم! ظاهرا در حین پاک کردن پست های زائد این تاپیک اشکالی بوجود اومده و تمام ضمائم موجود قبل از اون تاریخ پاک شدند. فعلا موضوع در دست بررسی هست که چرا اینطوری شد و آیا امکان برگردانند ضمیمه های پاک شده وجود داره یا نه.

[vcldeveloper]

متاسفم، ظاهرا امکان بازگرداندن ضمیمه های پاک شده وجود ندارد. سعی کردیم عملیات انجام شده را بازبینی و تکرا کنیم تا متوجه اشکال بوجود آمده بشویم، ولی در هیچیک از آزمایش های انجام شده نتوانستیم مشکل ایجاد در این تاپیک را تکرار کنیم تا اشکال مربوطه مشخص شود.

از آنجایی که این تاپیک بدون ضمیمه هایی که دوستان در طول این مدت زحمت کشیده بودند و ارسال کرده بودند، بی ارزش می شود، به زودی این تاپیک را قفل می کنم و تاپیک جدیدی با همین عنوان ایجاد می کنم تا دوستان هر تعداد از سورس کدهای منتشر شده در این تاپیک را که دارند + سورس های جدید در تاپیک جدید قرار بدهند. انشاء الله که دوستان همکاری بکنند و از سورس های قبلی و جدید منبع خوبی برای سایر کاربران ایجاد کنند.

برای این منظور به کاربری نیاز داریم که بتواند وقت بیشتری در تاپیک جدید برای جمع آوری سورس کدها صرف کند، و از طرف دیگر، اندیکسی از سورس های فراهم شده در صفحه اول تاپیک ایجاد کرده و آن اندیکس را مدیریت کند. البته این مطلب به معنی آن نیست که فقط آن فرد خاص در آن تاپیک سورس کد اضافه می کند، بلکه از همه دوستان تقاضا می شود که در جمع آوری سورس کدها کمک کنند و در حفظ نظم آن کوشا باشند.
دوستانی که تمایل به همکاری فعالانه در تاپیک مورد نظر را دارند، لطفا در همین تاپیک اعلان آمادگی کنند تا از بین آنها فردی برای این منظور انتخاب شود. لطفا فقط در صورتی اعلان آمادگی کنید که:
1- حداقل یک سال در سایت فعالیت کرده باشید و با قوانین سایت آشنایی داشته باشید.
2- با دلفی و کدهای آن آشنایی در حد متوسط داشته باشید.
3- امکان فعالیت مستمر حداقل برای چند ماه را داشته باشید.
4- حوصله ایندکس کردن سورس ها و مرتب کردن موضوعی آنها، پیدا کردن سورس های تکراری، و گزارش کردن پست های خلاف قوانین سایت را داشته باشید.

لطفا فعلا از ارسال سورس کدهای جدید به این تاپیک خودداری کنید تا تاپیک جدیدی برای این منظور ایجاد شود.


با تشکر از شما و عرض معذرت از بابت مشکل بوجود آمده

[hr110]

MessageDlg فارسی با امکان Gauge (http://barnamenevis.org/forum/showpost.php?p=479611&postcount=3)

[seyed_farid]

قضیه چیه این آقای کشاورز اکثر برنامه ها رو پاک کرده؟ مشکلش چیه؟

[vcldeveloper]

قضیه چیه این آقای کشاورز اکثر برنامه ها رو پاک کرده؟ مشکلش چیه؟
مشکلش اینه که کاربران این بخش حوصله نمی کنند یک صفحه توضیح در همین صفحه رو بخونند و دائما اینجا یا در بخش های دیگه غر میزنند، انگار اصلا توضیحی داده نشده!
http://barnamenevis.org/forum/showpost.php?p=476159&postcount=266
http://barnamenevis.org/forum/showpost.php?p=476735&postcount=267

[vcldeveloper]

از اونجایی که فعلا هیچ بازخورد مثبتی دریافت نشده و این تاپیک هم به شکل فعلی کاربرد خاصی نداره، و پست های چند روز اخیر هم نشون دادن که در صورت باز بودن این تاپیک فعالیت مفیدی صورت نخواهد گرفت، این تاپیک رو قفل می کنم.

لطفا دوباره کسی نیاد بپرسه، چرا ضمیمه های این تاپیک پاک شدند، چون توی صفحه قبل توضیح دادم!