unit1.pas

delphi课程设计的内容,包括源代码,文本的设计,菜单的设计等.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    redscroll: TScrollBar;
    greenscroll: TScrollBar;
    bluescroll: TScrollBar;
    redlabel: TLabel;
    greenlabel: TLabel;
    bluelabel: TLabel;
    rededit: TEdit;
    greenedit: TEdit;
    blueedit: TEdit;
    Memo1: TMemo;
    procedure redscrollChange(Sender: TObject);
    procedure greenscrollChange(Sender: TObject);
    procedure bluescrollChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.redscrollChange(Sender: TObject);
var
   c1,c2,c3:integer;
begin
   c1:=redscroll.position;
   c2:=greenscroll.position;
   c3:=bluescroll.position;
   redlabel.caption:=inttostr(c1);
   rededit.color:=rgb(c1,0,0);
   memo1.color:=rgb(c1,c2,c3);
end;

procedure TForm1.greenscrollChange(Sender: TObject);
var
  c1,c2,c3:integer;
begin
   c1:=redscroll.position;
   c2:=greenscroll.position;
   c3:=bluescroll.position;
   greenlabel.caption:=inttostr(c2);
   greenedit.color:=rgb(c2,0,0);
   memo1.color:=rgb(c1,c2,c3);
end;

procedure TForm1.bluescrollChange(Sender: TObject);
var
  c1,c2,c3:integer;
begin
   c1:=redscroll.position;
   c2:=greenscroll.position;
   c3:=bluescroll.position;
   bluelabel.caption:=inttostr(c3);
   blueedit.color:=rgb(c3,0,0);
   memo1.color:=rgb(c1,c2,c3);
end;

end.