Pytanie do programu 'pobierz kolory' umieszczonego na str.

0

Program po najechaniu myszką na konkretny punkt np.(200,200) pokazuje na jaki kolor najechaliśmy np.RGB(200,120,210)
Potrzebuje go zmodyfikować tak żeby:
Po najechaniu na konkretny punkt np.(20,100) i natrafieniu na kolor np.(190,150,126) program wyświetlił ten
kolor w komponencie edit jako liczbę 1. Jeśli najadę na inny konkretny punkt np.(100,100) i natrafię na ten sam kolor to żeby wyświetlił go w komponencie edit jako liczbę np.2 itd.. Czy jest możliwe zrobienie tego za pomocą instrukcji if?

0

jest mozliwe jak najbardziej [diabel] odpowiedz na tej stronie

0

Jeśli jest to możliwe to napisz instrukcje.

0

z czym Ty masz problem?
Kolor podany masz jak na tacy, musisz tylko sobie ustalić na jaki kolor ma reagować i go porównywać, a potem dodawać do jakiejś zmiennej 1 i wyświetlać tą zmienną w TEdit.
Chyba, że chcesz żeby na każdym punkcie program reagował tylko raz to się przyda jakaś tablica gdzie te punkty zapisywać będziesz na które program już zareagował wcześniej.
Tak czy inaczej instrukcja if jest niezbędna, popróbuj ;)

0

Do Arthan:
Nie jestem jakimś super programistą znam zaledwie podstawy Delphi, więc nawet proste rzeczy są dla mnie problemem.

0

ja też nie jestem jakimś super programistą (jeszcze :) )

Masz tam zmienne:
P.x i P.Y - które zawierają pozycje kursora myszy
kolor - określający kolor piksela pod kursorem myszy

kod może wyglądać np. tak:

var
  TwojKolor: TColor;
...
TwojKolor := RGB(190,150,126);
if (P.x = 20) and (P.y = 100) and (Kolor = TwojKolor) then Edit1.Text := '1';
if (P.x = 100) and (P.y = 100) and (Kolor = TwojKolor) then Edit1.Text := '2';
0

Dzięki serdeczne :-)

1 użytkowników online, w tym zalogowanych: 0, gości: 1