Замена цвета image

[beemoto]

Помогите плиз, в чемто я ощибся...

if for a := 1 to 9 do image2.Picture.Bitmap.Canvas.Pixels[a,20] = clWhite
then image2.Height - 1;

т.е. этот код должен проверять: если самая последняя строка(20 пикселей высота) пикселей белая тогда уменьшить ширину на -1 а затем всё заново...

[Alex Cones]

if for a := 1 to 9 do

Местами поменяйте!

[beemoto]

Спасибо помогло, но еще ошибка идет после then ощибки:
[DCC Error] Unit1.pas(86): E2029 ';' expected but '.' found
[DCC Error] Unit1.pas(88): E2029 Declaration expected but end of file found

[Alex Cones]

Then Image2.Height := Image2.height -1;

[beemoto]

сэнкс, туплю) +1

Подскажите а как зделать чтоб эта конструкция заного выполнялось пока for a := 1 to 9 do image2.Picture.Bitmap.Canvas.Pixels[a,20] = clWhite - True?

[TRIZER]

(var i,a:integer;b:booalen;)
for 20 downto 1 do
begin
a:=1;
for i := 1 to 9 do 
if image2.Picture.Bitmap.Canvas.Pixels[a,20] = clWhite then
a:=a+1;
if a=9 then
image2.Height - 1
else
b:=true;
if b then 
break;
end;

что то типа такого ... (не проверял, но должно работать)
Причем в твоем коде ошибка

if for a := 1 to 9 do image2.Picture.Bitmap.Canvas.Pixels[a,20] = clWhite
then image2.Height - 1;

он уменьшит высоту даже если один пиксель белый, а тебе нужна строка белая ...

[QunneD]

Подскажите а как зделать чтоб эта конструкция заного выполнялось пока for a := 1 to 9 do image2.Picture.Bitmap.Canvas.Pixels[a,20] = clWhite - True?

Использовать while