PAR56 MKII RGBA
Stairville
dwallraff
8-Channel
PCD-DDF-in-WPF
unit Stairville_PAR56MKIIRGBA;
interface
procedure InitDevice(Device: String);
procedure FormClose();
procedure FormShow();
procedure FormRefresh(channel: Integer);
function getfadetime: Integer;
procedure shutter_slider_changed();
procedure special2_slider_changed();
procedure special1_slider_changed();
procedure ColorPickerChange(R, G, B: Byte);
implementation
var
dontRefresh: Boolean;
procedure InitDevice(Device: String);
begin
end;
procedure FormClose();
begin
end;
procedure FormShow();
begin
dontRefresh := false;
end;
procedure FormRefresh(channel: Integer);
var
value: Integer;
temp, phi, r: Double;
begin
if dontRefresh then begin
dontRefresh := false;
exit;
end;
case channel of
4: begin // Special1
value := get_channel('special1');
special1_slider.Position := value;
end;
5: begin // Shutter
value := get_channel('shutter');
case value of
0..255: begin // Geschlossen
try
shutter_slider.Min := 0;
except end;
shutter_slider.Max := 255;
shutter_slider.Min := 0;
shutter_slider.Position := value;
shutter_slider.Enabled := true;
end;
end;
end;
6: begin // Special2
value := get_channel('special2');
special2_slider.Position := value;
end;
end;
dontRefresh := false;
end;
function getfadetime: Integer;
begin
result := 0;
end;
procedure shutter_slider_changed();
begin
dontRefresh := true;
set_channel('shutter', -1, shutter_slider.Position, 0);
end;
procedure special2_slider_changed();
begin
dontRefresh := true;
set_channel('special2', -1, special2_slider.Position, 0);
end;
procedure special1_slider_changed();
begin
dontRefresh := true;
set_channel('special1', -1, special1_slider.Position, 0);
end;
procedure ColorPickerChange(R, G, B: Byte);
begin
set_color(R, G, B, getfadetime, 0);
end;
end.