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

← →
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 =)

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

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

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

> Undeclare Identifer =)

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

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