السلام عليكم ورحمة الله وبركاته
وكل عام وانتم بخير
انا اعمل برنامج يقوم بمعالجة الصور واريد السؤال عن :
اذا كان عندي صورة قمت بعرضها عن طريق image component والذي يستخدم لاظهار الصور كيف استطيع تحديد الموقع الحالي بالنسبة لمؤشر الفأرة والذي يمر فوق الصور فأقوم بأخذ (x,y) الحالية في هذه الصورة . وهذا الشيء نجده في الكثير من البرامج المتخصصة في استعراض الصور عند تحريك الفأرة على الصورة فيعطيك القيم الحالية
الرجاء توضيح الكود لهذا . شاكرا لكم تعوانكم معي
ارجو سرعة الرد ان امكن
©
اخي العزيز
المربع
image
لا يمكن استخدامه الا في عمليات العرض فقط اي لايمكنك =استخدامه في عمليات معالجة الصور اي كانة
وبدلا عنه عليك بالمربع
picture
او
نموذج عادي
السلام عليكم
باستخدام picture نستطيع تحديد الموقع الحالي للمؤشر بالنسبة للصورة ولكنك لم توضح كيفية تحديد موقع المؤشر. اعتقد انها باستخدام API
للويندوز. ولكن كيف؟ الرجاء توضيح الكود
السلام عليكم
الأخ العزيز
هل هذا ما تريده ؟
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin form1.Caption:=inttostr( x )+','+inttostr( y); end;
هناك حتى الأحلام أصبحت ممنوعة ...
إنه لعار أن ننتمي لهكذا أوطان ... لكن ... ربما العار أن نكون نحن أبناء لتلكم أوطان .. من يدري ؟!!
ليعلم أولئك ... إنّ الشعوب إنْ هي استيقظت تسحق ظُلامََهَا ...
There, even in dreams u r wanted
To be a programmer, how a nice dream it was
Leaving ...
أعيدوا لإسمي لونه المفضل
شكرا لك لقد حصلت على ما اريد وهو عندما تتحرك الفأرة فوق الصورة تعطيك الاحداثيات الحالية(g)
ممكن تجرب هالفكرة ممكن تفيدك ;)
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Form1.color:=Image1.canvas.pixels[x,y];
end;
وشكرا (*)
هذا الموضوع مغلق.
