[Delphi] Przeciąganie Paintboxa

[Brainer]

Witam.

 

Mam taki problem. Mam komponent TATImagebox i komponent TPaintBox. W zdarzeniu ATImageBox.Image.OnMouseMove mam:

// w OnCreate formy mam ATImageBox.Image.OnMouseMove := MyOnMouseMove;
procedure TMainForm.MyOnMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
 if (Shift = [ssRight]) then
 begin
    PaintBox.Left := X;
    PaintBox.Top := Y;
 end;
end;

Jednak jak przenoszę tego Paintbox'a, to czasem dzieje się tak, jakby się zacinał. Co może być tego powodem i jak to naprawić?

 

Pozdrawiam.

[Toster]

eventy MainForm ida gdy ruszasz myszka nad main formem. Jak ruszasz nad PaintBoxem to pewnie to nie zadziala bo nie dostaniesz zdarzenia na MainFormie. Takie jest moje wrazenie patrzac na ten kod.

[Brainer]

Napisałem przecież w komentarzu, do jakiego komponentu przypisane jest zdarzenie. A komponent pokrywa całą formę, więc wszystko trafia do niego.

 

Poza tym, problem nie leży w tym, czy komunikaty docierają (bo docierają), tylko w tym, że czasem ten PaintBox po prostu jakby się zacinał. Co może być nie tak?

[Toster]

skoro przesuwasz obiekt do wspolrzednych x,y to jego lewy gorny rog jest pod myszka, wiec ruch w prawo/dol nastepuje po PaintBoxie czy po TATImagebox ?

[Cubixmeister]

W OnMouseMove VCL podaje ci pozycję względną, na kontrolce...

Potrzebujesz pozycji względem formatki.

 

procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
var cur: TPoint;
begin
 if (ssCtrl in Shift) then
   begin
     GetCursorPos(cur);
     Memo1.Left:= Memo1.Left + (cur.X - oldpos.X);
     Memo1.Top:= Memo1.Top + (cur.Y - oldpos.Y);
   end;
 GetCursorPos(OldPos);
end;

 

Łapiesz gdzie chcesz i przesuwa ci odpowiednio...

Pisane teraz z pamięci więc nic nie gwarantuje (jest 2 w nocy)

[Brainer]

CYTAT(Toster @ nie, 06 lip 2008 - 23:12)

skoro przesuwasz obiekt do wspolrzednych x,y to jego lewy gorny rog jest pod myszka, wiec ruch w prawo/dol nastepuje po PaintBoxie czy po TATImagebox ?

 

Po TATImageBox.

Dzięki za kod, ale niestety nadal jest to samo.

[xevil21]

Brainer, moim zdaniem jednak Toster ma racje...

czyli ruch w prawo/dol następuje po PaintBoxie.

 

Pozdrawiam!

[Brainer]

Brainer, moim zdaniem jednak Toster ma racje...

czyli ruch w prawo/dol następuje po PaintBoxie.

Tak, obaj mieliście jednak rację. Zwracam honor Toster i dzięki jeszcze raz wam obu!

[Toster]

No Problem

[Brainer]

A jeszcze jedno pytanko - w jaki sposób mogę przestrzec się przed sytuacją przedstawioną na rysunku poniżej (prostokąt selekcji wyszedł poza obszar rysunku)?

[xevil21]

Jak jak

 

Znasz położenie rysunku oraz jego rozmiar

i przed przesunięciem prostokąta selekcji sprawdzasz czy możesz zrobić ruch w osi X oraz Y

 

pseudo kod:

 

if (ProstokatSekcji.Left + ProstokatSekcji.Width + X<=Rysunek.Left+Rysunek.Width) then ProstokatSekcji.Left + X;
if (ProstokatSekcji.Top + ProstokatSekcji.Height + Y<=Rysunek.Topt+Rysunek.Height) then ProstokatSekcji.Top + Y;

 

jeśli dobrze zrozumiałem

 

Ciabah!

[Brainer]

Nein, ten kod nie działa, bo tu dodatkowym utrudnieniem jest to, że gdy przewiniemy scroll w lewo lub w dół, wartości Top i Left się zmieniają i i tak wyjeżdża poza obrazek.

[xevil21]

Nein, ten kod nie działa, bo tu dodatkowym utrudnieniem jest to, że gdy przewiniemy scroll w lewo lub w dół, wartości Top i Left się zmieniają i i tak wyjeżdża poza obrazek.

 

u mnie działa dobrze nawet z suwakami

 

testowałem na ScrollBoxie z wstawionym Image do środka (oczywiście Image miał odpowiednio duży obrazek),

 

po tym wszystkim poruszałem TShapem.

 

Pozdrawiam!