Отображение в Label периода с помощью таймера

[mihali4]

Извиняюсь, забыл, что там про разложение цветов.
Вот практически решение:
Label2.Caption:=IntToStr(ColorToRGB (Image1.Canvas.Pixels[x,y]));
Только тут число цвета ColorToRGB(Image1.Canvas.Pixels[x,y]) выводится в десятичной форме.
Вам осталось только перевести полученный цвет в 16-ю систему и вывести три составляющих.
Этот вопрос рассматривался, поищите по "RGB".

[DenSuper007x]

А это где? Не могу на сайте найти, заблудился

[mihali4]

Что-то и я уже "заблудился"
Функция ColorToString дает цвет в виде строки $00RRGGBB.
Вам осталось вывести ее в виде 'R='+RR+' G='+GG+' B='+BB.
ВСЕ!!!

[DenSuper007x]

Это как? Я с таким вообще первый раз работаю, никогда не переводил, как код дополнить? Ничего не понимаю

[mihali4]

Сообщение от DenSuper007x

Это как? Я с таким вообще первый раз работаю, никогда не переводил, как код дополнить? Ничего не понимаю

С чем "первый раз работаю"? Со строкой???
Есть строка такого вида (она получается в результате выполнения функции ColorToStr):
$00RRGGBB
Из нее нужно выделить два символа RR, два символа GG, два символа BB и расписать их в лэйбле, как я привел пример.
Что тут шкодного-то?

[DenSuper007x]

"Из нее нужно выделить два символа RR, два символа GG, два символа BB и расписать их в лэйбле, как я привел пример."
Вот именно это я и не понял

[DenSuper007x]

Вот такой должен быть код:
Label2.Caption:= IntToStr(GetRValue(ColorToRGB(Image 1.Canvas. Pixels[x,y])))+IntToStr(GetGValue(ColorToRGB(I mage1.Canvas. Pixels[x,y])))+IntToStr(GetBValue(ColorToRGB(I mage1.Canvas. Pixels[x,y])));?
Если да, то там какое-то длинное число получается, или так и должно быть?

[mihali4]

Читаем хэлп:

Delphi syntax:
function Copy(S; Index, Count: Integer): string;
Returns a substring of a string

Из строки "Привет" вы способны выделить в другую строку "иве"?
Если нет - вперед, учить "матчасть"... Учебников на сайте нашего клуба полно.