Printable View
1- ترانسپرنت فرم 265kb
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
2 - تغییر 13kb Wallpaper
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
3- کامپوننت تماس تلفنی 5kb
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
4-جستجوی سریع فایل 251kb
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
5-استفاده از تصاویر gif دربرنامه 204kb
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
6-ابزار imageeditor برای کامپوننت kdtele tools در قسمت ویرایش فکس 4000kb.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
7- یک WebBrowser به همراه تمامی خاصیت های Ie و یک ChatClient حجم 1000kb
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
تمامی کامپوننت ها برای تمامی نسخه های دلفی 5 به بالا می باشند
کامپوننت شماره 7 علاوه بردلفی نسخه 5-6-7 برای دلفی شماره 2005-2006 هم داره
8- کامپوننت برای ارسال خروجی quickReport به انواع فرمتهای تصاویر 153kb
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
9-کامپوننتی برای روشن و خاموش و لوگ اف ویندوز 2kb
Sample: WinReboot1.WinExit(EWX_REBOOT or EWX_FORCE);
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
10-کامپوننتی برای فوکوس کردن به عنصر بعدی فرم بدون نوشتن کد 5kb
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
11- یک تقویم بسیار کارآمد هجری شمسی 18kb
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
12- کامپوننتی برای پوسته SuiSkin Full Version 4mb
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
13-سورس برنامه آتش بسیار زیبا حیفم اومد نذارم 190kb
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
14- برنامه نوشته شده برای مطب دکتر - سیستم ویزیت بیماران با تمامی امکانات یک برنامه بانک اطلاعاتی نوشته شده در سال 85 - با جستجوی پیشترفته و امکانات بسیار دیگر که کمک شایانی برای افراد می باشد (Open Source ) دارای حجم 2.5 مگابایت بانک اطلاعاتی Access توسط AdoQuery و َAdoConnection .
*** ممکن است در هنگام باز شدن برنامه از شما یکسری کامپوننت بخواهد که این کامپوننت ها در شماره 10-11-12 وجود دارند.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
بعضياشون رو واقعا تعجب مي كنم كه اين كمپوننت به چه دردي مي خوره! آخه دوخط كد نويسي بيشتر نمي خواد مثلا شماره 1.
اون ترنسپرنتی رو که شما میگین دوخطه اگه فرم رو جابجا کنی خودتم میدونی چه اتفاقی میافته ولی اینو امتحان کن بعد نظر بده.نقل قول:
به هر حال ممنون از اين همه كامپوننتي كه معرفي كردي.
البته واقعا بعضيهاشون خيلي سخت نيست و با همون 2 خط ميشه درستش كرد ولي چون خيلي از دوستان هنوز اون كدها رو نميدونن كاربرد خوبي داره.
موفق باشي.
دوست عزيز مي دونم كاربردش چيه ولي منو ببخش چون بعضي وقتا آدم فكر مي كنه كه هرچي رو كه خودش بلده همه بلدن! من هم از اين قاعده مستثنا نيستم! در ضمن براي اون چيزي هم كه شما ميگي خودم كد نوشتم.نقل قول:
حالا لینک آخری رو درست کردم دیگه مشکلی ندارهنقل قول:
17- برای ایجادMsgBox های متنوع با افکت های گوناگون 670kb
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
18- چاپ محتویات یک Tstringgrid
کد:uses
Printers;
procedure PrintGrid(sGrid: TStringGrid; sTitle: string);
var
X1, X2: Integer;
Y1, Y2: Integer;
TmpI: Integer;
F: Integer;
TR: TRect;
begin
Printer.Title := sTitle;
Printer.BeginDoc;
Printer.Canvas.Pen.Color := 0;
Printer.Canvas.Font.Name := 'Times New Roman';
Printer.Canvas.Font.Size := 12;
Printer.Canvas.Font.Style := [fsBold, fsUnderline];
Printer.Canvas.TextOut(0, 100, Printer.Title);
for F := 1 to sGrid.ColCount - 1 do
begin
X1 := 0;
for TmpI := 1 to (F - 1) do
X1 := X1 + 5 * (sGrid.ColWidths[TmpI]);
Y1 := 300;
X2 := 0;
for TmpI := 1 to F do
X2 := X2 + 5 * (sGrid.ColWidths[TmpI]);
Y2 := 450;
TR := Rect(X1, Y1, X2 - 30, Y2);
Printer.Canvas.Font.Style := [fsBold];
Printer.Canvas.Font.Size := 7;
Printer.Canvas.TextRect(TR, X1 + 50, 350, sGrid.Cells[F, 0]);
Printer.Canvas.Font.Style := [];
for TmpI := 1 to sGrid.RowCount - 1 do
begin
Y1 := 150 * TmpI + 300;
Y2 := 150 * (TmpI + 1) + 300;
TR := Rect(X1, Y1, X2 - 30, Y2);
Printer.Canvas.TextRect(TR, X1 + 50, Y1 + 50, sGrid.Cells[F, TmpI]);
end;
end;
Printer.EndDoc;
end;
//Examplem- ahmadl:
procedure TForm1.Button1Click(Sender: TObject);
begin
PrintGrid(StringGrid1, 'Print Stringgrid');
end;
19- کامپوننتی برای داشتن یک " Tip of the Day " حجم 213kb
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
20- کامپوننتی برای اسکن کردن با هر نوع اسکنری 98kb
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
21- یک کامپوننت برای اجرای فایلهای mp3 به همراه کد اجرائی 14kb
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
22- کامپوننتی برای فیلمبرداری از صفحه فعال ویندوز یا دسکتاپ ویندوز 140kb
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
23- یک برنامه برای text2speech متفاوت با کد اجرائی 185kb
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
24- کامپوننتی برای متحرک سازی متن در دلفی 7kb
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
25- کامپوننت های عربی مثل edit حجم 4kb
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام
دوست عزیز چند تا از لینکها مثل kdimage و برنامه مطب و msgbox خراب هستند لطفا چک کنید
ممنون
همه رو چک کردم سالم سالمن
پس چرا لینکی برای دانلود نمیاد
باید روی کلید free تو سایت رپید کلیک کنی عبارت داده شده رو تو editbox بنویسی و دانلود کنی
من همین الان چک کردم
به هر حال ممنون
سلام
اول خیلی هاشون که خیلی بدرد نمیخوره بماند.
توی هر پست 1 کمپننت معرفی کردی.
اگر میشه پست ها رو ویرایش کنید و توی یک پست همه رو قرار بدید.
در آخر اگر میشه از این سایت راپیدشیر لینک نگذارید.(لینک مستقیم قرار بدید)
بای
لیست کامل
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]نقل قول:
نوشته شده توسط ahmad1358
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]کد:Sample: WinReboot1.WinExit(EWX_REBOOT or EWX_FORCE);
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
تشکر از احمد جان.
به هر حال دستون درد نكنه. چه بدرد بخوره چه نخوره.
براش زحمت كشيدن ديگه. پس حداقل ارزش ديدن داره. احمد جان ممنون
Ok
باي:11:
تو پست های مختلف میذارم که جدیدیا معلوم شن.
ولی لینک مستقیمو از این به بعد میذارم البته من اول فایلها رو میگیرم تست میکنم بعد میذارم تو پست
30-تابعی برای تیز تر کردن لبه های یک تصویر Sharpen
کد:procedure Sharpen(sbm, tbm: TBitmap; alpha: Single);
//آلفا باید بزرگتر از 1 باشد
var
i, j, k: integer;
sr: array[0..2] of PByte;
st: array[0..4] of pRGBTriple;
tr: PByte;
tt, p: pRGBTriple;
beta: Single;
inta, intb: integer;
bmh, bmw: integer;
re, gr, bl: integer;
BytesPerScanline: integer;
begin
Assert((sbm.Width > 2) and (sbm.Height > 2), 'Bitmap must be at least 3x3');
Assert((alpha > 1) and (alpha < 6), 'Alpha must be >1 and <6');
beta := (alpha - 1) / 5; //we assume alpha>1 and beta<1
intb := round(beta * $10000);
inta := round(alpha * $10000); //integer scaled alpha and beta
sbm.PixelFormat := pf24bit;
tbm.PixelFormat := pf24bit;
tbm.Width := sbm.Width;
tbm.Height := sbm.Height;
bmw := sbm.Width - 2;
bmh := sbm.Height - 2;
BytesPerScanline := (((bmw + 2) * 24 + 31) and not 31) div 8;
tr := tbm.Scanline[0];
tt := pRGBTriple(tr);
sr[0] := sbm.Scanline[0];
st[0] := pRGBTriple(sr[0]);
for j := 0 to bmw + 1 do
begin
tt^ := st[0]^;
inc(tt); inc(st[0]); //first row unchanged
end;
sr[1] := PByte(integer(sr[0]) - BytesPerScanline);
sr[2] := PByte(integer(sr[1]) - BytesPerScanline);
for i := 1 to bmh do
begin
Dec(tr, BytesPerScanline);
tt := pRGBTriple(tr);
st[0] := pRGBTriple(integer(sr[0]) + 3); //top
st[1] := pRGBTriple(sr[1]); //left
st[2] := pRGBTriple(integer(sr[1]) + 3); //center
st[3] := pRGBTriple(integer(sr[1]) + 6); //right
st[4] := pRGBTriple(integer(sr[2]) + 3); //bottom
tt^ := st[1]^; //1st col unchanged
for j := 1 to bmw do
begin
re := 0; gr := 0; bl := 0;
for k := 0 to 4 do
begin
re := re + st[k]^.rgbtRed;
gr := gr + st[k]^.rgbtGreen;
bl := bl + st[k]^.rgbtBlue;
inc(st[k]);
end;
re := (intb * re + $7FFF) shr 16;
gr := (intb * gr + $7FFF) shr 16;
bl := (intb * bl + $7FFF) shr 16;
p := pRGBTriple(st[1]); //after inc, st[1] is at center
re := (inta * p^.rgbtRed + $7FFF) shr 16 - re;
gr := (inta * p^.rgbtGreen + $7FFF) shr 16 - gr;
bl := (inta * p^.rgbtBlue + $7FFF) shr 16 - bl;
inc(tt);
if re < 0 then
re := 0
else
if re > 255 then
re := 255;
if gr < 0 then
gr := 0
else
if gr > 255 then
gr := 255;
if bl < 0 then
bl := 0
else
if bl > 255 then
bl := 255;
//this looks stupid, but avoids function calls
tt^.rgbtRed := re;
tt^.rgbtGreen := gr;
tt^.rgbtBlue := bl;
end;
inc(tt);
inc(st[1]);
tt^ := st[1]^; //Last col unchanged
sr[0] := sr[1];
sr[1] := sr[2];
Dec(sr[2], BytesPerScanline);
end;
// copy last row
Dec(tr, BytesPerScanline);
tt := pRGBTriple(tr);
st[1] := pRGBTriple(sr[1]);
for j := 0 to bmw + 1 do
begin
tt^ := st[1]^;
inc(tt); inc(st[1]);
end;
end;
31- دانلود یک فایل با آی پی مخفی
ابتدا یک button , memo بر روی فرم بیاورید.
کد:implementation
{$R *.dfm}
uses
Urlmon;
procedure TForm1.Button1Click(Sender : TObject);
var
ca : iinterface;
rls : Integer;
stat : iBindStatusCallBack;
rr : Cardinal;
tag : _tagBindInfo;
exGuid : tguid;
noIp : Pointer;
res : HResult;
begin
// Make a 0.0.0.0 ip giud
exGuid.D1 := rr;
exGuid.D2 := word('0');
exGuid.D3 := word('.');
// Set Tag options
with tag do
begin
// set "0." ip guid
iid := exGuid;
// set needed size
cbSize := sizeOf('www.big-x.cjb.net');
// Add ip hiding ( not tested, but should work )
securityAttributes.lpSecurityDescriptor := noIp;
securityAttributes.nLength := length('0.0.0.0');
securityAttributes.bInheritHandle := True;
end;{
Extra: res := stat.GetBindInfo(rr, tag);}
//شروع دانلود
try
urlmon.URLDownloadToFile(ca, 'www.big-x.cjb.net', 'filename.htm', 1, stat);
except
ShowMessage('Could not download the webpage!');
end;
memo1.Lines.LoadFromFile('filename.htm');
end;
32-کامپوننت richedit با سورس به همراه فایل اجرائی
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلامنقل قول:
ممنون از كامپوننتهايي كه معرفي مي كنيد،
ولي اميدوارم نخواهيد يك كپي از سايت torry اينجا ايجاد كنيد.
من هم موافقم. مي تونيم كلي كامپوننت خوب و به درد بخور توي سايت torry.net پيدا كنيم.نقل قول:
من كه خودم يادمه كه از حدود 2 سال پيش كه با اين سايت آشنا شدم تا حالا هرچي كمپوننت كه FW بوده رو دانلود كردم و با توجه به اينكه حجمشون هم زياد نيست مي تونم همه رو رو رپيد آپلود كنم. لطفا سعي كنيد اون كامپوننت هايي رو كه با ارزش ترن و پولي هم هستن اگر تونستيد با سورسش گير بياريد. ضمناً معرفي هر كامپوننت توي يك پست در بازه زماني طولاني تر باعث سردرگمي كاربران ميشه .
ضمنا در مورد كامپوننت ها حتي شده به انگليسي توضيح بيشتري بديد.
در كل خيلي از كامپوننت هاي معرفي شده در عمل كاربرد زيادي نداره.
با سلامنقل قول:
لينك 6 كار نميكنه، يعني كار ميكنه ولي فايلي كه دانلود ميشه حجمش 0k هستش. از چند جا هم امتحان كردم مشكل از من نبايد باشه.
اگه اين كامپوننت كرك شده هستش لطف كنيد مجددا آپ كنيد يا برام بفرستيد من در به در دنبالشم.
کام÷وننت واسه اسکن عکس کسی سراغ داره اگه داره لینک دانلود بده و لطفا کرکشم باشه چون من kdimage را ىارم ولي كركش ندارم