طریقه تغییر ابعاد صفحه نمایش
طریقه تغییر ابعاد صفحه نمایش
آخرین ویرایش به وسیله vcldeveloper : دوشنبه 06 اسفند 1386 در 17:16 عصر
من دنبال یه سرس میگردم که فایلهای PDF تبدیل کنه به WORD که بتونم تو بانکم ازش استفاده کنم
ممنون میشم کمکم کنید
داخل فایل پروژهبرنامه درست کار کرد ولی کجا باید کدی نوشت یا تنظیمی کرد که من پیدا نکردم؟
سلام
خیلی ممنون از همه دوستان به لحاظ قراردادن کدهای کوتاه از برنامه های مختلف در دلفی.
امیدوارم شاد و پاینده باشید.
یا علی
برنامه ای برای لیست کردن محتویات یک پوشه(چیزی شبیه دستور Dir در Dos ).
آخرین ویرایش به وسیله vcldeveloper : دوشنبه 06 اسفند 1386 در 17:16 عصر
برنامه ای برای نمایش پیغام بر روی صفحه نمایش.
آخرین ویرایش به وسیله vcldeveloper : دوشنبه 06 اسفند 1386 در 17:16 عصر
برنامه ای برای ایجاد طیف رنگی
منبع
آخرین ویرایش به وسیله vcldeveloper : دوشنبه 06 اسفند 1386 در 17:16 عصر
تست معتبر بودن تاریخ ورودی
آخرین ویرایش به وسیله vcldeveloper : دوشنبه 06 اسفند 1386 در 17:16 عصر
برنامه ای برای نمایش Label به صورت مورب
آخرین ویرایش به وسیله vcldeveloper : دوشنبه 06 اسفند 1386 در 17:16 عصر
دوستان ببخشید کمی اصلاحی داشت
تست معتبر بودن تاریخ ورودی
آخرین ویرایش به وسیله vcldeveloper : دوشنبه 06 اسفند 1386 در 17:16 عصر
این نمونه برنامه ورود و یا خروج یک دستگاه USB رو تشخیص می ده
آخرین ویرایش به وسیله vcldeveloper : دوشنبه 06 اسفند 1386 در 17:16 عصر
این نمونه برنامه یک آهنگ رو می تونه هم از اسپیکر و هم از کیس پخش کنه .
البته کدهای این برنامه رو دوست عزیزم Damavand محبت کردند .
آخرین ویرایش به وسیله vcldeveloper : دوشنبه 06 اسفند 1386 در 17:16 عصر
یک Combobox با item های دارای CheckBox و Property BidiMode برای راست چین :
برگرفته از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 تا
آقای کـشاورز زحمت کشیدند تمام زحمات دوستان را پاک کردند !
این رو من داشتم برات گذاشتم . شاید بدردت بخورد ...
من اون ضمیمه ها رو پاک نکردم! ظاهرا در حین پاک کردن پست های زائد این تاپیک اشکالی بوجود اومده و تمام ضمائم موجود قبل از اون تاریخ پاک شدند. فعلا موضوع در دست بررسی هست که چرا اینطوری شد و آیا امکان برگردانند ضمیمه های پاک شده وجود داره یا نه.آقای کـشاورز زحمت کشیدند تمام زحمات دوستان را پاک کردند !
وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.
متاسفم، ظاهرا امکان بازگرداندن ضمیمه های پاک شده وجود ندارد. سعی کردیم عملیات انجام شده را بازبینی و تکرا کنیم تا متوجه اشکال بوجود آمده بشویم، ولی در هیچیک از آزمایش های انجام شده نتوانستیم مشکل ایجاد در این تاپیک را تکرار کنیم تا اشکال مربوطه مشخص شود.
از آنجایی که این تاپیک بدون ضمیمه هایی که دوستان در طول این مدت زحمت کشیده بودند و ارسال کرده بودند، بی ارزش می شود، به زودی این تاپیک را قفل می کنم و تاپیک جدیدی با همین عنوان ایجاد می کنم تا دوستان هر تعداد از سورس کدهای منتشر شده در این تاپیک را که دارند + سورس های جدید در تاپیک جدید قرار بدهند. انشاء الله که دوستان همکاری بکنند و از سورس های قبلی و جدید منبع خوبی برای سایر کاربران ایجاد کنند.
برای این منظور به کاربری نیاز داریم که بتواند وقت بیشتری در تاپیک جدید برای جمع آوری سورس کدها صرف کند، و از طرف دیگر، اندیکسی از سورس های فراهم شده در صفحه اول تاپیک ایجاد کرده و آن اندیکس را مدیریت کند. البته این مطلب به معنی آن نیست که فقط آن فرد خاص در آن تاپیک سورس کد اضافه می کند، بلکه از همه دوستان تقاضا می شود که در جمع آوری سورس کدها کمک کنند و در حفظ نظم آن کوشا باشند.
دوستانی که تمایل به همکاری فعالانه در تاپیک مورد نظر را دارند، لطفا در همین تاپیک اعلان آمادگی کنند تا از بین آنها فردی برای این منظور انتخاب شود. لطفا فقط در صورتی اعلان آمادگی کنید که:
1- حداقل یک سال در سایت فعالیت کرده باشید و با قوانین سایت آشنایی داشته باشید.
2- با دلفی و کدهای آن آشنایی در حد متوسط داشته باشید.
3- امکان فعالیت مستمر حداقل برای چند ماه را داشته باشید.
4- حوصله ایندکس کردن سورس ها و مرتب کردن موضوعی آنها، پیدا کردن سورس های تکراری، و گزارش کردن پست های خلاف قوانین سایت را داشته باشید.
لطفا فعلا از ارسال سورس کدهای جدید به این تاپیک خودداری کنید تا تاپیک جدیدی برای این منظور ایجاد شود.
با تشکر از شما و عرض معذرت از بابت مشکل بوجود آمده
وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.
... چه بگویم که غم از دل برود چون تو بیایی
قضیه چیه این آقای کشاورز اکثر برنامه ها رو پاک کرده؟ مشکلش چیه؟
مشکلش اینه که کاربران این بخش حوصله نمی کنند یک صفحه توضیح در همین صفحه رو بخونند و دائما اینجا یا در بخش های دیگه غر میزنند، انگار اصلا توضیحی داده نشده!قضیه چیه این آقای کشاورز اکثر برنامه ها رو پاک کرده؟ مشکلش چیه؟
https://barnamenevis.org/showpo...&postcount=266
https://barnamenevis.org/showpo...&postcount=267
وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.
از اونجایی که فعلا هیچ بازخورد مثبتی دریافت نشده و این تاپیک هم به شکل فعلی کاربرد خاصی نداره، و پست های چند روز اخیر هم نشون دادن که در صورت باز بودن این تاپیک فعالیت مفیدی صورت نخواهد گرفت، این تاپیک رو قفل می کنم.
لطفا دوباره کسی نیاد بپرسه، چرا ضمیمه های این تاپیک پاک شدند، چون توی صفحه قبل توضیح دادم!
آخرین ویرایش به وسیله vcldeveloper : دوشنبه 20 اسفند 1386 در 00:45 صبح
وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.