unit3.pas

就是对人物原色的秒学和处理

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Memo1: TMemo;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);
var x1,y1,x2,y2,length,i:integer;
     x,y,dx,dy:single;
     xystring:string;
begin
x1:=0;y1:=0;x2:=50;y2:=50;
if (abs(x2-x1)>=abs(y2-y1))
then
   length:=abs(x2-x1)
else length:=abs(y2-y1);
    dx:=(x2-x1)/length;
    dy:=(y2-y1)/length;
    x:=x1+0.5;
    y:=y1+0.5;
for i:=1 to length do
begin
canvas.Pixels[trunc(x),trunc(y)]:=clred;
xystring:=inttostr(trunc(x))+','+inttostr(trunc(y));
memo1.Lines .add(xystring);
y:=y+dy;
x:=x+dx;
end;
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.