delphi图片换肤处理优化修正_delphi oem 图片替换-CSDN博客

本文介绍了一种针对PNG图像的换肤处理方法，并通过优化代码实现了更好的颜色转换效果。使用了Delphi环境下对位图进行操作的技术，通过对灰度化的处理，实现了图像颜色的平滑过渡。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

原来见过一个png图像换肤处理的文章，但其中颜色处理上有些问题，特作优化修正处理，本是回复群友的问题的，所以用的是bmp图片，png图片处理原理是一样的。代码如下：
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    ColorBox1: TColorBox;
    procedure btn1Click(Sender: TObject);
    procedure ColorBox1Select(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  i, j: Integer;
  Row: pRGBTriple;
  Rgb : Longint;
  RGB_R,RGB_G,RGB_B:Byte;
  Gray: Byte;
  bmp:TBitmap;
begin
  RGB := ColorToRGB(ColorBox1.Selected);
  RGB_R := GetRValue(RGB);
  RGB_G := GetGValue(RGB);
  RGB_B := GetBValue(RGB);

  bmp:=TBitmap.Create;
  try
    bmp.LoadFromFile('E:/Documents and Settings/siow/桌面/main.bmp');

    for i := 0 to bmp.Height - 1 do
    begin
      Row := bmp.Scanline[i];
      for j := 0 to bmp.Width - 1 do
      begin
        //灰度化
        Gray:=Trunc((Row^.rgbtRed*306+Row^.rgbtGreen*601+Row^.rgbtBlue*117+512) shr 10);

        Row^.rgbtRed   := Round(255 - (255 - Gray)* (255-RGB_R)/ 255);
        Row^.rgbtGreen := Round(255 - (255 - Gray)* (255-RGB_G)/ 255);
        Row^.rgbtBlue  := Round(255 - (255 - Gray)* (255-RGB_B)/ 255);
        Inc(Row);
      end;
    end;
    self.Canvas.StretchDraw(bmp.Canvas.ClipRect,bmp);
  finally
    bmp.Free;
  end;
end;

procedure TForm1.ColorBox1Select(Sender: TObject);
begin
  btn1Click(nil);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  btn1Click(nil);
end;

end.