📄 listenform.pas
字号:
SpeakArray[30]:= FieldByName('speak30').AsBoolean;
SpeakArray[31]:= FieldByName('speak31').AsBoolean;
ListenArray[1]:= FieldByName('listen1').AsBoolean;
ListenArray[2]:= FieldByName('listen2').AsBoolean;
ListenArray[3]:= FieldByName('listen3').AsBoolean;
ListenArray[4]:= FieldByName('listen4').AsBoolean;
ListenArray[5]:= FieldByName('listen5').AsBoolean;
ListenArray[6]:= FieldByName('listen6').AsBoolean;
ListenArray[7]:= FieldByName('listen7').AsBoolean;
ListenArray[8]:= FieldByName('listen8').AsBoolean;
ListenArray[9]:= FieldByName('listen9').AsBoolean;
ListenArray[10]:= FieldByName('listen10').AsBoolean;
ListenArray[11]:= FieldByName('listen11').AsBoolean;
ListenArray[12]:= FieldByName('listen12').AsBoolean;
ListenArray[13]:= FieldByName('listen13').AsBoolean;
ListenArray[14]:= FieldByName('listen14').AsBoolean;
ListenArray[15]:= FieldByName('listen15').AsBoolean;
ListenArray[16]:= FieldByName('listen16').AsBoolean;
ListenArray[17]:= FieldByName('listen17').AsBoolean;
ListenArray[18]:= FieldByName('listen18').AsBoolean;
ListenArray[19]:= FieldByName('listen19').AsBoolean;
ListenArray[20]:= FieldByName('listen20').AsBoolean;
ListenArray[21]:= FieldByName('listen21').AsBoolean;
ListenArray[22]:= FieldByName('listen22').AsBoolean;
ListenArray[23]:= FieldByName('listen23').AsBoolean;
ListenArray[24]:= FieldByName('listen24').AsBoolean;
ListenArray[25]:= FieldByName('listen25').AsBoolean;
ListenArray[26]:= FieldByName('listen26').AsBoolean;
ListenArray[27]:= FieldByName('listen27').AsBoolean;
ListenArray[28]:= FieldByName('listen28').AsBoolean;
ListenArray[29]:= FieldByName('listen29').AsBoolean;
ListenArray[30]:= FieldByName('listen30').AsBoolean;
ListenArray[31]:= FieldByName('listen31').AsBoolean;
UsedArray[1]:= FieldByName('used1').AsBoolean;
UsedArray[2]:= FieldByName('used2').AsBoolean;
UsedArray[3]:= FieldByName('used3').AsBoolean;
UsedArray[4]:= FieldByName('used4').AsBoolean;
UsedArray[5]:= FieldByName('used5').AsBoolean;
UsedArray[6]:= FieldByName('used6').AsBoolean;
UsedArray[7]:= FieldByName('used7').AsBoolean;
UsedArray[8]:= FieldByName('used8').AsBoolean;
UsedArray[9]:= FieldByName('used9').AsBoolean;
UsedArray[10]:= FieldByName('used10').AsBoolean;
UsedArray[11]:= FieldByName('used11').AsBoolean;
UsedArray[12]:= FieldByName('used12').AsBoolean;
UsedArray[13]:= FieldByName('used13').AsBoolean;
UsedArray[14]:= FieldByName('used14').AsBoolean;
UsedArray[15]:= FieldByName('used15').AsBoolean;
UsedArray[16]:= FieldByName('used16').AsBoolean;
UsedArray[17]:= FieldByName('used17').AsBoolean;
UsedArray[18]:= FieldByName('used18').AsBoolean;
UsedArray[19]:= FieldByName('used19').AsBoolean;
UsedArray[20]:= FieldByName('used20').AsBoolean;
UsedArray[21]:= FieldByName('used21').AsBoolean;
UsedArray[22]:= FieldByName('used22').AsBoolean;
UsedArray[23]:= FieldByName('used23').AsBoolean;
UsedArray[24]:= FieldByName('used24').AsBoolean;
UsedArray[25]:= FieldByName('used25').AsBoolean;
UsedArray[26]:= FieldByName('used26').AsBoolean;
UsedArray[27]:= FieldByName('used27').AsBoolean;
UsedArray[28]:= FieldByName('used28').AsBoolean;
UsedArray[29]:= FieldByName('used29').AsBoolean;
UsedArray[30]:= FieldByName('used30').AsBoolean;
UsedArray[31]:= FieldByName('used31').AsBoolean;
free;
end;
for nn:=1 to 31 do
begin
if SpeakArray[nn] then
SpeakImageArray[nn].Picture.LoadFromFile('Speakon.bmp')
else
SpeakImageArray[nn].Picture.LoadFromFile('speakoff.bmp');
end;
for nn:=1 to 31 do
begin
if ListenArray[nn] then
ListenImageArray[nn].Picture.LoadFromFile('Listenon.bmp')
else
ListenImageArray[nn].Picture.LoadFromFile('Listenoff.bmp');
end;
fComPort := TCommPortDriver.Create(nil);
with fComPort do
begin
if Connected then
Disconnect;
ComPort := pnCom1;
ComPortSpeed := br2400;
ComPortDataBits := db8Bits;
ComPortStopBits := sb1Bits;
ComPortParity := ptNone;
end;
CommandCode[0]:= 255 ;
CommandCode[1]:= 0; //address
CommandCode[2]:= 3; //act
CommandCode[3]:= 0; //input number
CommandCode[4] := 0; //output number
CommandCode[5] := 170 ; //end
end;
procedure TAudioMatrixSetForm.ImageS1Click(Sender: TObject);
var
mm,nn:integer;
ss:string;
begin
ss:= (Sender as TImage).Name;
nn:=length(ss);
nn:=StrToInt(copy(ss, 7,nn-5));
if SpeakArray[nn] then
begin
(Sender as TImage).Picture.LoadFromFile('speakoff.bmp');
SpeakArray[nn]:=false;
CommandCode[3]:= 255;
CommandCode[4] := 32;
if fComPort.Connect then
fComPort.SendDataEx(@CommandCode, sizeof(CommandCode), 300)
end else
begin
(Sender as TImage).Picture.LoadFromFile('speakon.bmp');
for mm:=1 to 31 do
begin
if mm=nn then
SpeakArray[mm]:=true
else begin
SpeakArray[mm]:=false;
SpeakImageArray[mm].Picture.LoadFromFile('speakoff.bmp');
end;
end;
CommandCode[3]:= nn;
CommandCode[4] := 32;
if fComPort.Connect then
fComPort.SendDataEx(@CommandCode, sizeof(CommandCode), 300)
end;
end;
procedure TAudioMatrixSetForm.ImageL1Click(Sender: TObject);
var
nn:integer;
ss:string;
begin
ss:= (Sender as TImage).Name;
nn:=length(ss);
nn:=StrToInt(copy(ss, 7,nn-5));
if ListenArray[nn] then
begin
(Sender as TImage).Picture.LoadFromFile('Listenoff.bmp');
ListenArray[nn]:=false;
CommandCode[3]:= 255;
CommandCode[4] := nn;
if fComPort.Connect then
fComPort.SendDataEx(@CommandCode, sizeof(CommandCode), 300)
end else
begin
(Sender as TImage).Picture.LoadFromFile('Listenon.bmp');
ListenArray[nn]:=true;
CommandCode[3]:= 32;
CommandCode[4] := nn;
if fComPort.Connect then
fComPort.SendDataEx(@CommandCode, sizeof(CommandCode), 300)
end;
end;
procedure TAudioMatrixSetForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_F8 then
if OpenDialog1.Execute then
SeSkinEngine1.SkinFile:=OpenDialog1.FileName;
end;
procedure TAudioMatrixSetForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
with tabAMatrix do
begin
Open;
edit;
FieldByName('spot1').AsString:=edit1.Text;
FieldByName('spot2').AsString:=edit2.Text;
FieldByName('spot3').AsString:=edit3.Text;
FieldByName('spot4').AsString:=edit4.Text;
FieldByName('spot5').AsString:=edit5.Text;
FieldByName('spot6').AsString:=edit6.Text;
FieldByName('spot7').AsString:=edit7.Text;
FieldByName('spot8').AsString:=edit8.Text;
FieldByName('spot9').AsString:=edit9.Text;
FieldByName('spot10').AsString:=edit10.Text;
FieldByName('spot11').AsString:=edit11.Text;
FieldByName('spot12').AsString:=edit12.Text;
FieldByName('spot13').AsString:=edit13.Text;
FieldByName('spot14').AsString:=edit14.Text;
FieldByName('spot15').AsString:=edit15.Text;
FieldByName('spot16').AsString:=edit16.Text;
FieldByName('spot17').AsString:=edit17.Text;
FieldByName('spot18').AsString:=edit18.Text;
FieldByName('spot19').AsString:=edit19.Text;
FieldByName('spot20').AsString:=edit20.Text;
FieldByName('spot21').AsString:=edit21.Text;
FieldByName('spot22').AsString:=edit22.Text;
FieldByName('spot23').AsString:=edit23.Text;
FieldByName('spot24').AsString:=edit24.Text;
FieldByName('spot25').AsString:=edit25.Text;
FieldByName('spot26').AsString:=edit26.Text;
FieldByName('spot27').AsString:=edit27.Text;
FieldByName('spot28').AsString:=edit28.Text;
FieldByName('spot29').AsString:=edit29.Text;
FieldByName('spot30').AsString:=edit30.Text;
FieldByName('spot31').AsString:=edit31.Text;
FieldByName('listen1').AsBoolean:=ListenArray[1];
FieldByName('listen2').AsBoolean:=ListenArray[2];
FieldByName('listen3').AsBoolean:=ListenArray[3];
FieldByName('listen4').AsBoolean:=ListenArray[4];
FieldByName('listen5').AsBoolean:=ListenArray[5];
FieldByName('listen6').AsBoolean:=ListenArray[6];
FieldByName('listen7').AsBoolean:=ListenArray[7];
FieldByName('listen8').AsBoolean:=ListenArray[8];
FieldByName('listen9').AsBoolean:=ListenArray[9];
FieldByName('listen10').AsBoolean:=ListenArray[10];
FieldByName('listen11').AsBoolean:=ListenArray[11];
FieldByName('listen12').AsBoolean:=ListenArray[12];
FieldByName('listen13').AsBoolean:=ListenArray[13];
FieldByName('listen14').AsBoolean:=ListenArray[14];
FieldByName('listen15').AsBoolean:=ListenArray[15];
FieldByName('listen16').AsBoolean:=ListenArray[16];
FieldByName('listen17').AsBoolean:=ListenArray[17];
FieldByName('listen18').AsBoolean:=ListenArray[18];
FieldByName('listen19').AsBoolean:=ListenArray[19];
FieldByName('listen20').AsBoolean:=ListenArray[20];
FieldByName('listen21').AsBoolean:=ListenArray[21];
FieldByName('listen22').AsBoolean:=ListenArray[22];
FieldByName('listen23').AsBoolean:=ListenArray[23];
FieldByName('listen24').AsBoolean:=ListenArray[24];
FieldByName('listen25').AsBoolean:=ListenArray[25];
FieldByName('listen26').AsBoolean:=ListenArray[26];
FieldByName('listen27').AsBoolean:=ListenArray[27];
FieldByName('listen28').AsBoolean:=ListenArray[28];
FieldByName('listen29').AsBoolean:=ListenArray[29];
FieldByName('listen30').AsBoolean:=ListenArray[30];
FieldByName('listen31').AsBoolean:=ListenArray[31];
FieldByName('Speak1').AsBoolean:=SpeakArray[1];
FieldByName('Speak2').AsBoolean:=SpeakArray[2];
FieldByName('Speak3').AsBoolean:=SpeakArray[3];
FieldByName('Speak4').AsBoolean:=SpeakArray[4];
FieldByName('Speak5').AsBoolean:=SpeakArray[5];
FieldByName('Speak6').AsBoolean:=SpeakArray[6];
FieldByName('Speak7').AsBoolean:=SpeakArray[7];
FieldByName('Speak8').AsBoolean:=SpeakArray[8];
FieldByName('Speak9').AsBoolean:=SpeakArray[9];
FieldByName('Speak10').AsBoolean:=SpeakArray[10];
FieldByName('Speak11').AsBoolean:=SpeakArray[11];
FieldByName('Speak12').AsBoolean:=SpeakArray[12];
FieldByName('Speak13').AsBoolean:=SpeakArray[13];
FieldByName('Speak14').AsBoolean:=SpeakArray[14];
FieldByName('Speak15').AsBoolean:=SpeakArray[15];
FieldByName('Speak16').AsBoolean:=SpeakArray[16];
FieldByName('Speak17').AsBoolean:=SpeakArray[17];
FieldByName('Speak18').AsBoolean:=SpeakArray[18];
FieldByName('Speak19').AsBoolean:=SpeakArray[19];
FieldByName('Speak20').AsBoolean:=SpeakArray[20];
FieldByName('Speak21').AsBoolean:=SpeakArray[21];
FieldByName('Speak22').AsBoolean:=SpeakArray[22];
FieldByName('Speak23').AsBoolean:=SpeakArray[23];
FieldByName('Speak24').AsBoolean:=SpeakArray[24];
FieldByName('Speak25').AsBoolean:=SpeakArray[25];
FieldByName('Speak26').AsBoolean:=SpeakArray[26];
FieldByName('Speak27').AsBoolean:=SpeakArray[27];
FieldByName('Speak28').AsBoolean:=SpeakArray[28];
FieldByName('Speak29').AsBoolean:=SpeakArray[29];
FieldByName('Speak30').AsBoolean:=SpeakArray[30];
FieldByName('Speak31').AsBoolean:=SpeakArray[31];
Post;
close;
free;
end;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -