| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как получить цвет отдельного пикселя на панели...
Vladimir1984 © (2006-12-25 02:14:00)Ковырялся в инете, нашел что-то похожее.....но не работает =(
Если поможет кто, если поможет кто, буду очень признателен.
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;
ors_archangel (2006-12-25 05:09:00) [1]
> Undeclare Identifer =)
- неизвестный идентификатор, видимо, TrackRValue нигде не определён или не доступен из данного кода. Т.к. TrackRValue имеет свойство Position, то это, видимо, контрол, например, TScrollBar подходит, т.о. на форме, где у тебя стоит таймер Timer1 нужно три полосы прокрутки (TScrollBar) и называться они должны (свойство Name) TrackRValue, TrackGValue и TrackBValue соответственно.
Удачи в программировании!
Vladimir1984 (2006-12-25 04:10:00) [2]
> Имхо, не стОит "ковыряться в инете"!
Я просто привык все осваивать методом тыка, проб и ошибок, до программирования все работало...Да и с программированием что то получается...Криво ппц...
Так как же мне поступить? Предложите различные пособия? А смысл, это куча времени...толку может и больше...
Германн (2006-12-25 03:27:00) [3]Имхо, не стОит "ковыряться в инете"!
Нет на тебя Кэтмара, но предложу всё-таки метлу.
Других вариантов просто не вижу!
Vladimir1984 (2006-12-25 03:18:00) [4]Undeclare Identifer =)
Vladimir1984 (2006-12-25 03:17:00) [5]у меня с объяснением большая трабла....не могу я думать как вы программисты =) Неприятно конечно, но ничего поелать не могу...
Германн (2006-12-25 02:54:00) [6]
> Vladimir1984 © (25.12.06 02:41) [2]
>
> TrackRValue.Position
> Постоянно на ней ошибка...
Какая ошибка?
Ну что, прикажешь делать? Применить к тебе допрос 3-ей степени? :-)
Vladimir1984 (2006-12-25 02:41:00) [7]TrackRValue.Position
Постоянно на ней ошибка...
ЗЫ...Я новичек в Delphi...ковыряюсь пока только по форумам=)
Германн (2006-12-25 02:33:00) [8]
> Vladimir1984 © (25.12.06 02:14)
>
> Ковырялся в инете, нашел что-то похожее.....но не работает
> =(
Что значит "не работает"?
P.S. "Ковыряться" лучше в справке, имхо.
| |
