[alexusankov]

Доброго дня товарищи.
Имеется две формы. В первой форрме происходит вот такое :

Код:

form2.image1.canvas.brush.color := clGreen;
form2.image1.canvas.rectangle(0,0,720,9);

При этом на второй форме рисуется прямоугольник 720 на 9 , зеленый.
Однако когда я хочу на второй форме посчитать кол-во зеленых пикселей, то не получается. Например код в цикле :

Код:

if image1.canvas.pixels[3,3] = clGreen then x := x + 1 ;

То условие не сработает. Что делаю не так?

[NumLock]

Код:

if form2.image1.canvas.pixels[3,3] = clGreen then x := x + 1 ;

размер картинки больше или равен 720 на 9?

[alexusankov]

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

Код:

if form2.image1.canvas.pixels[3,3] = clGreen then x := x + 1 ;

размер картинки больше или равен 720 на 9?

Сам image ровно 720 на 9.
Я пытаюс так :

Код:

for x := 1 to 720 do if image1.canvas.pixels[x,3] = clGreen then y := y + 1;

Т.е. по русски сказать, есть временной отрезок у меня, в виде image. На нем зеленым закрашены часы, например с 2 до 3 дня.
Этим кодом пытаюсь посчитать кол-во часов.
1 пиксель = 2 минуты. но это уже другая история)

[icWasya]

ну осталось только посмотреть отладчиком

Код:

var
  C:TColor;
  X,Y:Integer;


Y:=0;
for X:=1 to 720 do
begin
  C:=form2.image1.canvas.pixels[X,3];
  if C = clGreen then
    Y:=Y+1;
end;

выключить оптимизацию, сделать останов на строке 10 и посмотреть, чему равен C;

[alexusankov]

Включил отладчик - меня просто убило.
Итак, нужное мне значение называется не 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);

[NumLock]

кошмар...

1. clGreen = TColor($008000);
2. ColorToString(clGreen) = "clGreen"
3. ColorToString($00008200) = $00008200

[M.A.D.M.A.N.]

Колор видимо левый и не входит в перечень определенных констант, вот тебе и выдает шестнадцатиричное значение.
По Ctrl сходи в функцию, увидишь как работает.