Question

我在Delphi XE2中使用Gustavo Daud 1.4版的TPNGList

它正在保存一些我用作按钮图像的PNG 256x256图像。

然而，需要更改背景颜色，并且图像的对比度不佳。

所以我现在有黑色背景的白色图像。

我需要将它们更改为黑色以获得浅色背景。

有透明度，应该保留。只有白色像素。但是，目标函数的通用源也很好。

编辑：在“为它去”的消化后，我尝试了以下方法，但只获得黑色或白色方框：

procedure PNGInvertWB(Image: TPngImage; AWhite: Boolean);

  procedure WBInvertRGB(var R, G, B: Byte);
  var
    color: LongInt;
  begin
    if AWhite then
    begin
      if RGB(R, G, B) = clWhite then
      begin
        Color := ColorToRGB(clBlack);
        R := GetRValue(Color);
        G := GetGValue(Color);
        B := GetBValue(Color);
      end;
    end
    else
    begin
      if RGB(R, G, B) = clBlack then
      begin
        Color := ColorToRGB(clWhite);
        R := GetRValue(Color);
        G := GetGValue(Color);
        B := GetBValue(Color);
      end;
    end;
  end;

var
  X, Y, PalCount: Integer;
  Line: PRGBLine;
  PaletteHandle: HPalette;
  Palette: array[Byte] of TPaletteEntry;
begin
  if not (Image.Header.ColorType in [COLOR_GRAYSCALE, COLOR_GRAYSCALEALPHA]) then begin
    if Image.Header.ColorType = COLOR_PALETTE then begin
      PaletteHandle := Image.Palette;
      PalCount := GetPaletteEntries(PaletteHandle, 0, 256, Palette);
      for X := 0 to PalCount - 1 do
        WBInvertRGB(Palette[X].peRed, Palette[X].peGreen, Palette[X].peBlue);
      SetPaletteEntries(PaletteHandle, 0, PalCount, Palette);
      Image.Palette := PaletteHandle;
    end
    else begin
      for Y := 0 to Image.Height - 1 do begin
        Line := Image.Scanline[Y];
        for X := 0 to Image.Width - 1 do
          WBInvertRGB(Line[X].rgbtRed, Line[X].rgbtGreen, Line[X].rgbtBlue);
      end;
    end;
  end;
end;

我使用此代码调用它：

procedure TDBNavigator.UpdateColor;
var
  PNGImage: TPngImage;
  HCColor : TColor;

  procedure Invert(AImage: TImage; AWhite: boolean);
  begin
    ConvertToPNG(AImage.Picture.Graphic, PNGImage);
    PNGInvertWB(PNGImage, not AWhite);
    AImage.Picture.Graphic := PNGImage;
  end;

begin
  Color := ThemeManager.CurrentPallete.Color[FThemeColor];

  HCColor := ThemeManager.CurrentPallete.HighContrast(FThemeColor);
  if HCColor <> FCurrentColor then
  begin
    Invert(uiPrevious, HCColor = clWhite);
    Invert(uiNext,     HCColor = clWhite);
    Invert(uiInsert,   HCColor = clWhite);
    Invert(uiPost,     HCColor = clWhite);
    Invert(uiCancel,   HCColor = clWhite);
    Invert(uiDelete,   HCColor = clWhite);
    Invert(uiRefresh,  HCColor = clWhite);
    FCurrentColor := HCColor;
  end;
end;

不确定哪个部分出错了。这是一个组件的一部分，我正在尝试更改在设计时分配的图像。这是我加载的PNG图像，256x256具有透明度。

我需要使用那个TImage，我知道它不是一个按钮。也许有组件可以做到这一点。我需要自己做，因为我正在使用一个特定的库。

我从PNGFunctions上的一个Gustavo函数中得到了PNGInvertWB的想法：

procedure MakeImageGrayscale(Image: TPngImage; Amount: Byte = 255);

