unit1.pas

Delphi编程实效百例的随书程序 这是其中的界面操作部分

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtDlgs, StdCtrls, Spin, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    OpenPictureDialog1: TOpenPictureDialog;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Button1: TButton;
    Timer1: TTimer;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    SpinEdit3: TSpinEdit;
    Label3: TLabel;
    Panel1: TPanel;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure SpinEdit1Click(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
    procedure SpinEdit2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SpinEdit3Change(Sender: TObject);
    procedure SpinEdit3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i,j:word;
  m,n:word;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled:=true;
button1.enabled:=false;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  Row, Ht: Word ;

begin
 Ht := (ClientHeight + 255) div 276 ;
  for Row := 0 to 255 do
    with Canvas do begin
       Brush.Color := RGB(Row, i, j) ;
       FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht)) ;
    end ;


end;
procedure TForm1.SpinEdit1Click(Sender: TObject);
var
  Row, Ht: Word ;
begin
i:=spinedit1.Value;
j:=spinedit2.value;
with form1 do
begin
form1.paint;

end;

end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
var
  Row, Ht: Word ;

begin
i:=spinedit1.Value;
j:=spinedit2.value;
with form1 do
begin
form1.paint;
end;
end;

procedure TForm1.SpinEdit2Change(Sender: TObject);
var
  Row, Ht: Word ;

begin
i:=spinedit1.Value;
j:=spinedit2.value;
with form1 do
begin
form1.paint;
end;
end;

procedure TForm1.SpinEdit2Click(Sender: TObject);
var
Row, Ht: Word ;
begin
i:=spinedit1.value;
j:=spinedit2.value;
with form1 do
begin
form1.Paint;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var

Row, Ht: Word ;

begin
with form1 do
begin
Ht := (ClientHeight + 255) div 276 ;
  for Row := 0 to 255 do
    with Canvas do begin
       Brush.Color := RGB(Row, m, n) ;
       FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht)) ;

    end ;
    
    end;
m:=m+2;
if m>170 then m:=0;
n:=n+5;
if n>150 then n:=0;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.enabled:=false;
button1.enabled:=true;
end;

procedure TForm1.SpinEdit3Change(Sender: TObject);
begin
timer1.interval:=spinedit3.Value;
end;

procedure TForm1.SpinEdit3Click(Sender: TObject);
begin
timer1.interval:=spinedit3.Value;
end;

initialization
i:=0;
j:=0;

end.