【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了SetupForm.pas提供大家参考,希望对大家有所帮助!
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.