ASCII-Konverter

[CK_CK]

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