【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:dlgaufz.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit dlgaufz;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls;
type
TDlgVPara = class(TForm)
OKBtn: TButton;
CancelBtn: TButton;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
CheckAudio: TCheckBox;
Edit2: TEdit;
Edit3: TEdit;
procedure FormCreate(Sender: TObject);
procedure OKBtnClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DlgVPara: TDlgVPara;
implementation
{$R *.DFM}
uses
frmMain;
procedure TDlgVPara.FormCreate(Sender: TObject);
begin
with main.videocap1 do
begin
Checkaudio.Checked:= capaudio;
Edit1.text:= inttostr(FrameRate);
edit2.text:= inttostr(captimeLimit);
edit3.text:= inttostr(CapIndexSize);
end;
end;
procedure TDlgVPara.OKBtnClick(Sender: TObject);
var f,a,i:integer;
begin
modalresult:= mrNone;
f:= strtoInt(edit1.text);
a:= strtoint(edit2.Text);
i:= Strtoint(edit3.text);
with main.VideoCap1 do
begin
capAudio:=CheckAudio.Checked;
frameRate:= f;
captimeLimit:= a;
capIndexSize:= i;
end;
modalresult:= mrOk;
end;
end.