Текущий архив: 2007.01.14;
Скачать: 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 вся ветка
Текущий архив: 2007.01.14;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.15 c
