Sepia laut Microsoft

[s.h.a.r.k]

Kleiner Tipp am Rande: wie wäre es wenn du ein Enum-Typ einführst, dann machst du es jedem leichter den Code zu verwenden bzw. diesen zu lesen. Denn mit der folgenden Lösung brauchst du dir nicht jedes mal den Parameter anschauen und brauchst nicht zu überlegen, was True und False wirklich bewirken:

Delphi-Quellcode:

type
  TBitmapConversion = (bcGray, bcSepia);

procedure TImageEdit._ColorTransformation(const ABitmapConversion: TBitmapConversion);
begin
  { ... }
end;

procedure TImageEdit.bGrayClick(Sender: TObject);
begin
  _ColorTransformation(bcGray);
end;

procedure TImageEdit.bSepiaClick(Sender: TObject);
begin
  _ColorTransformation(bcSepia);
end;

Je nachdem, welche Delphi-Version man denn nutzt, könnte man auch einen class helper daraus stricken, oder eine allgemeine Methode, die ein TImage oder TBitmap übergeben bekommt und darauf arbeitet...