4

我正在使用 Delphi 库 Graphics32 在屏幕上绘制音频图形，然后在音频中表示一系列句点。

该图非常简单：黑色背景，音频波形填充浅灰色。

现在的句点是使用FillRectTS半透明颜色绘制的矩形。我正在寻找一种方法（希望是一种简单的方法）使用像 Multiply 这样的混合模式来绘制它，所以音频波形是获得颜色的那个，而背景仍然是黑色。我在TBitmap32类中没有找到任何允许我这样做的函数（例如，g32_Interface 单元）。

这需要在绘制音频波形之后完成，因为按需重绘这个非常耗时，并且周期是用户在运行时定义的，因此无法直接使用颜色绘制音频波形。

这是一个小例子，说明它是怎样的，我希望它如何：

示例图形

现在绘制句点的代码（我需要更改的方面）如下：

TColor32 ColorDibujado = Color == 0 ? GetColorDeTipoEvento(PeriodoADibujar->Evento->TipoEvento) : Color;

if (PeriodoADibujar->Habilitado == false)
  ColorDibujado = (ColorDibujado & 0x00ffffff) | 0xAf000000;

Gr32::TRect area;

area.Left   = (PeriodoADibujar->PosicionInicioRelativa * (double)LimitesDestino.Width()) / Proporcion + PosX;
area.Right  = (PeriodoADibujar->PosicionFinRelativa * (double)LimitesDestino.Width()) / Proporcion + PosX;
area.Top    = LimitesDestino.Top;
area.Bottom = LimitesDestino.Bottom;

MapaDestino->FillRectTS(area, ColorDibujado);

ColorDibujadoget是根据不同条件（是否选择事件，以及事件类型）所需的透明度，但最后的想法是相同的。这段代码的绘制类似于上图的第一部分。

Delphi 或 C++Builder 中的解决方案（或想法）对我来说很好。

更新

我已经直接在 Graphics32 代码上实现了这个，使用它已经提供的任何颜色混合例程，它解决了我的需求。它是一组额外的 FillRect 函数，它采用另一个参数供混合模式使用。如果它还活着，我会尝试将它纳入官方项目......

4

2 回答 2

2

我将以下代码添加到 Graphics32 源中，因此我可以使用库提供的几种混合模式之一填充所需的 Rect：

TBlendMode = (bmAdd, bmSub, bmDiv, bmMod, bmMax, bmMin, bmDif, bmAvg, bmExc, bmSca);

procedure TCustomBitmap32.FillRectTB(X1, Y1, X2, Y2: Integer; Value: TColor32; BlendMode: TBlendMode);
var
  i, j: Integer;
  P: PColor32;
  blend: TBlendReg;
begin

  case BlendMode of
    bmAdd: blend := ColorAdd;
    bmSub: blend := ColorSub;
    bmDiv: blend := ColorDiv;
    bmMod: blend := ColorModulate;
    bmMax: blend := ColorMax;
    bmMin: blend := ColorMin;
    bmDif: blend := ColorDifference;
    bmAvg: blend := ColorAverage;
    bmExc: blend := ColorExclusion;
    bmSca: blend := ColorScale;
    else blend := MergeReg;
  end;

  try
    Dec(Y2);
    Dec(X2);
    for j := Y1 to Y2 do
    begin
      P := GetPixelPtr(X1, j);
      for i := X1 to X2 do
      begin
        P^ := blend(Value, P^);
        Inc(P);
      end;
    end;
  finally
    EMMS;
    Changed(MakeRect(X1, Y1, X2 + 1, Y2 + 1));
  end;
end;

还有

procedure FillRectTSB(X1, Y1, X2, Y2: Integer; Value: TColor32; BlendMode: TBlendMode); overload;
procedure FillRectSB(const ARect: TRect; Value: TColor32; BlendMode: TBlendMode); overload;
procedure FillRectTSB(const ARect: TRect; Value: TColor32; BlendMode: TBlendMode); overload;

这是图书馆提供的副本，但在内部调用新FillRectTB过程。我会将这段代码提供给库维护者，因此如果对他们有意义的话，它可以被合并到官方资源中。

将代码放入官方库似乎并不容易，所以我在这里附上完整的补丁，以防其他人发现它有用。

链接到补丁文件

我还将它发布到 Graphics32.general 新闻组，所以它不会丢失。

于 2015-03-16T15:52:52.153 回答
1

我会在你的位置做的是将你的波形显示分成两个单独的层。一层用于背景，另一层用于前景。为什么？

通过这样做，您可以重用现有代码。只需分两个单独的步骤即可。一个用于背景，一个用于前景。

但另一个可能更好的方法是像 Cool ditor Pro 那样使用不同的颜色简单地渲染选择。

通过这种方式，您可以完全摆脱 alpha 渲染，这将大大提高渲染性能。

Cool Editor Pro 中的波形选择

于 2015-03-14T16:58:28.267 回答