setupform.pas

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

unit SetupForm;

interface

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

type
  TfrmSetup = class(TForm)
    Bevel: TBevel;
    rdgCryOSC: TRadioGroup;
    rdgColor: TRadioGroup;
    rdgVideoStandard: TRadioGroup;
    rdgSource: TRadioGroup;
    rdgDispMode: TRadioGroup;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edtBrightness: TEdit;
    edtContrast: TEdit;
    edtHue: TEdit;
    edtSaturation: TEdit;
    BitBtn1: TBitBtn;
    updBrightness: TUpDown;
    updContrast: TUpDown;
    updHue: TUpDown;
    updSaturation: TUpDown;
    procedure UpDownClick(Sender: TObject; Button: TUDBtnType);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSetup: TfrmSetup;

implementation

{$R *.DFM}

procedure TfrmSetup.UpDownClick(Sender: TObject;
  Button: TUDBtnType);
begin
  if (Sender as TUpDown).Name = 'updBrightness' then
  begin
    edtBrightNess.Text := IntToStr((Sender as TUpDown).Position);
  end;
  if (Sender as TUpDown).Name = 'updContrast' then
  begin
    edtContrast.Text := IntToStr((Sender as TUpDown).Position);
  end;
  if (Sender as TUpDown).Name = 'updHue' then
  begin
    edtHue.Text := IntToStr((Sender as TUpDown).Position);
  end;
  if (Sender as TUpDown).Name = 'updSaturation' then
  begin
    edtSaturation.Text := IntToStr((Sender as TUpDown).Position);
  end;
end;

end.