Окей, раз пошла такая пьянка, еще 1 вопрос тогда будет. Код пожалуйста.
Код:
form5.Image1.Canvas.Brush.Color :=clGreen;
form5.Image1.Canvas.Rectangle(0,0,720,9);
*****
Код:
for i:= 1 to 47 do for x := 1 to 720 do if colortostring((FindComponent('image'+inttostr(i)) as Timage).Canvas.Pixels[x,7]) = '$00008200' then (FindComponent('label'+inttostr(i)) as Tlabel).Caption := floattostr(strtofloat((FindComponent('label'+inttostr(i)) as Tlabel).Caption) + 2);
Все работает.
остался 1 вопрос. В итоге у меня на label1.caption появляется количество пикселей * 2 = количество минут.
Как мне сделать, чтобы не ко-во минут показывалось, а кол - во часов / минут.
Т.е. не 190 а 3,10
И тема вопроса не раскрыта. Почему красим в clGreen, а определять приходится не зеленый а его оттенок