标签：end Sender supperment TForm1 TObject 没算 权当 Image1 procedure

颜色选取 - 权当给 supperment 的回复吧, 你的要求要用到"种子算法", 我暂时还没算明白.

本例效果图:

---

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  TargetColor: TColor = clRed;
var
  SeedColor: TColor;
  x1,y1: Integer;
  pic: TPicture;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.AutoSize := True;
  Image1.Picture.LoadFromFile('c:\temp\test.bmp');
  x1 := Image1.Left;
  y1 := Image1.Top;
  pic := Image1.Picture;
  Button1.Caption := '恢复';
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  w,h: Integer;
  ImgHdc: HDC;
begin
  ImgHdc := Image1.Canvas.Handle;
  SeedColor := GetPixel(ImgHdc, X,Y);

  for w := 0 to Image1.Width-1 do
  for h := 0 to Image1.Height-1 do
    if GetPixel(ImgHdc, w,h)=SeedColor then
      SetPixelV(Canvas.Handle, x1+w, y1+h, TargetColor);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture := pic;
end;

end.

posted on 2008-03-21 15:47  万一  阅读(2567)  评论(3)  编辑  收藏

标签：end,Sender,supperment,TForm1,TObject,没算,权当,Image1,procedure
来源： https://blog.51cto.com/u_14617575/2747609

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。