主页 / coding / 问题 / 79111822
Accepted
Craig
Asked: 2024-10-22 05:32:45 +0800 CST

如何在 Firemonkey 中组合图像过滤器？

  • 772

仅TFilterHueAdjust允许修改位图的色调。我们如何更新它以应用饱和度和亮度 (HSL)？

procedure AdjustHSL(Source, Dest: TBitmap; H, S, L: Single);
var
  Filter: TFilterHueAdjust;
begin
  Filter := TFilterHueAdjust.Create(nil);
  try
    Filter.Input := Source;
    Filter.Hue := H;
    Dest.Assign(Filter.Output);
  finally
    Filter.Free;
  end;
end;

我尝试分别应用亮度和对比度，TFilterContrast但改变它会丢失色调（似乎一次只能应用一个过滤器？）。

有什么想法吗？

谢谢。

delphi

1 个回答

  1. Best Answer

    使用该InputFilter属性链接多个过滤器，例如：

    procedure AdjustHSL(Source, Dest: TBitmap; H, S, L: Single);
var
  HueFilter: TFilterHueAdjust;
  ContrastFilter: TFilterContrast;
begin
  HueFilter := TFilterHueAdjust.Create(nil);
  try
    HueFilter.Input := Source;
    HueFilter.Hue := H;
    ContrastFilter := TFilterContrast.Create(nil);
    try
      ContrastFilter.InputFilter := HueFilter; // <--
      ContrastFilter.Brightness := L;
      Dest.Assign(ContrastFilter.Output);
    finally
      ContrastFilter.Free;
    end;
  finally
    HueFilter.Free;
  end;
end;
    • 1

相关问题