Hi!
Das Programm kann ja nur schwarz-weiß-Bitmaps bearbeiten...
Du könntest ja z.B. mit dieser Routine:
Delphi-Quellcode:
type
TRGBTripleArray = array[0..32768] of TRGBTriple;
procedure BlackWhiteImage(const Bitmap: TBitmap; const Toleranz: Integer);
var
i,j: Integer;
Reihe: ^TRGBTriple;
begin
for i:= 0 to Bitmap.Height-1 do
begin
Reihe:= Bitmap.Scanline[i];
for j:= 0 to Bitmap.Width-1 do
begin
if (Reihe^.rgbtred + Reihe^.rgbtBlue + Reihe^.rgbtgreen)div 3> Toleranz then
begin
Reihe^.rgbtred := 255;
Reihe^.rgbtBlue := 255;
Reihe^.rgbtgreen := 255;
end
else
begin
Reihe^.rgbtred := 0;
Reihe^.rgbtBlue := 0;
Reihe^.rgbtgreen := 0;
end;
inc(Reihe);
end;
end;
bitmap.Assign(Bitmap);
end;
beliebige Bitmaps in schwarz-weiß konvertieren. Dann muss man das nicht immer vorher selbst machen
Ansonsten: Schonmal nettes Programm
Viele Grüße,
Chris