-
Notifications
You must be signed in to change notification settings - Fork 3
/
drvedit.pas
85 lines (56 loc) · 1.5 KB
/
drvedit.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
unit drvedit;
interface
procedure Register;
implementation
uses classes,DesignIntf,sysutils,vfw,videocap,DesignEditors;
// Property Editor for driver selection in Video-Cap
type TDrivereditor= class (TPropertyEditor)
function GetAttributes:TPropertyAttributes;override;
procedure GetValues(Proc: TGetStrProc);override;
function GetValue:string;override;
procedure SetValue(const Value: string);override;
end;
function TDriverEditor.GetAttributes:TPropertyAttributes;
begin
result :=[paRevertable,paValueList];
end;
procedure TDriverEditor.GetValues(Proc: TGetStrProc);
var i:integer;
name:array[0..80] of char;
ver :array[0..80] of char;
s:string;
begin
for i:= 0 to 9 do
begin
if capGetDriverDescription( i,name,80,ver,80) then
s:=strpas(name)
else
s:='' ;
proc(s);
end;
end;
function TDriverEditor.GetValue:string;
var n:array[0..80] of char;
ver :array[0..80] of char;
s:string;
begin
with Getcomponent(0) as TVideoCap do
begin
if capGetDriverDescription( DriverIndex,n,80,ver,80) then
s:=strpas(n)
else
s:='' ;
end;
result:= s; //fVideoDrivername;
end;
procedure TDriverEditor.SetValue(const Value: string);
begin
with Getcomponent(0) as TVideoCap do
SetDrivername( value) ;
Modified;
end;
procedure Register;
begin
RegisterPropertyEditor(TypeInfo(string),TVideoCap,'DriverName',TDriverEditor);
end;
end.