Включил отладчик - меня просто убило.
Итак, нужное мне значение называется не clGreen , а $00008200. окей, хорошо, теперь начинается самое интересное ))
Код
Код:
if colortostring(image1.Canvas.Pixels[3,3]) = '$00008200' then application.MessageBox('','');
Работать не будет)))
А в тем временем :
Код:
label1.Caption := colortostring(image1.Canvas.Pixels[3,3]);
if label1.Caption = '$00008200' then application.MessageBox('','');
- прекрасно работает.
Шо за бред?
не хочется такой костыль втыкать в программу
**************
З.ы. Попробовал делать как раньше - стер весь код и написал заново. в таком положении работает. Видать руки кривые :
Код:
for x := 1 to 720 do if colortostring(image1.Canvas.Pixels[x,3]) = '$00008200' then label1.Caption := floattostr(strtofloat(label1.Caption) + 2);