Jeg vil gerne have image til at lave (bmp, jpg), om til grå tonede billeder. Som en slags effekt.
<pre>
var
J : TJPegImage;
ms : TMemoryStream;
begin
if Image1.Picture.Bitmap.Empty = False then
begin
J := TJPegImage.Create;
ms := TMemoryStream.Create;
try
J.Assign(Image1.Picture.Bitmap);
J.SaveToStream(ms);
ms.Position := 0;
J.Grayscale := True;
J.PixelFormat := jf8bit;
J.LoadFromStream(ms);
image1.Picture.Bitmap.Assign(J);
finally
J.Free;
ms.Free;
end;
end;</pre>
Sådan gør man det... Husk at tilføje JPEG under USES ellers virker lortet ikke
-
neuroman? det' da mig
Aloha - Er du fresh???