Obsługa zdarzeń na przyciśniecie przycisku myszy oraz na "puszczenie" tego klawisza. [Borland C++]

pytanie zadane 2 lipca 2016 w C i C++ przez Raffallo Początkujący (290 p.)

Witam,

uczę się programować i z programowania w C::B przeszedłem do programowania w Borland C++.

Chciałbym zrobić funkcję przesuwania mapy/rysunku w taki sposób, że klikam w danym miejscu i przesuwam w inne miejsce, gdzie puszczam przycisk myszy, a cały obrazek się przesuwa.

Niestety problemem jest, że nie wiem w jaki sposób uzyskać jakiś efekt przy przytrzymaniu klawisza oraz przy jego puszczeniu w programie Borland C++, czy ktoś mógłby udzielić jakiejś porady?

Dodam ponownie, iż się uczę dopiero :)

Z góry dziękuję za pomoc.

1 odpowiedź

odpowiedź 2 lipca 2016 przez JAKUBW Nałogowiec (33,470 p.)
wybrane 2 lipca 2016 przez Raffallo

Najlepsza

Możesz to zrobić na 2 sposoby. Pierwszy prostszy, ale gorzej działający i odbierajacy pewne funkcje, który trzeba tylko włączyć i gotowe. Jest on wbudowany w Builder. Drugi sposób to taki, że sam wszystko piszesz. Ja gdy robiłem edytor map typu właśnie przesuwania elementów to sam napisałem to przesuwanie. Też Ci polecam tak zrobić.

komentarz 2 lipca 2016 przez Raffallo Początkujący (290 p.)

Cały problem polega na tym, że nie wiem jak sprawdzać, kiedy dany klawisz został naciśnięty lub puszczony, bo całą resztę wiem chyba jak wykonać, a w builderze nie znalazłem takiej opcji :(

komentarz 2 lipca 2016 przez JAKUBW Nałogowiec (33,470 p.)

To zdarzenia OnMouseDown oraz OnMouseUP.

komentarz 2 lipca 2016 przez Raffallo Początkujący (290 p.)
edycja 2 lipca 2016 przez Raffallo

A jeszcze mógłbyś mi tylko powiedzieć jak sprawdzić, który z przycisków myszy został kliknięty?

komentarz 3 lipca 2016 przez JAKUBW Nałogowiec (33,470 p.)

Możesz to zrobić korzystając z dwóch klas, które dostajesz w funkcji:

A to przykład użycia tego drugiego:

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
        if(Shift.Contains(ssMiddle))ShowMessage("Srodkowy");
        if(Shift.Contains(ssLeft))ShowMessage("Lewy");
        if(Shift.Contains(ssRight))ShowMessage("Prawy");
}

Gdybyś miał jeszcze jakieś problemy i zapytania to pisz.

komentarz 3 lipca 2016 przez Raffallo Początkujący (290 p.)

Super, działa! :) dziękuję bardzo za pomoc :)

teraz muszę się jeszcze uporać z jednym małym problemem i czas brać się za bazę danych :)

komentarz 3 lipca 2016 przez JAKUBW Nałogowiec (33,470 p.)

Proszę bardzo. Jak trzeba służę pomocą, bo sam to przerabiałem.

komentarz 3 lipca 2016 przez Raffallo Początkujący (290 p.)

a czy zawsze (poza przypadkiem, gdy okno jest zmaksymalizowane) jest tak, że ramka wokół okienka ma 8 pixeli, a na górze dodatkowo dochodzi jeszcze 22 pix ?

Z przesuwaniem już sobie poradziłem dzięki Tobie, tylko teraz robię przybliżanie i oddalanie, to też już w sumie mam zrobione, ale chciałem zrobić żeby "punkt zaczepienia" przy przybliżaniu lub oddalaniu nie znajdował się w początku układu pixelowego, ale w miejscu, w którym znajduje się aktualnie kursor. Problem pojawił się, gdy pobierałem pozycję kursora z "TPoint &MousePos", ponieważ te wsp miały odniesienie do całego ekranu, a nie mojej mapki. W związku z tym musiałem odpowiednio zredukować te współrzędne o położenie programu oraz grubość ramki, tylko chciałem się upewnić, czy takowa ramka ma zawsze tą samą grubość :)

P.S.: z jakiej bazy danych skorzystać? :)

komentarz 3 lipca 2016 przez JAKUBW Nałogowiec (33,470 p.)

Na pewno nie zawsze wynosi tyle, ponieważ są różne systemy, różne kompozycje ekranu itd. Ale przecież zdarzenia OnMouseDown, OnMouseUp oraz OnMouseMove dają Ci X. Wystarczy jeszcze dodać Left obiektu który jest klikany i masz lokalizację (względem parenta na którym leży).

komentarz 3 lipca 2016 przez Raffallo Początkujący (290 p.)

to wiem, ale przy przybliżaniu i oddalaniu korzystam z OnMouseWheelDown, OnMouseWheelUp i OnMouseWheel, gdzie takiej lokalizacji neistety nie podają

komentarz 3 lipca 2016 przez JAKUBW Nałogowiec (33,470 p.)

Przybliżasz całą planszę? A ma planszy masz TImage?

komentarz 3 lipca 2016 przez Raffallo Początkujący (290 p.)

mam TPaintBox, który przyjmuje rozmiar TFrame, ale nie wiem czy o to pytałeś.

A przybliżając lub oddalając zmieniam po prostu skalę i jak by rysuję na nowo z nową skalą.

komentarz 3 lipca 2016 przez JAKUBW Nałogowiec (33,470 p.)

Aha, no o to pytałem. Ale ja ci już nie pomogę. Bo w ten sposób nie robiłem. Powodzenia.

komentarz 4 lipca 2016 przez maly Nałogowiec (37,190 p.)

W zdarzeniach OnMouseWheel pozycja myszy jest w zmiennej MousePos.

komentarz 4 lipca 2016 przez Raffallo Początkujący (290 p.)

tak, wiem o tym, ale jak wspomnialem ta pozycja odnosi sie do pozycji na calym ekranie, a ja potrzebuje tylko pozycje na moim TPaintBox

komentarz 4 lipca 2016 przez maly Nałogowiec (37,190 p.)

void __fastcall TForm1::FormMouseWheel(TObject *Sender, TShiftState Shift,
      int WheelDelta, TPoint &MousePos, bool &Handled)
{
	TPoint position = PaintBox1->ScreenToClient(MousePos);
}