그레이스케일 이란 말이 뭐져 ?

그레이로 변환하는걸로 올려드릴께여 ~

원하는 답변이 아니면 지송하구여...

MakeGrayed( Image1.Picture.Bitmap, Image2.Picture.Bitmap );
Image2.Refresh;

procedure TForm1.MakeGrayed(FGlyph, FGrayed : TBitmap);
var x,y,w,h:integer;
    gray : byte;
    p1, p2 : PRGBArray;
begin
   w := FGlyph.width;
   h := FGlyph.height;
   FGrayed.width := w;
   FGrayed.height:= h;
   FGlyph. PixelFormat := pf24bit;
   FGrayed.PixelFormat := pf24bit;

   for y:=0 to h-1 do begin
      p1 := FGlyph. ScanLine[y];
      p2 := FGrayed.ScanLine[y];
      for x:=0 to w-1 do begin

         with p1[x] do
            gray := ( R + G + B ) div 3;

         with p2[x] do begin
            R := gray;
            G := gray;
            B := gray;
         end;
      end;
   end;
end;

즐프 ~

아니면 다시 리플 달아주세요...~