PX-1210
Lite Puter
BeatDelivery
12 Kanal DMX Switchpack
PCD-DDF-in-WPF
unit LitePuter_PX_1210;
interface
procedure InitDevice(Device: String);
procedure FormClose();
procedure FormShow();
procedure FormRefresh(channel: Integer);
function getfadetime: Integer;
procedure call_preset_1an();
procedure call_preset_1aus();
procedure call_preset_2an();
procedure call_preset_2aus();
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
end;
dontRefresh := false;
end;
function getfadetime: Integer;
begin
result := 0;
end;
procedure call_preset_1an();
begin
set_channel('dimmer', -1, 255, 0);
end;
procedure call_preset_1aus();
begin
set_channel('dimmer', -1, 0, 0);
end;
procedure call_preset_2an();
begin
set_channel('dimmer', -1, 255, 0);
end;
procedure call_preset_2aus();
begin
set_channel('dimmer', -1, 0, 0);
end;
end.