resimlerin belli noktalardan bölünmesi

[tuanna]

Arkadaşlar ...
iki gündür...uğraşıyorum ama nasıl yapacağımız bir türlü bulamadım..Mesele su

şimdi bir resmi bölmemiz gerekiyor....resim 3000 x 4000 boyutların bu önemli de değil... kullanıcı bu resimleri tıkladığım yerden bölsün diyor...bende bunun için söle yapıyorum...

resim üzerine tıklanan yere bir panel oluşturuyorum işte panelin height:=3 ve widht ine resimin boyutu kadar yapıyorum...ayrıca sağdan üsten ve soldan da panleler aracılığı ile boyut kontrolü yapıyorum...

sorun benim mantık aşamamda surada başlıyor....
ben tıklanan yerin kordinatlarını bir veri tabanına yazıyorum...daha sonra bunları kullanmam gerekecek ama...kişi yanlış bir yer belirlediğinde geri silmek istiyor...burada oluşan paneli free ediyorum ama....panelle ilgli aldığım veriler veri tabanında duruyor...
bir de mesala yeni bir resme geçtiğimde aldığım bütün kordinatlar ile oluşturduğum klavuz çizgilerini temizlemem gerekiyor... yardımcı olursanız sevinirim...

[miskin]

Panel yerine cizgi ile calis. Popup menu ile kullaniciya degisik alternetifler sun kayit et veya vazgec gibisinden.
Dikdörtgen nasil cizdiririm diye formda arama yaptir, suan aklima gelmiyor

asagidaki code tam calismiyor

Kod: Tümünü seç

procedure TFormMainBike.HotSpotImageBikeWare1Click(Sender: TObject); 
var 
  p :tpoint; 
  rechteck : trect; 
begin 
GetCursorPos(p); 
HotSpotImageBikeWare1.ScreenToClient(...);
rechteck.Left := p.x -20; 
rechteck.Right := p.x +20; 
rechteck.Top := p.y -20; 
rechteck.Bottom := p.y+20; 
image1.Height := 40; 
image1.Width := 40; 
image1.Canvas.CopyRect;(rechteck,HotSpotImageBikeWare1.Picture.Bitmap.Canvas,rechteck); 
image1.Visible := true; 

almancan varsa asagidaki yönlendiricide (link?) tutorial ve Sourcecode
http://www.kasparsoft.de/GraphicObject/ ... index.html