【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-Properties.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit Properties;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ComCtrls;
type
TfrmProperties = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
GroupBox1: TGroupBox;
GroupBox3: TGroupBox;
GroupBox4: TGroupBox;
GroupBox5: TGroupBox;
HScrollShutter: TScrollBar;
LabelShutterMin: TLabel;
Label2: TLabel;
LabelShutterMax: TLabel;
TextShutter: TEdit;
TextGain: TEdit;
HScrollGain: TScrollBar;
LabelGainMax: TLabel;
Label5: TLabel;
LabelGainMin: TLabel;
GroupBox7: TGroupBox;
LabelUMin: TLabel;
Label8: TLabel;
LabelUMax: TLabel;
LabelVMax: TLabel;
Label11: TLabel;
LabelVMin: TLabel;
HScrollU: TScrollBar;
TextU: TEdit;
TextV: TEdit;
HScrollV: TScrollBar;
ComboVideoMode: TComboBox;
ComboADCLevel: TComboBox;
Label13: TLabel;
Label14: TLabel;
ComboBayerToRGB: TComboBox;
ComboConversionType: TComboBox;
procedure ComboADCLevelChange(Sender: TObject);
procedure ComboVideoModeChange(Sender: TObject);
procedure ComboBayerToRGBChange(Sender: TObject);
procedure ComboConversionTypeChange(Sender: TObject);
procedure TextShutterExit(Sender: TObject);
procedure TextGainExit(Sender: TObject);
procedure TextUExit(Sender: TObject);
procedure TextVExit(Sender: TObject);
procedure TextVKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure TextShutterKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure TextUKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure TextGainKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
procedure HScrollShutterScroll(Sender: TObject;
ScrollCode: TScrollCode; var ScrollPos: Integer);
procedure HScrollGainScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
procedure HScrollUScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
procedure HScrollVScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmProperties: TfrmProperties;
implementation
uses Main;
{$R *.dfm}
procedure TfrmProperties.FormCreate(Sender: TObject);
var
Min:integer;
Max:integer;
Width:integer;
Height:integer;
i:integer;
begin
frmMain.HVDevice.GetPropertyValueRange(2,Min,Max);
LabelShutterMin.Caption := IntToStr(Min);
LabelShutterMax.Caption := IntToStr(Max);
HScrollShutter.Min := Min;
HScrollShutter.Max := Max;
HScrollShutter.Position := frmMain.HVDevice.Shutter;
TextShutter.Text := IntToStr(frmMain.HVDevice.Shutter);
frmMain.HVDevice.GetPropertyValueRange(3, Min, Max);
LabelGainMin.Caption := IntToStr(Min);
LabelGainMax.Caption := IntToStr(Max);
HScrollGain.Min := Min;
HScrollGain.Max := Max;
HScrollGain.Position := frmMain.HVDevice.Gain;
TextGain.Text := IntToStr(frmMain.HVDevice.Gain);
LabelUMin.Caption := '10' ;
LabelUMax.Caption := '500' ;
HScrollU.Min := 10 ;
HScrollU.Max := 500;
HScrollU.Position := frmMain.HVDevice.GainB;
TextU.Text := IntToStr(frmMain.HVDevice.GainB);
LabelVMin.Caption := '10' ;
LabelVMax.Caption := '500';
HScrollV.Min := 10;
HScrollV.Max := 500 ;
HScrollV.Position := frmMain.HVDevice.GainR;
TextV.Text := IntToStr(frmMain.HVDevice.GainR);
frmMain.HVDevice.GetPropertyValueRange(1, Min, Max);
ComboVideoMode.Clear();
For i := Min To Max do
begin
frmMain.HVDevice.GetSensorSize(i, Width, Height);
ComboVideoMode.Items.Add ('Mode ' + IntToStr(i) + ' ( ' + IntToStr(Width) + ' * ' + IntToStr(Height) + ' )') ;
end;
ComboVideoMode.ItemIndex := frmMain.HVDevice.Resolution;
ComboADCLevel.Clear();
For i := 0 To 3 do
begin
ComboADCLevel.Items.Add('ADC Level ' + IntToStr(i));
end;
ComboADCLevel.ItemIndex := frmMain.HVDevice.ADCLevel;
ComboBayerToRGB.Clear();
ComboBayerToRGB.Items.Add ('Disabled');
ComboBayerToRGB.Items.Add ('Enabled ( GBRG )');
ComboBayerToRGB.Items.Add ('Enabled ( GRBG )');
ComboBayerToRGB.Items.Add ('Enabled ( BGGR )');
ComboBayerToRGB.Items.Add ('Enabled ( RGGB )');
ComboBayerToRGB.ItemIndex := frmMain.HVDevice.BayerToRGBConversion;
ComboConversionType.Clear();
ComboConversionType.Items.Add ('Fast');
ComboConversionType.Items.Add ('Normal');
ComboConversionType.Items.Add ('Best');
ComboConversionType.ItemIndex := frmMain.HVDevice.ConversionType;
end;
procedure TfrmProperties.ComboADCLevelChange(Sender: TObject);
begin
frmMain.HVDevice.ADCLevel := ComboADCLevel.ItemIndex;
end;
procedure TfrmProperties.ComboVideoModeChange(Sender: TObject);
begin
frmMain.HVDevice.Resolution := ComboVideoMode.ItemIndex;
end;
procedure TfrmProperties.ComboBayerToRGBChange(Sender: TObject);
begin
frmMain.HVDevice.BayerToRGBConversion := ComboBayerToRGB.ItemIndex;
end;
procedure TfrmProperties.ComboConversionTypeChange(Sender: TObject);
begin
frmMain.HVDevice.ConversionType := ComboConversionType.ItemIndex;
end;
procedure TfrmProperties.HScrollShutterScroll(Sender: TObject;
ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
TextShutter.Text := IntToStr(HScrollShutter.Position);
frmMain.HVDevice.Shutter := HScrollShutter.Position;
end;
procedure TfrmProperties.TextShutterKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key = VK_RETURN Then
begin
HScrollShutter.Position := StrToInt(TextShutter.Text);
frmMain.HVDevice.Shutter := HScrollShutter.Position ;
end;
end;
procedure TfrmProperties.TextShutterExit(Sender: TObject);
begin
HScrollShutter.Position := StrToInt(TextShutter.Text);
frmMain.HVDevice.Shutter := HScrollShutter.Position ;
end;
procedure TfrmProperties.HScrollGainScroll(Sender: TObject;
ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
TextGain.Text := IntToStr(HScrollGain.Position);
frmMain.HVDevice.Gain := HScrollGain.Position;
end;
procedure TfrmProperties.TextGainKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key = VK_RETURN Then
begin
HScrollGain.Position := StrToInt(TextGain.Text );
frmMain.HVDevice.Gain := HScrollGain.Position;
end;
end;
procedure TfrmProperties.TextGainExit(Sender: TObject);
begin
HScrollGain.Position := StrToInt(TextGain.Text );
frmMain.HVDevice.Gain := HScrollGain.Position;
end;
procedure TfrmProperties.HScrollUScroll(Sender: TObject;
ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
TextU.Text := IntToStr(HScrollU.Position);
上一篇:
prop.pas
下一篇:
时间飞过,而你却不曾来过我的世界(2)