کامپوننت image

[MortezaDelphi]

من یک کامپوننت image لازم دارم که قابلیت zoom کردن را داشته باشه. اگه کسی دارiه حتما upload کنه.
خیلی ممنون

[m-khorsandi]

درود
شما میتونید از ImageEn استفاده کنید،
در مورد Upload کردن یا بهتر بگم خریدن کامپیوننت هم میتونید با آقای کرامتی تماس بگیرید.

[ali_abbasi22145]

سلام
دوست من مدیر بخش بهترین را به شما پیشنهاد کرد من با ImageEN در برنامه ام استفاده کرده و تمام پردازشهای تصویر در حد یک PHOTOSHOP کوچک را انجام داده ام ImageEN خیلی عالی است.

[babak869]

بله واقعا ImageEn حرف نداره و کامپوننت کاملیه
منم همینو پیشنهاد میکنم

[hossein_eshaghian]

اگه کسی لینک دانلود کامپوننت imageen رو داره به ما هم بگه

[Mahyaa]

دانلود نسخه آزمایشی :
http://www.hicomponents.com/ndownloads.asp


.

[MNosouhi]

غیر از موردی که دوستان گفتن با fcimage هم میشه زوم کرد.

[vesal]

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

[شفیعی]

سلام
آیا با استفاده از یک SCROLLBOX و IMAGE می توان عملیلت ZOOM را روی تصویر طراحی نمود چطوری می توان با حرکت میله های SCROLLBOX تصویر را حرکت داد

[Mahyaa]

خوب اگر Image درون اسکرول باشه ، تصویر هم اسکرول میشه دیگه . مشکل کجاست ؟

من Zoom روی TImage رو باستفاده از تغییر عرض و طول TImage با ضریب یک Scale خاص انجام دادم . یه چیزی شبیه این :



Image1.Width := OriginalWidth * Scale;
Image1.Height := OriginalHeight * Scale;


خاصیت Align رو به None تنظیم کردم و Stretch رو هم True .

[شفیعی]

سلام
دوست عزیز من یک IMAGE داخل ScrollBox گذاشته ام که کاربر با زدن یک کلید عملیات زیر انجام می شود فقط می خواهم همیشه تصویر در وسط SCROLLBOX باشد
[code/]
image1.Align :=alNone;
IMAGE1.Left:=0;
IMAGE1.Top :=0;
Image1.Height:=Image1.Height*1.5;
Image1.Width:=Image1.Width*1.5;
ScrollBox1.VertScrollBar.Position:=IMAGE1.Width DIV 2;
ScrollBox1.HorzScrollBar.Position:=Image1.Height DIV 2;
[code]

[Valadi]

با سلام
شما می تونید از کامپونت TFCImage استفاده کنی ضمنا این کامپونت توسط بچه های ایران نوشته شده و رایگان هستش
www.farsicomponents.com


TFCImage displays a graphical image and supports zoom and scroll using
mouse and keyboard.

[echoes]

شاید این یه ایده بهت بده!!



var
Form1: TForm1;
orginalTop,OrginalLeft,orginalW,orginalh:integer;


implementation

{$R *.dfm}

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Image1.Width := ( orginalW + (ScrollBar1.Position * 2));
Image1.Height := ( orginalh + (ScrollBar1.Position * 2));
Image1.Left := ( orginalLeft - ScrollBar1.Position);
Image1.Top := ( orginalTop - ScrollBar1.Position);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
orginalW:=image1.Width;
orginalH:=image1.Height;
orginalTop:=image1.Top;
OrginalLeft:=image1.Left;

end;

end.

البته فقط برای زوم

فایل پروژه هم هست

[شفیعی]

سلام
دوستان اگر زحمتی نیست برنامه زیر را ببینید و بنده را کمک کنید

[Mahyaa]

سلام
دوست عزیز من یک IMAGE داخل ScrollBox گذاشته ام که کاربر با زدن یک کلید عملیات زیر انجام می شود فقط می خواهم همیشه تصویر در وسط SCROLLBOX باشد
[code/]
image1.Align :=alNone;
IMAGE1.Left:=0;
IMAGE1.Top :=0;
Image1.Height:=Image1.Height*1.5;
Image1.Width:=Image1.Width*1.5;
ScrollBox1.VertScrollBar.Position:=IMAGE1.Width DIV 2;
ScrollBox1.HorzScrollBar.Position:=Image1.Height DIV 2;
[code]


تاجایی که من میدونم برای position برای Scroll در محدوده Range تعریف میشه .برای همین هم درستش اینه که برای تنظیم کردن ScrollBox1.VertScrollBar.Position از یک نسبتی از ScrollBox1.VertScrollBar.Range استفاده کنیم .
یه نکته دیگه هم هست . این که مبدا Position برای Scroll اون قسمت بالای Scrollbar برای اسکرول عمودی است (نه قسمت وسط اسکرول) . به همین خاطر وقتی بگیم :


ScrollBox1.VertScrollBar.Position:= ScrollBox1.VertScrollBar.Range Div 2قسمت بالای Scrollbar رو در حوالی وسط قاب (Panel , scrollbax , ...) قرار میده که مطلوب نیست .
فکر کنم با یخورده محاسبه و استفاده از چند تا Property برای Scroll بشه دقیقا محاسبه کرد که چطوری میشه قسمت وسط اسکرول رو درست وسط طول یا عرض قاب قرار داد .

.

[شفیعی]

سلام
دوستان خسته نباشید من می خواهم ZOOM شبیه
ZOOM که در WINDOWS PICTURE هست بنویسم که وقتی کلید ZOOM را می زنی عکس را از وسط بزرگ می کند