所以，我根本没有图像经验，这个代码有什么问题？

这就是我拥有图像的组件的样子：

原件： Original

在： After this funcion above

我使用了PNGFunctions中的以下函数来尝试：

procedure MakeImageGrayscale(Image: TPngImage; Amount: Byte = 255);

  procedure GrayscaleRGB(var R, G, B: Byte);
  var
    X: Byte;
  begin
    X := Round(R * 0.30 + G * 0.59 + B * 0.11);
    R := Round(R / 256 * (256 - Amount - 1)) + Round(X / 256 * (Amount + 1));
    G := Round(G / 256 * (256 - Amount - 1)) + Round(X / 256 * (Amount + 1));
    B := Round(B / 256 * (256 - Amount - 1)) + Round(X / 256 * (Amount + 1));
  end;

var
  X, Y, PalCount: Integer;
  Line: PRGBLine;
  PaletteHandle: HPalette;
  Palette: array[Byte] of TPaletteEntry;
begin
  //Don't do anything if the image is already a grayscaled one
  if not (Image.Header.ColorType in [COLOR_GRAYSCALE, COLOR_GRAYSCALEALPHA]) then begin
    if Image.Header.ColorType = COLOR_PALETTE then begin
      //Grayscale every palette entry
      PaletteHandle := Image.Palette;
      PalCount := GetPaletteEntries(PaletteHandle, 0, 256, Palette);
      for X := 0 to PalCount - 1 do
        GrayscaleRGB(Palette[X].peRed, Palette[X].peGreen, Palette[X].peBlue);
      SetPaletteEntries(PaletteHandle, 0, PalCount, Palette);
      Image.Palette := PaletteHandle;
    end
    else begin
      //Grayscale every pixel
      for Y := 0 to Image.Height - 1 do begin
        Line := Image.Scanline[Y];
        for X := 0 to Image.Width - 1 do
          GrayscaleRGB(Line[X].rgbtRed, Line[X].rgbtGreen, Line[X].rgbtBlue);
      end;
    end;
  end;
end;

我已经更改了GrayscaleRGB，因为它获得了每个像素并将其更改为灰度，因此我相信我可以相应地更改为黑色或白色。

Answer 1

将很高兴看到你的原始内容是你执行此代码后得到的内容

问题是：你真的确定整个背景的颜色是黑色还是白色还是接近黑色或接近白色？比较精确的颜色RGB（R，G，B）= clWhite

试试这个

procedure WBInvertRGB(var R, G, B: Byte);
  var
    color: LongInt;
  begin
    if AWhite then
    begin
      if ((R>240) and (G>240) and (B>240)) then
      begin
        Color := ColorToRGB(clBlack);
        R := GetRValue(Color);
        G := GetGValue(Color);
        B := GetBValue(Color);
      end;
    end
    else
    begin
      if ((R<15) and (G<15) and (B<15)) then
      begin
        Color := ColorToRGB(clWhite);
        R := GetRValue(Color);
        G := GetGValue(Color);
        B := GetBValue(Color);
      end;
    end;
  end;

你得到了什么？

Answer 2

然后我想这是因为透明度（将左下角改为某种不同的颜色）

我不知道有关此png组件的详细信息，也不知道它是否具有像素属性但是把它放在程序的最后

Line := Image.Scanline[Image.Height - 1];
Line[0].rgbtRed:= 5;
Line[0].rgbtGreen:= 5;
Line[0].rgbtBlue:= 5;

结果有任何变化吗？

或者你进入苍白的代码而不是全彩色设置断点，您将看到代码中断的位置

并在此添加评论，如果这是颜色苍白 - 这会产生差异，因为你不能将颜色改为白色而另一个改为黑色。你需要三个陡峭的一个改变白色到例如红黑色到白色，红色到黑色

如何在Delphi中将PNG图像的颜色从白色更改为黑色？

2 个答案: