چجوری میشه x,y اول جایی که موس فشرده میشه باشه و x,y دوم جایی که کلید موس رها میشه باشه به همین ترتیب مربعی که بدست میاد به عنوان عکس سیو بشه؟
Printable View
چجوری میشه x,y اول جایی که موس فشرده میشه باشه و x,y دوم جایی که کلید موس رها میشه باشه به همین ترتیب مربعی که بدست میاد به عنوان عکس سیو بشه؟
منظور شما رو برای "مربعی که بدست میاد به عنوان عکس سیو بشه" دقیقا متوجه نشدم. واضحتر توضیح بده.نقل قول:
برای بدست آوردن مختصات، کد زیر رو در OnMouseDown و OnMouseUp قرار بده.
کد:
Shift: TShiftState; X, Y: Integer);
var
position:TPoint;
begin
GetCursorPos(position);
Edit1.Text:=inttostr(position.x);
Edit2.Text:=inttostr(position.y);
end;
دقت کنید...
در ناحیه ای از فرم کلید موس رو فشار میدیم و با درگ کردن یعنی کلید موس رو رها نمیکنیم و در ناحیه ای دیگه کلید موس رو رها می کنیم به این ترتیب مربعی فرضی بدست میاد حالا میخوایم کاری کنیم که هر چی در بین این مربع بود به عنوان عکس سیو بشه دقیقا مثل عمل برنامه SnagIt
دوست عزیز.
روی چه کامپوننتی کار میکنی؟
اگه Image هست ، که خیلی راحت میتونی با بدست آوردن x,y ابتدا و انتها، پیکسلهای مابین این دو نقطه رو از Pixel بخونی و جای دیگه سیو کنی.