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

[rasool_brn]

طریقه تغییر ابعاد صفحه نمایش

[Valadi]

یه کامپوننت OpenSource که به زودی فایل فارسی ساز و RTL شدش رو براتون می فرستم.
برای کنترل سطح دسترسی کاربران Login و ... که با ADO,BDE,DBEXPRESSو ... کار می کنه

من که خیلی باهاش حال کردم حالا بقیه دوستان رو نمی دونم
موفق باشید.

با سلام

که به زودی فایل فارسی ساز و RTL شدش رو براتون می فرستم.

پس چی شد ؟

[ali_abbasi22145]

برنامه ای که یک بار اجرا می شود .

توضیحات :
زمانی که بر روی فایل اجرایی یک برنامه دابل کلیک می کنید برنامه اجرا می شود و اگر دوباره بر روی فایل اجرایی آن دابل کلیک کنید مجدداً اجرا می شود و در چنین شرایطی دو برنامه باز خواهید داشت که ممکن است مشکلاتی را بوجد بیاورند . برای جلوگیری از این حالت از مثال زیر استفاده کنید .

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

[stringer]

من دنبال یه سرس میگردم که فایلهای PDF تبدیل کنه به WORD که بتونم تو بانکم ازش استفاده کنم
ممنون میشم کمکم کنید

[rasool_brn]

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

داخل فایل پروژه

[ali_abbasi22145]

داخل فایل پروژه

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

[Mohajer_Moh]

سلام

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

[rasool_brn]

برنامه ای برای لیست کردن محتویات یک پوشه(چیزی شبیه دستور Dir در Dos ).

[rasool_brn]

برنامه ای برای نمایش پیغام بر روی صفحه نمایش.

[rasool_brn]

برنامه ای برای ایجاد طیف رنگی
منبع

[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&Itemi  d=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

[seyed_farid]

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

[vcldeveloper]

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

مشکلش اینه که کاربران این بخش حوصله نمی کنند یک صفحه توضیح در همین صفحه رو بخونند و دائما اینجا یا در بخش های دیگه غر میزنند، انگار اصلا توضیحی داده نشده!
https://barnamenevis.org/showpo...&postcount=266
https://barnamenevis.org/showpo...&postcount=267

[vcldeveloper]

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

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