Bitmap schärfen

[Sir Rufo]

Zitat von barese:

@ himitsu

Ich weiss nicht wie ich die Procedur anwenden soll.
Natürlich zwei Bitmaps das weiss ich, aber ich brauch eine Befehlszeile
für die Procedur, hast du da ne idee...[?]

Delphi-Quellcode:

var
  sbm, tbm : TBimap;
begin
  sbm := TBitmap.Create;
  tbm := TBitmap.Create;
  // sbm jetzt mit dem Bitmap füllen

  // Schärfen
  Sharpen( sbm, tbm, 20 );
  // tbm dahin packen, wo benötigt

  // Instanzen freigeben
  sbm.Free;
  tbm.Free;
end;