i) +3 / 4 ; ((t>=0.45) and (t <= 0.65) and colshkr [i, j]) then colshkr [i, j]:=truecolshkr [i, j]:=false; colshkr [i, j]:= false;; i:=1 to bmpin.Width doj:=1 to bmpin.Height do:=bmpin.Canvas.Pixels[i,j];:=GetRValue(color);:=GetGValue(color);:=GetBValue(color);:=round(0.3*r+0.59*g+0.11*b);.Canvas.Pixels[i,j]:=rgb(r,r,r);;i:=2 to (bmpp.Width - 1) doj:=2 to (bmpp.Height - 1) do [1]:=getrvalue (bmpp.Canvas.Pixels [i - 1, j - 1]); [2]:=getrvalue (bmpp.Canvas.Pixels [i, j - 1]); [3]:=getrvalue (bmpp.Canvas.Pixels [i +1, j - 1]); [4]: ??= getrvalue (bmpp.Canvas.Pixels [i - 1,j]);[5]:=getrvalue(bmpp.Canvas.Pixels[i,j]);[6]:=getrvalue(bmpp.Canvas.Pixels[i+1,j]);[7]:=getrvalue(bmpp.Canvas.Pixels[i- 1,j+1]);[8]:=getrvalue(bmpp.Canvas.Pixels[i,j+1]);[9]:=getrvalue(bmpp.Canvas.Pixels[i+1,j+1]);:=abs(z[7]+2*z[8]+z[9]-z[1]- 2 * z [2]-z [3]);:=abs (z [3] +2 * z [6] + z [9]-z [1] - 2 * z [4]-z [7 ]);:=abs (z [2] +2 * z [3]-z [4] + z [6] - 2 * z [7]-z [8]);:=abs (2 * z [ 9] + z [8] + z [6]-z [4]-z [2] - 2 * z [1]);:=50; ((h1> x) or (h2> x) or (h3> ; x) or (h4> x)) then bmpp.Canvas.Pixels[i,j]:=clBlackbmpp.Canvas.Pixels[i,j]:=clWhite;;(bmpin,bmpout,colshkr);.Picture.Assign(bmpout);.AutoSize :=True;. AutoSize:=false;:=Image3.Height / h;:=Image3.Width / w; (HH> WW) then.Height:=trunc (Image3.Height / HH);. Width:= trunc (Image3.Width / HH);. Stretch:=True;. Height:=trunc (Image3.Height / WW);. Width:=trunc (Image3.Width / WW);. Stretch:=True;;
