unitbrightness.~pas

来自「一个比较好的图象处理器。」· ~PAS 代码 · 共 58 行

unit Unitbrightness;

interface

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

type
  TForm3 = class(TForm)
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormActivate(Sender: TObject);
    procedure TrackBar2Change(Sender: TObject);
  private
    { Private declarations }
  public
  brightness:integer;
  contrast:double;
  
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.FormActivate(Sender: TObject);
begin
  brightness:=0;
  edit1.Text:='0';
  trackbar1.Position:=128;
  contrast:=1;
  edit2.Text:='1';
  trackbar1.Position:=100;
  
end;

procedure TForm3.TrackBar2Change(Sender: TObject);
begin
  brightness:=trackbar1.Position-128;
  edit1.Text:=inttostr(brightness);
  contrast:=trackbar1.Position/100;
  edit2.Text:=floattostr(contrast);
  
end;

end.