V5.1
This commit is contained in:
f1iwq2
370
UnitCDF.pas
Normal file
370
UnitCDF.pas
Normal file
@@ -0,0 +1,370 @@
|
||||
unit UnitCDF;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ExtCtrls , unitconfig, UnitPrinc;
|
||||
|
||||
type
|
||||
TFormCDF = class(TForm)
|
||||
Button1: TButton;
|
||||
Label20: TLabel;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
Label7: TLabel;
|
||||
Label8: TLabel;
|
||||
Label9: TLabel;
|
||||
Label10: TLabel;
|
||||
Label11: TLabel;
|
||||
Label12: TLabel;
|
||||
Label13: TLabel;
|
||||
Label14: TLabel;
|
||||
Label15: TLabel;
|
||||
Label16: TLabel;
|
||||
Label17: TLabel;
|
||||
Label18: TLabel;
|
||||
Label19: TLabel;
|
||||
ImageDigi: TImage;
|
||||
Shape1: TShape;
|
||||
Label21: TLabel;
|
||||
Label22: TLabel;
|
||||
Edit1: TEdit;
|
||||
Edit2: TEdit;
|
||||
Edit3: TEdit;
|
||||
Edit4: TEdit;
|
||||
Edit5: TEdit;
|
||||
Edit6: TEdit;
|
||||
Edit7: TEdit;
|
||||
Edit8: TEdit;
|
||||
Edit9: TEdit;
|
||||
Edit10: TEdit;
|
||||
Edit11: TEdit;
|
||||
Edit12: TEdit;
|
||||
Edit13: TEdit;
|
||||
Edit14: TEdit;
|
||||
Edit15: TEdit;
|
||||
Edit16: TEdit;
|
||||
Edit17: TEdit;
|
||||
Edit18: TEdit;
|
||||
Edit19: TEdit;
|
||||
Label23: TLabel;
|
||||
EditNAdresses: TEdit;
|
||||
LabelTitre: TLabel;
|
||||
Label24: TLabel;
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure FormActivate(Sender: TObject);
|
||||
procedure Edit1Change(Sender: TObject);
|
||||
procedure Edit2Change(Sender: TObject);
|
||||
procedure Edit3Change(Sender: TObject);
|
||||
procedure Edit4Change(Sender: TObject);
|
||||
procedure Edit5Change(Sender: TObject);
|
||||
procedure Edit6Change(Sender: TObject);
|
||||
procedure Edit7Change(Sender: TObject);
|
||||
procedure Edit8Change(Sender: TObject);
|
||||
procedure Edit9Change(Sender: TObject);
|
||||
procedure Edit10Change(Sender: TObject);
|
||||
procedure Edit11Change(Sender: TObject);
|
||||
procedure Edit12Change(Sender: TObject);
|
||||
procedure Edit13Change(Sender: TObject);
|
||||
procedure Edit14Change(Sender: TObject);
|
||||
procedure Edit15Change(Sender: TObject);
|
||||
procedure Edit16Change(Sender: TObject);
|
||||
procedure Edit18Change(Sender: TObject);
|
||||
procedure Edit19Change(Sender: TObject);
|
||||
procedure Edit17Change(Sender: TObject);
|
||||
procedure EditNAdressesChange(Sender: TObject);
|
||||
private
|
||||
{ Déclarations privées }
|
||||
public
|
||||
{ Déclarations publiques }
|
||||
end;
|
||||
|
||||
var
|
||||
FormCDF: TFormCDF;
|
||||
Adresse,Index : integer;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TFormCDF.Button1Click(Sender: TObject);
|
||||
begin
|
||||
close;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.FormActivate(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
Val(FormConfig.EditAdrSig.text,Adresse,erreur);
|
||||
index:=index_feu(Adresse);
|
||||
LabelTitre.caption:='Adresse du signal: '+intToSTR(adresse);
|
||||
|
||||
Label1.caption:=etats[1];
|
||||
Label2.caption:=etats[2];
|
||||
Label3.caption:=etats[3];
|
||||
Label4.caption:=etats[4];
|
||||
Label5.caption:=etats[5];
|
||||
Label6.caption:=etats[6];
|
||||
Label7.caption:=etats[7];
|
||||
Label8.caption:=etats[8];
|
||||
Label9.caption:=etats[9];
|
||||
Label10.caption:=etats[10];
|
||||
Label11.caption:=etats[11];
|
||||
Label12.caption:=etats[12];
|
||||
Label13.caption:=etats[13];
|
||||
Label14.caption:=etats[14];
|
||||
Label15.caption:=etats[15];
|
||||
Label16.caption:=etats[16];
|
||||
Label17.caption:=etats[17];
|
||||
Label18.caption:=etats[18];
|
||||
Label19.caption:=etats[19];
|
||||
|
||||
ImageDigi.Picture:=FormConfig.ImageSignal.Picture;
|
||||
with ImageDigi.Picture do
|
||||
begin
|
||||
Bitmap.TransparentMode:=tmAuto;
|
||||
Bitmap.TransparentColor:=clblue;
|
||||
end;
|
||||
ImageDigi.Transparent:=true;
|
||||
|
||||
Edit1.Text:=intToSTR(Feux[index].SR[1].sortie1); // carré
|
||||
Edit2.Text:=intToSTR(Feux[index].SR[2].sortie1); // sémaphore
|
||||
Edit3.Text:=intToSTR(Feux[index].SR[3].sortie1); // sémaphore cli
|
||||
Edit4.Text:=intToSTR(Feux[index].SR[4].sortie1);
|
||||
Edit5.Text:=intToSTR(Feux[index].SR[5].sortie1);
|
||||
Edit6.Text:=intToSTR(Feux[index].SR[6].sortie1);
|
||||
Edit7.Text:=intToSTR(Feux[index].SR[7].sortie1);
|
||||
Edit8.Text:=intToSTR(Feux[index].SR[8].sortie1);
|
||||
Edit9.Text:=intToSTR(Feux[index].SR[9].sortie1);
|
||||
Edit10.Text:=intToSTR(Feux[index].SR[10].sortie1);
|
||||
Edit11.Text:=intToSTR(Feux[index].SR[11].sortie1);
|
||||
Edit12.Text:=intToSTR(Feux[index].SR[12].sortie1);
|
||||
Edit13.Text:=intToSTR(Feux[index].SR[13].sortie1);
|
||||
Edit14.Text:=intToSTR(Feux[index].SR[14].sortie1);
|
||||
Edit15.Text:=intToSTR(Feux[index].SR[15].sortie1);
|
||||
Edit16.Text:=intToSTR(Feux[index].SR[16].sortie1);
|
||||
Edit17.Text:=intToSTR(Feux[index].SR[17].sortie1);
|
||||
Edit18.Text:=intToSTR(Feux[index].SR[18].sortie1);
|
||||
Edit19.Text:=intToSTR(Feux[index].SR[19].sortie1);
|
||||
|
||||
editNadresses.text:=intToSTR(feux[index].NA);
|
||||
end;
|
||||
|
||||
procedure Maj_DB;
|
||||
var s : string;
|
||||
begin
|
||||
s:=encode_sig_feux(index);
|
||||
formconfig.RichSig.Lines[index-1]:=s;
|
||||
aff_champs_sig_feux(index);
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit1Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit1.Text,Feux[index].SR[1].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit2Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit2.Text,Feux[index].SR[2].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit3Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit3.Text,Feux[index].SR[3].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit4Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit4.Text,Feux[index].SR[4].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit5Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit5.Text,Feux[index].SR[5].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit6Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit6.Text,Feux[index].SR[6].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit7Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit7.Text,Feux[index].SR[7].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit8Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit8.Text,Feux[index].SR[8].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit9Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit9.Text,Feux[index].SR[9].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit10Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit10.Text,Feux[index].SR[10].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit11Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit11.Text,Feux[index].SR[11].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit12Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit12.Text,Feux[index].SR[12].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit13Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit13.Text,Feux[index].SR[13].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit14Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit14.Text,Feux[index].SR[14].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit15Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit15.Text,Feux[index].SR[15].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit16Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit16.Text,Feux[index].SR[16].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit17Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit17.Text,Feux[index].SR[17].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit18Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit18.Text,Feux[index].SR[18].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.Edit19Change(Sender: TObject);
|
||||
var erreur : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(Edit19.Text,Feux[index].SR[19].sortie1,erreur);
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormCDF.EditNAdressesChange(Sender: TObject);
|
||||
var erreur,i : integer;
|
||||
begin
|
||||
if index<>0 then
|
||||
begin
|
||||
val(EditNAdresses.Text,i,erreur);
|
||||
if (i>0) and (i<5) then
|
||||
begin
|
||||
Feux[index].Na:=i;
|
||||
Maj_DB;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user