uscroll1.pas

这是一个调色板取值程序

unit uScroll1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    lblRed: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ScrollBar1: TScrollBar;
    ScrollBar2: TScrollBar;
    ScrollBar3: TScrollBar;
    lblGreen: TLabel;
    lblBlue: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Panel2: TPanel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
      var ScrollPos: Integer);
    procedure ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
      var ScrollPos: Integer);
    procedure ScrollBar3Scroll(Sender: TObject; ScrollCode: TScrollCode;
      var ScrollPos: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Red, Green, blue: integer;
function Deal(r,g,b:Integer):String;

implementation

{$R *.DFM}

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
    var ScrollPos: Integer);
begin
  Red := ScrollPos;
  Panel2.Color := RGB(Red, Green, Blue);
  Label8.caption:=Deal(Red, Green, Blue);
  lblRed.Caption := ' '+IntToStr (ScrollPos)+' ';
end;

procedure TForm1.ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
  Green := ScrollPos;
  Panel2.Color := RGB(Red, Green, Blue);
  Label8.caption:=Deal(Red, Green, Blue);
  lblGreen.Caption := ' '+IntToStr (ScrollPos)+' ';
end;

procedure TForm1.ScrollBar3Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
  Blue := ScrollPos;
  Panel2.Color := RGB(Red, Green, Blue);
  Label8.caption:=Deal(Red, Green, Blue);
  lblBlue.Caption := ' '+IntToStr (ScrollPos)+' ';
end;

function Deal(r,g,b:Integer):String;
Var
  RR,GG,BB,KK,LL:String;
Begin
  KK:=Inttostr(Trunc(R/16));
  Case Strtoint(KK) of
  10:KK:='A';
  11:KK:='B';
  12:KK:='C';
  13:KK:='D';
  14:KK:='E';
  15:KK:='F';
  else
    KK:=KK;
  end;
  LL:=Inttostr(R Mod 16);
  Case Strtoint(LL) of
  10:LL:='A';
  11:LL:='B';
  12:LL:='C';
  13:LL:='D';
  14:LL:='E';
  15:LL:='F';
  else
    LL:=LL;
  end;
  RR:=KK+LL;
  KK:=Inttostr(Trunc(G/16));
  Case Strtoint(KK) of
  10:KK:='A';
  11:KK:='B';
  12:KK:='C';
  13:KK:='D';
  14:KK:='E';
  15:KK:='F';
  else
    KK:=KK;
  end;
  LL:=Inttostr(G Mod 16);
  Case Strtoint(LL) of
  10:LL:='A';
  11:LL:='B';
  12:LL:='C';
  13:LL:='D';
  14:LL:='E';
  15:LL:='F';
  else
    LL:=LL;
  end;
  GG:=KK+LL;
  KK:=inttostr(Trunc(B/16));
  Case Strtoint(KK) of
  10:KK:='A';
  11:KK:='B';
  12:KK:='C';
  13:KK:='D';
  14:KK:='E';
  15:KK:='F';
  else
    KK:=KK;
  end;
  LL:=Inttostr(B Mod 16);
  Case Strtoint(LL) of
  10:LL:='A';
  11:LL:='B';
  12:LL:='C';
  13:LL:='D';
  14:LL:='E';
  15:LL:='F';
  else
    LL:=LL;
  end;
  BB:=KK+LL;
  Result:='#'+RR+GG+BB
end;

end.