Скачать: CL | DM;

Как получить цвет отдельного пикселя на панели...   Найти похожие ветки 

← →
Vladimir1984 ©   (2006-12-25 02:14) [0]

Ковырялся в инете, нашел что-то похожее.....но не работает =(
Если поможет кто, если поможет кто, буду очень признателен.

procedure TForm1.Timer1Timer(Sender: TObject);
var
 DC: HDC;
 Cur: TPoint;
 ColorValue: Cardinal;
begin
  DC := GetDC( 0 );
  // Получаю координаты курсора
 GetCursorPos( Cur );
  // Узнаю цвет пикселя в полученных координатах
 ColorValue := GetPixel( DC, Cur.X, Cur.Y );
  // Показываю полученный цвет
 PanelMonitor.Color := ColorValue;
  // Показываю красную составляющую цвета
 TrackRValue.Position := GetRValue( ColorValue );
  // Показываю зеленую составляющую цвета
 TrackGValue.Position := GetGValue( ColorValue );
  // Показываю синюю составляющую цвета
  TrackBValue.Position := GetBValue( ColorValue );
  ReleaseDC( 0, DC );
end;


---

← →
Германн ©   (2006-12-25 02:33) [1]

> Vladimir1984 ©   (25.12.06 02:14)
>
> Ковырялся в инете, нашел что-то похожее.....но не работает
> =(

Что значит "не работает"?
P.S. "Ковыряться" лучше в справке, имхо.

---

← →
Vladimir1984 ©   (2006-12-25 02:41) [2]

TrackRValue.Position
Постоянно на ней ошибка...

ЗЫ...Я новичек в Delphi...ковыряюсь пока только по форумам=)

---

← →
Германн ©   (2006-12-25 02:54) [3]

> Vladimir1984 ©   (25.12.06 02:41) [2]
>
> TrackRValue.Position
> Постоянно на ней ошибка...

Какая ошибка?
Ну что, прикажешь делать? Применить к тебе допрос 3-ей степени? :-)

---

← →
Vladimir1984 ©   (2006-12-25 03:17) [4]

у меня с объяснением большая трабла....не могу я думать как вы программисты =) Неприятно конечно, но ничего поелать не могу...

---

← →
Vladimir1984 ©   (2006-12-25 03:18) [5]

Undeclare Identifer =)

---

← →
Германн ©   (2006-12-25 03:27) [6]

Имхо, не стОит "ковыряться в инете"!
Нет на тебя Кэтмара, но предложу всё-таки метлу.
Других вариантов просто не вижу!

---

← →
Vladimir1984 ©   (2006-12-25 04:10) [7]

> Имхо, не стОит "ковыряться в инете"!

Я просто привык все осваивать методом тыка, проб и ошибок, до программирования все работало...Да и с программированием что то получается...Криво ппц...
Так как же мне поступить? Предложите различные пособия? А смысл, это куча времени...толку может и больше...

---

← →
ors_archangel ©   (2006-12-25 05:09) [8]

> Undeclare Identifer =)

- неизвестный идентификатор, видимо, TrackRValue нигде не определён или не доступен из данного кода. Т.к. TrackRValue имеет свойство Position, то это, видимо, контрол, например, TScrollBar подходит, т.о. на форме, где у тебя стоит таймер Timer1 нужно три полосы прокрутки (TScrollBar) и называться они должны (свойство Name) TrackRValue, TrackGValue и TrackBValue соответственно.
Удачи в программировании!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.029 c