به هر حال ممنون از اين همه كامپوننتي كه معرفي كردي.
البته واقعا بعضيهاشون خيلي سخت نيست و با همون 2 خط ميشه درستش كرد ولي چون خيلي از دوستان هنوز اون كدها رو نميدونن كاربرد خوبي داره.
موفق باشي.
Printable View
به هر حال ممنون از اين همه كامپوننتي كه معرفي كردي.
البته واقعا بعضيهاشون خيلي سخت نيست و با همون 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 خراب هستند لطفا چک کنید
ممنون
همه رو چک کردم سالم سالمن