1868 lines
62 KiB
ObjectPascal
1868 lines
62 KiB
ObjectPascal
unit UnitModifAction;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, ComCtrls, Buttons, ExtCtrls, Spin , MMSystem, ImgList,
|
|
Menus;
|
|
|
|
type
|
|
TFormModifAction = class(TForm)
|
|
ComboBoxActions: TComboBox;
|
|
PageControlAct: TPageControl;
|
|
TabSheetDecl: TTabSheet;
|
|
TabSheetOp: TTabSheet;
|
|
ListBoxDeclench: TListBox;
|
|
GroupBoxDecl: TGroupBox;
|
|
LabelAdresse: TLabel;
|
|
LabelTrain: TLabel;
|
|
EditAdr: TEdit;
|
|
EditAdr2: TEdit;
|
|
EditTrainDecl: TEdit;
|
|
ComboBoxFamille: TComboBox;
|
|
ListBoxOper: TListBox;
|
|
Shape1: TShape;
|
|
ListBoxOperations: TListBox;
|
|
LabelDecl: TLabel;
|
|
Label3: TLabel;
|
|
GroupBoxParam: TGroupBox;
|
|
ButtonAjouter: TButton;
|
|
ButtonAppAction: TButton;
|
|
Label2: TLabel;
|
|
SpeedButtonSupprime: TSpeedButton;
|
|
LabelEtat: TLabel;
|
|
SpinEditEtat: TSpinEdit;
|
|
SpinButton1: TSpinButton;
|
|
Labelheure: TLabel;
|
|
LabeledEditTrain: TLabeledEdit;
|
|
OpenDialogSon: TOpenDialog;
|
|
SpeedButtonCharger: TSpeedButton;
|
|
SpeedButtonJoue: TSpeedButton;
|
|
LabeledEditAdresse: TLabeledEdit;
|
|
LabeledEditFonctionF: TLabeledEdit;
|
|
CheckBoxRAZ: TCheckBox;
|
|
Label5: TLabel;
|
|
RichEditInf: TRichEdit;
|
|
ButtonApplDecl: TButton;
|
|
LabeledEditNomAct: TLabeledEdit;
|
|
Label1: TLabel;
|
|
ComboBoxAccComUSB: TComboBox;
|
|
LabeledEditTempoF: TLabeledEdit;
|
|
ImageIcone: TImage;
|
|
LabelPeriph: TLabel;
|
|
LabelInfo: TLabel;
|
|
TabSheet1: TTabSheet;
|
|
Label4: TLabel;
|
|
ListBoxCondTot: TListBox;
|
|
Shape2: TShape;
|
|
Label6: TLabel;
|
|
ListBoxConditions: TListBox;
|
|
GroupBox1: TGroupBox;
|
|
ChampTrain: TLabeledEdit;
|
|
Champ1: TLabeledEdit;
|
|
Champ2: TLabeledEdit;
|
|
ButtonAppCond: TButton;
|
|
SpinEditHeure1: TSpinEdit;
|
|
SpinEditMn1: TSpinEdit;
|
|
SpinEditHeure2: TSpinEdit;
|
|
SpinEditMn2: TSpinEdit;
|
|
LabelHeureDebut: TLabel;
|
|
LabelHeureFin: TLabel;
|
|
SpinEditEtat2: TSpinEdit;
|
|
LabelEtat2: TLabel;
|
|
RadioEtatSignal: TRadioGroup;
|
|
SpinEditEtatop: TSpinEdit;
|
|
LabelEtatOp: TLabel;
|
|
PopupMenuL: TPopupMenu;
|
|
Monter1: TMenuItem;
|
|
Descendre1: TMenuItem;
|
|
N1: TMenuItem;
|
|
Supprimer1: TMenuItem;
|
|
N2: TMenuItem;
|
|
outdployer1: TMenuItem;
|
|
outcontracter1: TMenuItem;
|
|
ButtonFonction: TButton;
|
|
ButtonVoirFonc: TButton;
|
|
LabelInfoFonc: TLabel;
|
|
Label2InfoFonction: TLabel;
|
|
SpeedButton1: TSpeedButton;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure ListBoxOperDrawItem(Control: TWinControl; Index: Integer;
|
|
Rect: TRect; State: TOwnerDrawState);
|
|
procedure ListBoxDeclenchDrawItem(Control: TWinControl; Index: Integer;
|
|
Rect: TRect; State: TOwnerDrawState);
|
|
procedure ComboBoxFamilleChange(Sender: TObject);
|
|
procedure FormActivate(Sender: TObject);
|
|
procedure ComboBoxActionsChange(Sender: TObject);
|
|
procedure ListBoxOperationsDrawItem(Control: TWinControl;
|
|
Index: Integer; Rect: TRect; State: TOwnerDrawState);
|
|
procedure ButtonAppActionClick(Sender: TObject);
|
|
procedure ButtonAjouterClick(Sender: TObject);
|
|
procedure SpeedButtonSupprimeClick(Sender: TObject);
|
|
procedure SpinButton1UpClick(Sender: TObject);
|
|
procedure SpinButton1DownClick(Sender: TObject);
|
|
procedure EditAdrChange(Sender: TObject);
|
|
procedure EditAdr2Change(Sender: TObject);
|
|
procedure SpinEditEtatChange(Sender: TObject);
|
|
procedure EditTrainDeclChange(Sender: TObject);
|
|
procedure ListBoxOperationsMouseDown(Sender: TObject;
|
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|
procedure LabeledEditAdresseChange(Sender: TObject);
|
|
procedure LabeledEditFonctionFChange(Sender: TObject);
|
|
procedure LabeledEditTrainChange(Sender: TObject);
|
|
procedure SpeedButtonJoueClick(Sender: TObject);
|
|
procedure SpeedButtonChargerClick(Sender: TObject);
|
|
procedure CheckBoxRAZClick(Sender: TObject);
|
|
procedure ButtonApplDeclClick(Sender: TObject);
|
|
procedure LabeledEditNomActChange(Sender: TObject);
|
|
procedure ComboBoxAccComUSBChange(Sender: TObject);
|
|
procedure LabeledEditTempoFChange(Sender: TObject);
|
|
procedure ListBoxOperationsDblClick(Sender: TObject);
|
|
procedure ListBoxCondTotDrawItem(Control: TWinControl; Index: Integer;
|
|
Rect: TRect; State: TOwnerDrawState);
|
|
procedure ListBoxConditionsMouseDown(Sender: TObject;
|
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|
procedure ListBoxConditionsDrawItem(Control: TWinControl;
|
|
Index: Integer; Rect: TRect; State: TOwnerDrawState);
|
|
procedure ButtonAppCondClick(Sender: TObject);
|
|
procedure Champ1Change(Sender: TObject);
|
|
procedure Champ2Change(Sender: TObject);
|
|
procedure SpinEditHeure1Change(Sender: TObject);
|
|
procedure SpinEditMn1Change(Sender: TObject);
|
|
procedure SpinEditHeure2Change(Sender: TObject);
|
|
procedure SpinEditMn2Change(Sender: TObject);
|
|
procedure ChampTrainChange(Sender: TObject);
|
|
procedure SpinEditEtat2Change(Sender: TObject);
|
|
procedure RadioEtatSignalClick(Sender: TObject);
|
|
procedure SpinEditEtatopChange(Sender: TObject);
|
|
procedure ListBoxOperationsKeyDown(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
procedure ButtonFonctionClick(Sender: TObject);
|
|
procedure ButtonVoirFoncClick(Sender: TObject);
|
|
procedure SpeedButton1Click(Sender: TObject);
|
|
private
|
|
{ Déclarations privées }
|
|
public
|
|
{ Déclarations publiques }
|
|
end;
|
|
|
|
var
|
|
FormModifAction: TFormModifAction;
|
|
AffParam : boolean;
|
|
ClicDeclenche,ClicAction,ClicCond,DeclencheurAffiche,OperationAffiche : integer;
|
|
|
|
function Info_action(i : integer) : string;
|
|
function affecte_operation(i : integer) : string;
|
|
|
|
implementation
|
|
|
|
uses Unitprinc, UnitConfigCellTCO, UnitConfig;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure efface_champs_declencheurs_conditions;
|
|
begin
|
|
with formModifAction do
|
|
begin
|
|
// déclencheurs
|
|
RadioEtatSignal.Visible:=false;
|
|
LabelAdresse.Visible:=false;
|
|
SpinEditEtat.Visible:=false;
|
|
EditAdr.visible:=false;
|
|
LabelHeure.Visible:=false;
|
|
EditAdr2.Visible:=false;
|
|
LabelTrain.Visible:=false;
|
|
EditTrainDecl.Visible:=false;
|
|
LabelEtat.Visible:=false;
|
|
LabelInfoFonc.Visible:=false;
|
|
ButtonFonction.Visible:=false;
|
|
// conditions
|
|
Champ1.Visible:=false;
|
|
Champ2.Visible:=false;
|
|
SpinEditHeure1.visible:=false;
|
|
SpinEditMn1.visible:=false;
|
|
SpinEditHeure2.visible:=false;
|
|
SpinEditMn2.visible:=false;
|
|
LabelHeureDebut.Visible:=false;
|
|
LabelHeureFin.Visible:=false;
|
|
LabelEtat2.Visible:=false;
|
|
SpinEditEtat2.Visible:=false;
|
|
ChampTrain.Visible:=false;
|
|
ButtonVoirFonc.Visible:=false;
|
|
Label2InfoFonction.visible:=false;
|
|
end;
|
|
|
|
end;
|
|
|
|
// rend invisibles les champs opérations
|
|
procedure efface_champs_operations;
|
|
begin
|
|
with FormModifAction do
|
|
begin
|
|
LabelPeriph.Visible:=false;
|
|
LabeledEditTempoF.Visible:=false;
|
|
LabeledEditTrain.Visible:=false;
|
|
SpeedButtonJoue.visible:=false;
|
|
SpeedButtonCharger.visible:=false;
|
|
LabeledEditFonctionF.Visible:=false;
|
|
LabeledEditAdresse.Visible:=false;
|
|
SpinEditEtatop.Visible:=false;
|
|
checkBoxRaz.Visible:=false;
|
|
GroupBoxParam.Visible:=true;
|
|
labelEtatOp.Visible:=false;
|
|
//RichEditInf.clear;
|
|
ComboBoxAccComUSB.visible:=false;
|
|
end;
|
|
end;
|
|
|
|
// ajoute à la listbox t une ligne avec son icone opérations[]
|
|
// i numéro d'opération dans le ytableau operations
|
|
function affecte_operation(i : integer) : string;
|
|
var s : string;
|
|
io : integer;
|
|
begin
|
|
//if ligneClicAct>=0 then io:=Tablo_Action[ligneclicAct+1].tabloOp[i].numoperation else io:=0;
|
|
s:='';
|
|
if i<ActionBoutonTCO then s:=(Format('%d%s', [i-1, s])); // valeur d'index de l'icone dans la ImagelistIcones
|
|
if i=ActionBoutonTCO then s:=(Format('%d%s', [IconeBouton, s])); // valeur d'index de l'icone dans la ImagelistIcones
|
|
if i=ActionAffecteMemoire then s:=(Format('%d%s', [IconeActionAffecteMemoire, s])); // valeur d'index de l'icone dans la ImagelistIcones
|
|
if i=ActionIncMemoire then s:=(Format('%d%s', [IconeActionIncMemoire, s])); // valeur d'index de l'icone dans la ImagelistIcones
|
|
if i=ActionDecMemoire then s:=(Format('%d%s', [IconeActionDecMemoire, s])); // valeur d'index de l'icone dans la ImagelistIcones
|
|
s:=s+operations[i].nom;
|
|
result:=s;
|
|
end;
|
|
|
|
procedure TFormModifAction.FormCreate(Sender: TObject);
|
|
var i,icone : integer;
|
|
s : string;
|
|
begin
|
|
ListBoxOper.Style:=lbOwnerDrawVariable; // pour afficher des icones
|
|
ListBoxDeclench.Style:=lbOwnerDrawVariable;
|
|
ListBoxOperations.Style:=lbOwnerDrawVariable;
|
|
ListBoxCondTot.Style:=lbOwnerDrawVariable;
|
|
ListBoxConditions.Style:=lbOwnerDrawVariable;
|
|
|
|
for i:=1 to NbreDeclencheurs do
|
|
begin
|
|
icone:=0;
|
|
case i of
|
|
DeclHorloge : icone:=iconeHorloge;
|
|
DeclPeriph : icone:=iconePeriph;
|
|
DeclAccessoire: icone:=IconeAccessoire;
|
|
DeclDetAct: icone:=IconeDet;
|
|
DeclZoneDet: icone:=IconeZoneDet;
|
|
DeclDemarTrain : icone:=IconeDemarTrain;
|
|
DeclArretTrain : icone:=IconeArretTrain;
|
|
DeclSignal : icone:=IconeSignal;
|
|
DeclFonction : icone:=IconeFonction;
|
|
DeclClavier : icone:=IconeBoutonClavier;
|
|
end;
|
|
ListBoxDeclench.Items.Add(Format('%d%s', [icone, declencheurs[i].nom])); // valeur d'index de l'icone dans la ImagelistIcones
|
|
ListBoxDeclench.itemHeight:=16;
|
|
end;
|
|
|
|
for i:=1 to NbreOperations do
|
|
begin
|
|
s:=affecte_operation(i);
|
|
formModifAction.ListBoxOper.Items.add(s);
|
|
ListBoxOper.itemHeight:=16; // 16 mini taille des éléments pour l'icone
|
|
end;
|
|
|
|
for i:=1 to NbreConditions do
|
|
begin
|
|
icone:=0;
|
|
case i of
|
|
CondVrai : icone:=iconeVrai;
|
|
CondFaux : icone:=iconeFaux;
|
|
CondVitTrain : icone:=IconeVitTrain;
|
|
CondPosAcc : icone:=IconeAccessoire;
|
|
condHorl : icone:=IconeLanceHorl;
|
|
condTrainSig : icone:=IconeDeclSignal;
|
|
CondFonction : icone:=IconeFonction;
|
|
CondBouton : icone:=IconeBouton;
|
|
CondMemoireEgal : icone:=IconeCondMemoireEgal;
|
|
CondMemoireInf : icone:=IconeCondMemoireInf;
|
|
CondMemoireSup : icone:=IconeCondMemoireSup;
|
|
|
|
end;
|
|
ListBoxCondTot.Items.Add(Format('%d%s', [icone, Conditions[i].nom])); // valeur d'index de l'icone dans la ImagelistIcones
|
|
ListBoxCondTot.itemHeight:=16; // 16 taille des éléments pour l'icone
|
|
end;
|
|
|
|
with ComboBoxFamille do
|
|
begin
|
|
items.Add('Tous');
|
|
items.Add('Système');
|
|
items.Add('Pilotage');
|
|
items.Add('Trains');
|
|
itemIndex:=0;
|
|
end;
|
|
|
|
ListBoxOperations.Hint:='Liste chronologique des opérations à effectuer'+#13+
|
|
'Double clic pour valider/dévalider une opération';
|
|
LabeledEditFonctionF.Hint:='Fonction F de 0 à 28';
|
|
|
|
Efface_champs_operations;
|
|
Efface_champs_declencheurs_conditions;
|
|
PageControlAct.ActivePage:=TabSheetDecl;
|
|
end;
|
|
|
|
procedure TFormModifAction.ListBoxOperDrawItem(Control: TWinControl;
|
|
Index: Integer; Rect: TRect; State: TOwnerDrawState);
|
|
var
|
|
i,erreur: Integer;
|
|
ItemText: string;
|
|
begin
|
|
with ListBoxOper do
|
|
begin
|
|
ItemText:=Items[index];
|
|
val(ItemText,i,erreur);
|
|
Delete(ItemText,1,erreur-1);
|
|
Canvas.Fillrect(Rect);
|
|
formConfCellTCO.ImageListIcones.Draw(Canvas, Rect.Left, Rect.Top, i);
|
|
Canvas.Textout(Rect.Left + formConfCellTCO.ImageListIcones.Width + 2, Rect.Top, ItemText);
|
|
end;
|
|
end;
|
|
|
|
procedure TFormModifAction.ListBoxDeclenchDrawItem(Control: TWinControl;
|
|
Index: Integer; Rect: TRect; State: TOwnerDrawState);
|
|
var larg,i,erreur : integer;
|
|
itemText : string;
|
|
begin
|
|
with FormModifAction.ListBoxDeclench do
|
|
begin
|
|
larg:=formConfCellTCO.ImageListIcones.Width;
|
|
ItemText:=Items[index];
|
|
val(ItemText,i,erreur);
|
|
Delete(ItemText,1,erreur-1);
|
|
// efface le rectangle de l'élément
|
|
Canvas.Fillrect(Rect);
|
|
if index+1=Tablo_Action[ligneclicAct+1].declencheur then
|
|
formConfCellTCO.ImageListIcones.Draw(Canvas, Rect.Left, Rect.Top, 24);
|
|
|
|
// affiche l'icone de l'élément
|
|
formConfCellTCO.ImageListIcones.Draw(Canvas, Rect.Left+larg, Rect.Top, i);
|
|
// affiche le texte de l'élément
|
|
Canvas.Textout(Rect.Left + 2*larg+ 2, Rect.Top, ItemText);
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TFormModifAction.ListBoxOperationsDrawItem(Control: TWinControl;
|
|
Index: Integer; Rect: TRect; State: TOwnerDrawState);
|
|
var
|
|
i,erreur: Integer;
|
|
ItemText: string;
|
|
begin
|
|
if affevt then Affiche('Evt ListBoxOperationsDrawItem '+intToSTR(index),clyellow);
|
|
with ListBoxOperations do
|
|
begin
|
|
ItemText:=Items[index];
|
|
val(ItemText,i,erreur);
|
|
Delete(ItemText,1,erreur-1);
|
|
Canvas.Fillrect(Rect);
|
|
formConfCellTCO.ImageListIcones.Draw(Canvas, Rect.Left, Rect.Top, i);
|
|
Canvas.Textout(Rect.Left + formConfCellTCO.ImageListIcones.Width + 2, Rect.Top, ItemText);
|
|
end;
|
|
|
|
end;
|
|
|
|
procedure TFormModifAction.ComboBoxFamilleChange(Sender: TObject);
|
|
var i,famille : integer;
|
|
s : string;
|
|
begin
|
|
ListBoxOper.Clear;
|
|
famille:=ComboBoxFamille.ItemIndex; // famille=0=afficher tous
|
|
|
|
for i:=1 to NbreOperations do
|
|
begin
|
|
if (operations[i].famille=famille) or (famille=0) then
|
|
begin
|
|
//s:=operations[i].nom;
|
|
s:=affecte_operation(i);
|
|
formModifAction.ListBoxOper.items.Add(s);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function Info_action(i : integer) : string;
|
|
var nop,op,top,decl : integer;
|
|
r : single;
|
|
s :string;
|
|
begin
|
|
decl:=Tablo_Action[i].declencheur;
|
|
s:='Le déclencheur ';
|
|
case decl of
|
|
DeclHorloge :
|
|
s:=s+'horloge à '+format('%.2d',[Tablo_Action[i].heure])+'h'+format('%.2d',[Tablo_Action[i].minute]);
|
|
DeclPeriph :
|
|
s:=s+'périphérique : '+Tablo_Action[i].ordrePeriph;
|
|
DeclAccessoire :
|
|
s:=s+'accessoire '+intToSTR(Tablo_Action[i].adresse);
|
|
DeclDetAct :
|
|
begin
|
|
s:=s+'détecteur/Actionneur '+intToSTR(Tablo_Action[i].adresse);
|
|
s:=s+' par le train "'+Tablo_Action[i].trainDecl+'"';
|
|
end;
|
|
DeclZoneDet :
|
|
s:=s+'Zone détection '+intToSTR(Tablo_Action[i].adresse)+' '+intToSTR(Tablo_Action[i].adresse2);
|
|
DeclDemarTrain :
|
|
s:=s+'démarrage du train '+Tablo_Action[i].trainDecl;
|
|
DeclArretTrain :
|
|
s:=s+'arrêt du train '+Tablo_Action[i].trainDecl;
|
|
DeclSignal :
|
|
begin
|
|
s:=s+'changement du signal '+intToSTR(Tablo_Action[i].adresse);
|
|
case Tablo_Action[i].etat of
|
|
0 : s:=s+' sur ouverture';
|
|
1 : s:=s+' sur voie libre';
|
|
2 : s:=s+' sur ouverture restreinte';
|
|
3 : s:=s+' sur fermeture';
|
|
end;
|
|
end;
|
|
DeclFonction :
|
|
begin
|
|
s:=s+'Fonction logique '+intToSTR(tablo_action[i].adresse);
|
|
end;
|
|
DeclClavier : s:=s+'Touche '+intToSTR(tablo_action[i].adresse)+' du clavier/bloc USB ';
|
|
end;
|
|
|
|
// conditions
|
|
s:=s+#13;
|
|
nop:=Tablo_Action[i].NbCond;
|
|
for op:=1 to nop do
|
|
begin
|
|
s:=s+'Condition :';
|
|
top:=Tablo_Action[i].tabloCond[op].numcondition;
|
|
case top of
|
|
CondVrai : s:=s+'toujours vraie ';
|
|
CondFaux : s:=s+'toujours fausse ';
|
|
CondVitTrain : s:=s+'vitesse train '+Tablo_Action[i].tabloCond[op].train+' '+intToSTR(Tablo_Action[i].tabloCond[op].vitmini)+
|
|
' '+intToSTR(Tablo_Action[i].tabloCond[op].vitMaxi);
|
|
CondPosAcc : s:=s+' position d''accessoire '+intToSTR(Tablo_Action[i].tabloCond[op].accessoire)+' état '+intToSTR(Tablo_Action[i].tabloCond[op].etat);
|
|
CondHorl : s:=s+' horloge '+intToSTR(Tablo_Action[i].tabloCond[op].HeureMin)+'h'+intToSTR(Tablo_Action[i].tabloCond[op].MinuteMin)+' à '+
|
|
intToSTR(Tablo_Action[i].tabloCond[op].HeureMax)+'h'+intToSTR(Tablo_Action[i].tabloCond[op].MinuteMax)+' ';
|
|
condTrainSig : s:=s+'train '+Tablo_Action[i].tabloCond[op].train+' arrêté au signal '+intToSTR(Tablo_Action[i].tabloCond[op].Adresse);
|
|
condFonction : s:=s+'fonction logique '+intToSTR(tablo_action[i].tabloCond[op].adresse);
|
|
condBouton : s:=s+'bouton '+intToSTR(tablo_action[i].tabloCond[op].adresse)+' TCO';
|
|
condMemoireEgal : s:=s+'mémoire '+intToSTR(tablo_action[i].tabloCond[op].adresse)+' à '+intToSTR(tablo_action[i].tabloCond[op].etat);
|
|
condMemoireInf : s:=s+'mémoire '+intToSTR(tablo_action[i].tabloCond[op].adresse)+' < '+intToSTR(tablo_action[i].tabloCond[op].etat);
|
|
condMemoireSup : s:=s+'mémoire '+intToSTR(tablo_action[i].tabloCond[op].adresse)+' > '+intToSTR(tablo_action[i].tabloCond[op].etat);
|
|
|
|
end;
|
|
s:=s+#13;
|
|
end;
|
|
|
|
nop:=Tablo_Action[i].NbOperations;
|
|
|
|
if nop=0 then s:=s+'ne déclenche aucune opération'+#13;
|
|
if nop=1 then s:=s+'déclenche 1 opération :'+#13;
|
|
if nop>1 then s:=s+'déclenche '+intToSTR(nop)+' opérations :'+#13;
|
|
|
|
s:=s+'--------------------'+#13;
|
|
|
|
for op:=1 to nop do
|
|
begin
|
|
top:=Tablo_Action[i].tabloop[op].numoperation;
|
|
case top of
|
|
ActionAffTCO : s:=s+'Affiche TCO '+intToSTR(Tablo_Action[i].tabloop[op].NumTCO)+#13;
|
|
ActionAffSC : s:=s+'Affiche signaux_complexes'+#13;
|
|
ActionAffCDM : s:=s+'Affiche CDM rail'+#13;
|
|
ActionAccessoire :
|
|
begin
|
|
s:=s+'Pilote l''accessoire '+intToSTR(Tablo_Action[i].tabloop[op].adresse)+
|
|
' à '+intToSTR(Tablo_Action[i].tabloop[op].etat);
|
|
if Tablo_Action[i].tabloop[op].zero then s:=s+' impulsionnel'+#13 else s:=s+' maintenu'+#13;
|
|
end;
|
|
ActionArretTRains : s:=s+'Arrêt des trains'+#13;
|
|
ActionLanceHorl : s:=s+'Lance l''horloge'+#13;
|
|
ActionArretHorl : s:=s+'Arrête l''horloge'+#13;
|
|
ActionInitHorl : s:=s+'Initialise l''horloge'+#13;
|
|
ActionAffHorl : s:=s+'Affiche l''horloge'+#13;
|
|
ActionVitesse : s:=s+'Modifie la vitesse du train '+Tablo_Action[i].tabloop[op].train+' à '+intToSTR(Tablo_Action[i].tabloop[op].vitesse)+#13;
|
|
ActionCdePeriph : s:=s+'Pilote le périphérique '+intToSTR(Tablo_Action[i].tabloop[op].periph)+' chaîne : '+Tablo_Action[i].tabloop[op].chaine+#13;
|
|
ActionFonctionF : s:=s+'Fonction F'+intToSTR(Tablo_Action[i].tabloop[op].fonctionF)+' à '+IntToSTR(Tablo_action[i].tabloOp[op].etat)+
|
|
' train dest='+Tablo_Action[i].tabloop[op].train+#13;
|
|
ActionSon : s:=s+'Son '+Tablo_Action[i].tabloop[op].train+#13;
|
|
ActionTempo :
|
|
begin
|
|
nop:=Tablo_Action[i].tabloop[op].tempoF;
|
|
r:=nop/10;
|
|
s:=s+'Temporisation '+intToSTR(nop)+' ('+Format('%.1f', [r])+'s)'#13;
|
|
end;
|
|
ActionBoutonTCO : s:=s+'Change l''état du bouton '+intToSTR(Tablo_Action[i].tabloop[op].adresse)+' à '+intToSTR(Tablo_Action[i].tabloop[op].etat)+#13;
|
|
ActionAffecteMemoire : s:=s+'Affectation de la mémoire '+intToSTR(Tablo_Action[i].tabloop[op].adresse)+' à '+intToSTR(Tablo_Action[i].tabloop[op].etat)+#13;
|
|
ActionIncMemoire : s:=s+'Incrémentation de la mémoire '+intToSTR(Tablo_Action[i].tabloop[op].adresse)+#13;
|
|
ActionDecMemoire : s:=s+'Décrémentation de la mémoire '+intToSTR(Tablo_Action[i].tabloop[op].adresse)+#13;
|
|
end;
|
|
end;
|
|
result:=s;
|
|
end;
|
|
|
|
procedure affiche_champs_operations(index,indexaction : integer);
|
|
var nb,act : integer;
|
|
begin
|
|
Nb:=Tablo_Action[index].NbOperations;
|
|
// si pas d'action sélectionnée et que la liste n'est pas nulle, sélectionner la première
|
|
if (Nb>0) and (indexAction=0) then
|
|
begin
|
|
indexAction:=1;
|
|
formModifAction.listBoxOperations.itemIndex:=indexaction;
|
|
formModifAction.listBoxOperations.Selected[indexaction-1]:=true;
|
|
end;
|
|
|
|
// formModifAction.RichEditInf.clear;
|
|
efface_champs_operations;
|
|
|
|
if Nb>=indexAction then
|
|
begin
|
|
Act:=Tablo_Action[index].tabloop[indexAction].numoperation;
|
|
|
|
with formModifAction do
|
|
begin
|
|
case Act of
|
|
ActionAffTCO :
|
|
begin
|
|
LabeledEditAdresse.hint:='Numéro du TCO';
|
|
LabeledEditAdresse.Visible:=true;
|
|
LabeledEditAdresse.EditLabel.Caption:='TCO n°';
|
|
LabeledEditAdresse.Text:=intToSTR(Tablo_Action[index].tabloop[indexAction].NumTCO);
|
|
end;
|
|
ActionAccessoire :
|
|
begin
|
|
LabeledEditAdresse.hint:='Adresse d''accessoire sur le bus DCC';
|
|
LabeledEditAdresse.EditLabel.Caption:='Adresse';
|
|
LabeledEditAdresse.visible:=true;
|
|
SpinEditEtatop.Visible:=true;
|
|
labelEtatOp.Visible:=true;
|
|
SpinEditEtatop.MinValue:=0;
|
|
SpinEditEtatop.MaxValue:=2;
|
|
SpinEditEtatop.hint:='Etat de l''accessoire'+#13+
|
|
'0=nul'+#13+
|
|
'1=dévié'+#13+
|
|
'2=droit';
|
|
|
|
checkBoxRaz.Visible:=true;
|
|
LabeledEditAdresse.Text:=intToSTR(Tablo_Action[index].tabloop[indexAction].adresse);
|
|
SpinEditEtatop.Value:=Tablo_Action[index].tabloop[indexAction].etat;
|
|
checkBoxRAZ.Checked:=Tablo_Action[index].tabloop[indexAction].zero;
|
|
end;
|
|
ActionVitesse :
|
|
begin
|
|
LabeledEditAdresse.EditLabel.Caption:='Vitesse';
|
|
LabeledEditAdresse.visible:=true;
|
|
LabeledEditAdresse.hint:='Vitesse de pilotage du train en crans';
|
|
LabeledEditTrain.Visible:=true;
|
|
LabeledEditTrain.EditLabel.Caption:='Train destinataire';
|
|
LabeledEditTrain.hint:='Nom unique du train';
|
|
LabeledEditAdresse.Text:=intToSTR(Tablo_Action[index].tabloop[indexAction].vitesse);
|
|
LabeledEditTrain.Text:=Tablo_Action[index].tabloop[indexAction].train;
|
|
end;
|
|
ActionCdePeriph :
|
|
begin
|
|
LabeledEditTrain.Visible:=true;
|
|
ComboBoxAccComUSB.Visible:=true;
|
|
LabelPeriph.Visible:=true;
|
|
LabeledEditTrain.EditLabel.Caption:='Commande';
|
|
LabeledEditTrain.Hint:='Commande Ascii';
|
|
LabeledEditTrain.Text:=Tablo_Action[index].tabloop[indexAction].chaine;
|
|
ComboBoxAccComUSB.itemIndex:=Tablo_Action[index].tabloop[indexAction].periph-1;
|
|
end;
|
|
ActionFonctionF :
|
|
begin
|
|
with SpinEditEtatop do
|
|
begin
|
|
Visible:=true;
|
|
MinValue:=0;
|
|
MaxValue:=1;
|
|
hint:='Etat 0 ou 1 de la fonction F';
|
|
end;
|
|
labelEtatOp.Visible:=true;
|
|
with LabeledEditTempoF do
|
|
begin
|
|
Visible:=true;
|
|
hint:='Valeur de la temporisation en 1/10ème de s'+#13+
|
|
'pour désactiver la fonction F'+#13+
|
|
'Si 0, la fonction F reste activée';
|
|
EditLabel.Caption:='Tempo (x100ms)';
|
|
Text:=intToSTR(Tablo_Action[index].tabloop[indexAction].TempoF);
|
|
end;
|
|
LabeledEditTrain.Visible:=true;
|
|
LabeledEditTrain.EditLabel.Caption:='Train destinataire';
|
|
LabeledEditTrain.hint:='Nom unique du train';
|
|
SpinEditEtatOp.Text:=IntToSTR(Tablo_Action[index].tabloop[indexAction].etat);
|
|
LabeledEditFonctionF.Text:=intToSTR(Tablo_Action[index].tabloop[indexAction].fonctionF);
|
|
LabeledEditFonctionF.Visible:=true;
|
|
LabeledEditTrain.Text:=Tablo_Action[index].tabloop[indexAction].train;
|
|
end;
|
|
ActionSon :
|
|
begin
|
|
LabeledEditTrain.Visible:=true;
|
|
SpeedButtonJoue.Visible:=true;
|
|
SpeedButtonCharger.Visible:=true;
|
|
LabeledEditTrain.EditLabel.Caption:='Son';
|
|
LabeledEditTrain.Hint:='fichier son';
|
|
LabeledEditTrain.Text:=Tablo_Action[index].tabloop[indexAction].train;
|
|
end;
|
|
ActionTempo :
|
|
begin
|
|
LabeledEditTempoF.Visible:=true;
|
|
LabeledEditTempoF.EditLabel.Caption:='Temporisation (x100 ms)';
|
|
LabeledEditTempoF.hint:='Valeur en dixièmes de secondes';
|
|
LabeledEditTempoF.Text:=intToSTR(Tablo_Action[index].tabloop[indexAction].TempoF);
|
|
end;
|
|
ActionBoutonTCO :
|
|
begin
|
|
with LabeledEditAdresse do
|
|
begin
|
|
hint:='Numéro de bouton de TCO';
|
|
Visible:=true;
|
|
EditLabel.Caption:='Bouton';
|
|
text:=intToSTR(Tablo_Action[index].tabloop[indexAction].adresse);
|
|
end;
|
|
With SpinEditEtatOp do
|
|
begin
|
|
Text:=intToSTR(Tablo_Action[index].tabloop[indexAction].etat);
|
|
Visible:=true;
|
|
MinValue:=0;
|
|
MaxValue:=1;
|
|
hint:='Etat 0 ou 1 du bouton';
|
|
end;
|
|
end;
|
|
ActionAffecteMemoire :
|
|
begin
|
|
with LabeledEditAdresse do
|
|
begin
|
|
EditLabel.Caption:='Mémoire';
|
|
Visible:=true;
|
|
hint:='Numéro de mémoire de 0 à '+intToSTR(MaxMemoires);
|
|
text:=intToSTR(Tablo_Action[index].tabloop[indexAction].adresse);
|
|
end;
|
|
with SpinEditEtatOp do
|
|
begin
|
|
Text:=intToSTR(Tablo_Action[index].tabloop[indexAction].etat);
|
|
Visible:=true;
|
|
MinValue:=-999;
|
|
MaxValue:=999;
|
|
hint:='Valeur d''affectation de -999 à 999';
|
|
end;
|
|
end;
|
|
ActionIncMemoire :
|
|
begin
|
|
with LabeledEditAdresse do
|
|
begin
|
|
EditLabel.Caption:='Mémoire';
|
|
hint:='Numéro de mémoire';
|
|
Visible:=true;
|
|
text:=intToSTR(Tablo_Action[index].tabloop[indexAction].adresse);
|
|
end;
|
|
end;
|
|
ActionDecMemoire :
|
|
begin
|
|
with LabeledEditAdresse do
|
|
begin
|
|
EditLabel.Caption:='Mémoire';
|
|
hint:='Numéro de mémoire';
|
|
Visible:=true;
|
|
text:=intToSTR(Tablo_Action[index].tabloop[indexAction].adresse);
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
// affiche les champs en fonction de l'index du tablo actionneur et de l'index de l'action
|
|
procedure Aff_champs(index,IndexCond,IndexAction : integer);
|
|
var i,decl,act,cond,icone : integer;
|
|
s : string;
|
|
begin
|
|
if (index<1) then exit;
|
|
if clicListe then exit;
|
|
clicliste:=true;
|
|
if affevt then Affiche('Aff_champs('+intToSTR(index)+', indexOperation='+intToSTR(indexAction)+')',clYellow);
|
|
decl:=Tablo_Action[index].declencheur;
|
|
formModifAction.ListBoxDeclench.ItemIndex:=decl-1;
|
|
// comboboxActions
|
|
s:=encode_actions(index);
|
|
with formModifAction.ComboBoxActions do
|
|
begin
|
|
Items[index-1]:=s;
|
|
ItemIndex:=index-1;
|
|
end;
|
|
|
|
with formconfig.ListBoxActions do
|
|
begin
|
|
items[index-1]:=s;
|
|
end;
|
|
|
|
s:=Info_action(ligneclicAct+1);
|
|
with formConfig.RichEditInfo do
|
|
begin
|
|
clear;
|
|
Lines.Add(s);
|
|
end;
|
|
|
|
FormModifAction.LabeledEditNomAct.Text:=Tablo_Action[index].NomAction;
|
|
FormModifAction.RichEditInf.Clear;
|
|
|
|
// ListBox opérations
|
|
|
|
with FormModifAction.ListBoxOperations do
|
|
begin
|
|
clear;
|
|
formConfig.ListBoxOperations.Clear;
|
|
for i:=1 to Tablo_Action[index].NbOperations do
|
|
begin
|
|
act:=Tablo_Action[index].tabloOp[i].numoperation;
|
|
if act<=NbreOperations then
|
|
begin
|
|
s:=operations[act].nom;
|
|
if not(Tablo_Action[index].tabloOp[i].valide) then s:=s+' [dévalidé]';
|
|
if act<1 then icone:=0 else icone:=act-1;
|
|
|
|
// listboxOperations de la formmodifAction
|
|
if act<=ActionTempo then items.Add(Format('%d%s', [icone, s])); // valeur d'index de l'icone dans la ImagelistIcones
|
|
if act=ActionBoutonTCO then items.Add(Format('%d%s', [iconeBouton, s]));
|
|
if act=ActionAffecteMemoire then items.Add(Format('%d%s', [iconeActionAffecteMemoire, s]));
|
|
if act=ActionIncMemoire then items.Add(Format('%d%s', [iconeActionIncMemoire, s]));
|
|
if act=ActionDecMemoire then items.Add(Format('%d%s', [iconeActionDecMemoire, s]));
|
|
|
|
// listboxOperations de la formConfig
|
|
if act<=ActionTempo then formConfig.ListBoxOperations.Items.add(Format('%d%s', [act-1, s]));
|
|
if act=ActionBoutonTCO then formConfig.ListBoxOperations.items.Add(Format('%d%s', [IconeBouton, s]));
|
|
if act=ActionAffecteMemoire then formConfig.ListBoxOperations.items.Add(Format('%d%s', [iconeActionAffecteMemoire, s]));
|
|
if act=ActionIncMemoire then formConfig.ListBoxOperations.items.Add(Format('%d%s', [iconeActionIncMemoire, s]));
|
|
if act=ActionDecMemoire then formConfig.ListBoxOperations.items.Add(Format('%d%s', [iconeActionDecMemoire, s]));
|
|
|
|
itemHeight:=16;
|
|
end;
|
|
end;
|
|
if indexaction<>0 then itemIndex:=indexaction-1;
|
|
end;
|
|
|
|
// listbox conditions
|
|
with FormModifAction.ListBoxConditions do
|
|
begin
|
|
clear;
|
|
for i:=1 to Tablo_Action[index].NbCond do
|
|
begin
|
|
cond:=Tablo_Action[index].tabloCond[i].numcondition;
|
|
s:=conditions[cond].nom;
|
|
case cond of
|
|
CondVrai : icone:=iconeVrai;
|
|
CondFaux : icone:=iconeFaux;
|
|
CondVitTrain : icone:=IconeVitTrain;
|
|
CondPosAcc : icone:=IconeAccessoire;
|
|
condHorl : icone:=IconeLanceHorl;
|
|
condTrainSig : icone:=IconeDeclSignal;
|
|
condFonction : icone:=IconeFonction;
|
|
condBouton : icone:=IconeBouton;
|
|
condMemoireEgal: icone:=IconeCondMemoireEgal;
|
|
condMemoireSup: icone:=IconeCondMemoireSup;
|
|
condMemoireInf: icone:=IconeCondMemoireinf;
|
|
end;
|
|
|
|
items.Add(Format('%d%s', [icone, s])); // valeur d'index de l'icone dans la ImagelistIcones
|
|
|
|
itemHeight:=16;
|
|
end;
|
|
if indexCond<>0 then itemIndex:=indexCond-1;
|
|
end;
|
|
|
|
|
|
// listBoxActions de la formConfig
|
|
FormConfig.ListBoxActions.Clear;
|
|
for i:=1 to maxTablo_act do
|
|
begin
|
|
s:=encode_actions(i);
|
|
formConfig.ListBoxActions.Items.add(s);
|
|
end;
|
|
|
|
efface_champs_declencheurs_conditions;
|
|
|
|
// déclencheurs
|
|
with FormModifAction do
|
|
case decl of
|
|
DeclHorloge :
|
|
begin
|
|
EditAdr.text:=intToSTR(Tablo_Action[index].heure);
|
|
EditAdr2.text:=intToSTR(Tablo_Action[index].minute);
|
|
LabelHeure.visible:=true;
|
|
LabelAdresse.visible:=true;
|
|
EditAdr.Visible:=true;
|
|
LabelAdresse.Caption:='Heure';
|
|
EditAdr.Hint:='Heure du déclencheur';
|
|
EditAdr2.Hint:='Minute du déclencheur';
|
|
EditAdr2.Visible:=true;
|
|
RichEditInf.Lines.Add('Déclenchement par l''horloge');
|
|
ImageIcone.Picture:=nil;
|
|
formConfCellTCO.ImageListIcones.GetBitmap(IconeHorloge,ImageIcone.Picture.Bitmap);
|
|
ImageIcone.repaint;
|
|
end;
|
|
DeclPeriph :
|
|
begin
|
|
EditTrainDecl.Text:=Tablo_Action[index].ordrePeriph;
|
|
EditTrainDecl.Visible:=true;
|
|
EditTrainDecl.Hint:='Chaîne ASCII';
|
|
|
|
LabelTrain.visible:=true;
|
|
labelTrain.Width:=105;
|
|
LabelTrain.Caption:='Commande du périphérique';
|
|
RichEditInf.Lines.Add('Déclenchement par chaîne ASCII depuis un périphérique COM/USB - Socket');
|
|
|
|
ImageIcone.Picture:=nil;
|
|
formConfCellTCO.ImageListIcones.GetBitmap(IconePeriph,ImageIcone.Picture.Bitmap);
|
|
ImageIcone.repaint;
|
|
end;
|
|
DeclAccessoire :
|
|
begin
|
|
EditAdr.text:=intToSTR(Tablo_Action[index].adresse);
|
|
|
|
with SpinEditEtat do
|
|
begin
|
|
text:=intToSTR(Tablo_Action[index].etat);
|
|
MaxValue:=0;
|
|
MaxValue:=2;
|
|
Hint:='Etat de l''accessoire'+#13+
|
|
'0=nul'+#13+
|
|
'1=dévié'+#13+
|
|
'2=droit';
|
|
ShowHint:=true;
|
|
visible:=true;
|
|
end;
|
|
|
|
LabelAdresse.caption:='Adresse';
|
|
LabelAdresse.visible:=true;
|
|
EditAdr.Hint:='Adresse de l''accessoire sur le bus';
|
|
EditAdr.Visible:=true;
|
|
LabelEtat.Visible:=true;
|
|
RichEditInf.Lines.Add('Accessoire sur le bus DCC (aiguillage)');
|
|
ImageIcone.Picture:=nil;
|
|
formConfCellTCO.ImageListIcones.GetBitmap(IconeAccessoire,ImageIcone.Picture.Bitmap);
|
|
ImageIcone.repaint;
|
|
end;
|
|
|
|
DeclDetAct :
|
|
begin
|
|
EditAdr.text:=intToSTR(Tablo_Action[index].adresse);
|
|
EditTrainDecl.Visible:=true;
|
|
EditTrainDecl.Text:=Tablo_Action[index].trainDecl;
|
|
EdittrainDecl.Hint:='Train(s) déclencheur(s) séparés par des virgules pour lesquels la condition s''applique.'
|
|
+#13+'Mettre X pour tous les trains.'+#13+'Déclenchement par actionneur uniquement';
|
|
EditAdr.Visible:=true;
|
|
EditAdr.Hint:='Adresse du détecteur sur le bus de rétrosignalisation '+#13+'ou de l''actionneur CDM';
|
|
LabelAdresse.Caption:='Adresse';
|
|
LabelEtat.Visible:=true;
|
|
LabelAdresse.Visible:=true;
|
|
with SpinEditEtat do
|
|
begin
|
|
text:=intToSTR(Tablo_Action[index].etat);
|
|
MaxValue:=0;
|
|
MaxValue:=1;
|
|
Hint:='Etat du détecteur/actionneur'+#13+
|
|
'0=désactivé'+#13+
|
|
'1=activé';
|
|
ShowHint:=true;
|
|
visible:=true;
|
|
end;
|
|
LabelTrain.Visible:=true;
|
|
LabelTrain.Caption:='Train déclencheur';
|
|
s:='Déclenchement par détecteur/actionneur suivant son état et un train, un groupe de trains ou tous les trains.'+#13;
|
|
s:=s+'Le déclenchement par détecteur conditionné par un train n''est pas garanti, contrairement aux actionneurs.';
|
|
RichEditInf.Lines.Add(s);
|
|
|
|
ImageIcone.Picture:=nil;
|
|
formConfCellTCO.ImageListIcones.GetBitmap(IconeDet,ImageIcone.Picture.Bitmap);
|
|
ImageIcone.repaint;
|
|
end;
|
|
|
|
DeclZoneDet :
|
|
begin
|
|
EditAdr.text:=intToSTR(Tablo_Action[index].adresse);
|
|
EditAdr2.text:=intToSTR(Tablo_Action[index].adresse2);
|
|
|
|
EditTrainDecl.Text:=Tablo_Action[index].trainDecl;
|
|
EditAdr.Hint:='Adresse1 de la zone de détection du déclencheur';
|
|
EditAdr2.Hint:='Adresse2 de la zone de détection du déclencheur';
|
|
LabelAdresse.visible:=true;
|
|
EditAdr.Visible:=true;
|
|
EditAdr2.Visible:=true;
|
|
LabelAdresse.Caption:='Adresse';
|
|
LabelEtat.Visible:=true;
|
|
|
|
EditTrainDecl.Visible:=true;
|
|
EdittrainDecl.Hint:='Train(s) déclencheur(s) séparés par des virgules pour lesquels la condition s''applique.'
|
|
+#13+'Mettre X pour tous les trains.'+#13+'Mode autonome uniquement';
|
|
|
|
with SpinEditEtat do
|
|
begin
|
|
text:=intToSTR(Tablo_Action[index].etat);
|
|
MaxValue:=0;
|
|
MaxValue:=1;
|
|
Hint:='Etat de la zone de détection'+#13+
|
|
'0=désactivé'+#13+
|
|
'1=activé';
|
|
ShowHint:=true;
|
|
visible:=true;
|
|
end;
|
|
LabelTrain.Visible:=true;
|
|
LabelTrain.Caption:='Train déclencheur';
|
|
RichEditInf.Lines.Add('Déclenchement par zones de détections contigües suivant son état et un train, un groupe de trains ou tous les trains.');
|
|
ImageIcone.Picture:=nil;
|
|
formConfCellTCO.ImageListIcones.GetBitmap(IconeZoneDet,ImageIcone.Picture.Bitmap);
|
|
ImageIcone.repaint;
|
|
end;
|
|
|
|
DeclDemarTrain :
|
|
begin
|
|
LabelTrain.visible:=true;
|
|
EditTrainDecl.Visible:=true;
|
|
EdittrainDecl.Hint:='Train déclencheur unique';
|
|
EditTrainDecl.Text:=Tablo_Action[index].trainDecl;
|
|
labelTrain.Width:=105;
|
|
labelTrain.caption:='Train déclencheur';
|
|
EditAdr.Text:=IntToSTR(Tablo_Action[index].adresse);
|
|
RichEditInf.Lines.Add('Déclenchement par démarrage d''un train');
|
|
ImageIcone.Picture:=nil;
|
|
formConfCellTCO.ImageListIcones.GetBitmap(IconeDemarTrain,ImageIcone.Picture.Bitmap);
|
|
ImageIcone.repaint;
|
|
end;
|
|
|
|
DeclArretTrain :
|
|
begin
|
|
LabelTrain.visible:=true;
|
|
EditTrainDecl.Visible:=true;
|
|
labelTrain.caption:='Train déclencheur';
|
|
EdittrainDecl.Hint:='Train déclencheur unique';
|
|
EditTrainDecl.Text:=Tablo_Action[index].trainDecl;
|
|
labelTrain.Width:=105;
|
|
EditAdr.Text:=IntToSTR(Tablo_Action[index].adresse);
|
|
RichEditInf.Lines.Add('Déclenchement par arrêt d''un train');
|
|
ImageIcone.Picture:=nil;
|
|
formConfCellTCO.ImageListIcones.GetBitmap(IconeArretTrain,ImageIcone.Picture.Bitmap);
|
|
ImageIcone.repaint;
|
|
end;
|
|
|
|
DeclSignal :
|
|
begin
|
|
LabelAdresse.Visible:=true;
|
|
EditAdr.text:=intToSTR(Tablo_Action[index].adresse);
|
|
RadioEtatSignal.ItemIndex:=Tablo_Action[index].Etat;
|
|
LabelAdresse.Caption:='Adresse';
|
|
EditAdr.Hint:='Adresse de base du signal';
|
|
EditAdr.Visible:=true;
|
|
RadioEtatSignal.Visible:=true;
|
|
RadioEtatSignal.Left:=16;
|
|
RadioEtatSignal.top:=64;
|
|
RichEditInf.Lines.Add('Déclenchement par changement d''état d''un signal');
|
|
ImageIcone.Picture:=nil;
|
|
formConfCellTCO.ImageListIcones.GetBitmap(IconeSignal,ImageIcone.Picture.Bitmap);
|
|
ImageIcone.repaint;
|
|
end;
|
|
|
|
DeclFonction :
|
|
begin
|
|
LabelAdresse.Visible:=true; // numéro de fonction
|
|
LabelAdresse.caption:='Numéro de fonction';
|
|
ButtonFonction.Visible:=true;
|
|
EditAdr2.Visible:=true; // entrée le la fonction
|
|
EditAdr2.Text:=IntToSTR(tablo_action[index].adresse);
|
|
ImageIcone.Picture:=nil;
|
|
formConfCellTCO.ImageListIcones.GetBitmap(IconeFonction,ImageIcone.Picture.Bitmap);
|
|
ImageIcone.repaint;
|
|
LabelInfoFonc.Visible:=true;
|
|
RichEditInf.Lines.Add('Déclenchement par fonction logique');
|
|
if (tablo_action[index].adresse>0) and (tablo_action[index].adresse<NbreFL) then LabelInfoFonc.Caption:=NomFonction[tablo_action[index].adresse]
|
|
else LabelInfoFonc.Caption:='';
|
|
end;
|
|
|
|
DeclClavier :
|
|
begin
|
|
LabelAdresse.Visible:=true; // numéro de fonction
|
|
LabelAdresse.caption:='Code ASCII de la touche';
|
|
EditAdr.Hint:='Code ASCII de la touche';
|
|
ButtonFonction.Visible:=false;
|
|
EditAdr.Text:=IntToSTR(tablo_action[index].adresse);
|
|
EditAdr.Visible:=true;
|
|
ImageIcone.Picture:=nil;
|
|
formConfCellTCO.ImageListIcones.GetBitmap(IconeBoutonClavier,ImageIcone.Picture.Bitmap);
|
|
ImageIcone.repaint;
|
|
RichEditInf.Lines.Add('Déclenchement touche de clavier ou bloc usb');
|
|
end;
|
|
|
|
end;
|
|
|
|
// conditions
|
|
if indexCond>0 then
|
|
begin
|
|
cond:=Tablo_Action[index].tablocond[indexCond].numcondition;
|
|
with formModifAction do
|
|
begin
|
|
case cond of
|
|
CondVitTrain :
|
|
begin
|
|
champ1.Text:=intToSTR(Tablo_Action[index].tabloCond[indexCond].vitmini);
|
|
champ2.Text:=intToSTR(Tablo_Action[index].tabloCond[indexCond].vitmaxi);
|
|
ChampTrain.text:=Tablo_Action[index].tabloCond[indexCond].train;
|
|
Champ1.EditLabel.Caption:='Vitesse'+#13+'mini';
|
|
Champ2.EditLabel.Caption:='Vitesse'+#13+'maxi';
|
|
Champ1.Hint:='Vitesse minimale du train pour la condition';
|
|
Champ2.Hint:='Vitesse minimale du train pour la condition';
|
|
ChampTrain.Hint:='Nom du train unique pour la condition';
|
|
champ1.Visible:=true;
|
|
champ2.Visible:=true;
|
|
ChampTrain.Visible:=true;
|
|
end;
|
|
CondPosAcc :
|
|
begin
|
|
champ1.Text:=intToSTR(Tablo_Action[index].tabloCond[indexCond].accessoire);
|
|
Champ1.Hint:='Adresse DCC de l''accessoire pour la condition';
|
|
SpinEditEtat2.Value:=Tablo_Action[index].tabloCond[indexCond].etat;
|
|
SpinEditEtat2.visible:=true;
|
|
SpinEditEtat2.hint:='Etat de l''accessoire'+#13+
|
|
'0=nul'+#13+
|
|
'1=dévié'+#13+
|
|
'2=droit';
|
|
Champ1.EditLabel.Caption:='Adresse'+#13+'acc';
|
|
champ1.Visible:=true;
|
|
labelEtat2.Visible:=true;
|
|
SpinEditEtat2.visible:=true;
|
|
SpinEditEtat2.MinValue:=0;
|
|
SpinEditEtat2.MaxValue:=2;
|
|
end;
|
|
condHorl :
|
|
begin
|
|
SpinEditHeure1.Value:=Tablo_Action[index].tabloCond[indexCond].HeureMin;
|
|
SpinEditmn1.Value:=Tablo_Action[index].tabloCond[indexCond].MinuteMin;
|
|
SpinEditHeure2.Value:=Tablo_Action[index].tabloCond[indexCond].HeureMax;
|
|
SpinEditmn2.Value:=Tablo_Action[index].tabloCond[indexCond].MinuteMax;
|
|
|
|
SpinEditHeure1.visible:=true;
|
|
SpinEditHeure2.visible:=true;
|
|
SpinEditMn1.visible:=true;
|
|
SpinEditMn2.visible:=true;
|
|
LabelHeureDebut.Visible:=true;
|
|
LabelHeureFin.Visible:=true;
|
|
end;
|
|
condTrainSig :
|
|
begin
|
|
champ1.Text:=intToSTR(Tablo_Action[index].tabloCond[indexCond].adresse);
|
|
champ1.editLabel.Caption:='Adresse du signal';
|
|
champTrain.Text:=Tablo_Action[index].tabloCond[indexCond].train;
|
|
champ1.Visible:=true;
|
|
champTrain.Visible:=true;
|
|
end;
|
|
condFonction :
|
|
begin
|
|
champ1.Text:=intToSTR(Tablo_Action[index].tabloCond[indexCond].adresse);
|
|
champ1.editLabel.Caption:='Numéro de fonction';
|
|
champTrain.Text:=Tablo_Action[index].tabloCond[indexCond].train;
|
|
champ1.Visible:=true;
|
|
ButtonVoirFonc.Visible:=true;
|
|
Label2InfoFonction.Visible:=true;
|
|
Label2InfoFonction.Caption:=NomFonction[Tablo_Action[index].tabloCond[indexCond].adresse];
|
|
end;
|
|
condBouton :
|
|
begin
|
|
champ1.Text:=intToSTR(Tablo_Action[index].tabloCond[indexCond].adresse);
|
|
champ1.editLabel.Caption:='Numéro de bouton TCO';
|
|
champTrain.Text:=Tablo_Action[index].tabloCond[indexCond].train;
|
|
champ1.Visible:=true;
|
|
end;
|
|
condMemoireEgal,CondMemoireInf,CondMemoireSup :
|
|
begin
|
|
champ1.Text:=intToSTR(Tablo_Action[index].tabloCond[indexCond].adresse);
|
|
champ1.editLabel.Caption:='Numéro de mémoire';
|
|
champ1.Visible:=true;
|
|
champ2.Text:=intToSTR(Tablo_Action[index].tabloCond[indexCond].etat);
|
|
Champ2.EditLabel.Caption:='Valeur';
|
|
Champ2.Visible:=true;
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
Efface_champs_operations;
|
|
Affiche_champs_operations(index,indexaction);
|
|
|
|
clicliste:=false;
|
|
end;
|
|
|
|
procedure TFormModifAction.FormActivate(Sender: TObject);
|
|
var i : integer;
|
|
s : string;
|
|
begin
|
|
ComboBoxActions.Clear;
|
|
for i:=1 to maxTablo_act do
|
|
begin
|
|
s:=encode_actions(i);
|
|
if s<>'' then ComboBoxActions.Items.Add(s);
|
|
end;
|
|
|
|
//ligneclicACt:=0;
|
|
ComboBoxActions.ItemIndex:=ligneclicAct;
|
|
LabelDecl.Caption:='Déclencheur de l''action n°'+intToSTR(ComboBoxactions.ItemIndex+1);
|
|
|
|
Aff_champs(ligneclicAct+1,ClicCond+1,ClicAction+1);
|
|
|
|
if OperationAffiche<>0 then
|
|
begin
|
|
PageControlAct.ActivePage:=TabSheetOp;
|
|
end;
|
|
end;
|
|
|
|
procedure TFormModifAction.ComboBoxActionsChange(Sender: TObject);
|
|
begin
|
|
ligneclicAct:=ComboBoxActions.ItemIndex;
|
|
Aff_champs(ligneclicAct+1,1,0);
|
|
LabelDecl.Caption:='Liste de déclencheurs de l''action n°'+intToSTR(ComboBoxactions.ItemIndex+1);
|
|
end;
|
|
|
|
procedure TFormModifAction.ButtonAppActionClick(Sender: TObject);
|
|
var indexSrc,IndexDest,i : integer;
|
|
s : string;
|
|
begin
|
|
indexSrc:=listboxOper.ItemIndex;
|
|
IndexDest:=ListBoxOperations.Itemindex;
|
|
if (indexSrc<0) or (ligneclicAct<0) or (Tablo_Action[ligneClicAct+1].NbOperations<1) then exit;
|
|
|
|
s:=ListBoxOper.Items[indexSrc];
|
|
i:=Index_Operation(s);
|
|
if i=0 then exit;
|
|
|
|
if (IndexDest<0) then IndexDest:=0;
|
|
Tablo_Action[ligneClicAct+1].TabloOp[IndexDest+1].numoperation:=i;
|
|
|
|
listboxoperations.Items[indexDest]:=ListBoxOper.Items[indexSrc];
|
|
|
|
clicAction:=ligneclicact;
|
|
Aff_champs(ligneClicAct+1,1,indexDest+1);
|
|
end;
|
|
|
|
procedure TFormModifAction.ButtonAjouterClick(Sender: TObject);
|
|
var indexSrc,idBD,NbOp,NbCond,i : integer;
|
|
s : string;
|
|
begin
|
|
indexSrc:=listboxOper.ItemIndex;
|
|
if indexSrc<0 then exit;
|
|
|
|
s:=ListBoxOper.Items[IndexSrc];
|
|
i:=index_operation(s);
|
|
if i=0 then exit;
|
|
|
|
idBD:=ligneClicAct+1;
|
|
NbOp:=Tablo_Action[idBD].NbOperations;
|
|
NbCond:=Tablo_Action[idBD].NbCond;
|
|
inc(NbOp);
|
|
Tablo_Action[idBD].NbOperations:=NbOp;
|
|
Setlength(Tablo_Action[idBD].tabloOp,NbOp+1);
|
|
// le nouveau numéro d'opération c'est l'index de la listboxOper
|
|
Tablo_Action[idBD].tabloOp[NbOp].numoperation:=i;
|
|
Tablo_Action[idBD].tabloOp[NbOp].valide:=true;
|
|
|
|
Aff_champs(idbd,nbCond,Nbop);
|
|
clicAction:=NbOp-1;
|
|
ListBoxOperations.ItemIndex:=clicAction;
|
|
end;
|
|
|
|
procedure supprime_operation;
|
|
var i,indexSrc,idBD,NbOp,NumOp : integer;
|
|
s : string;
|
|
begin
|
|
indexSrc:=formModifaction.listboxOperations.ItemIndex;
|
|
if indexSrc<0 then exit;
|
|
|
|
idBD:=ligneClicAct+1;
|
|
NbOp:=Tablo_Action[idBD].NbOperations;
|
|
if NbOp<1 then exit;
|
|
|
|
NumOp:=Tablo_Action[idBD].TabloOp[indexSrc+1].numoperation;
|
|
s:='Voulez vous supprimer l''opération '+#13+operations[NumOp].Nom+' ?';
|
|
|
|
if Application.MessageBox(pchar(s),pchar('confirm'), MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION)=idNo then exit;
|
|
|
|
// supprimer
|
|
FormModifAction.listboxoperations.Items.Delete(indexSrc);
|
|
for i:=IndexSrc+1 to NbOp-1 do
|
|
begin
|
|
Tablo_Action[idBD].TabloOp[i]:=Tablo_Action[idBD].TabloOp[i+1];
|
|
end;
|
|
|
|
dec(NbOp);
|
|
Tablo_Action[idBD].NbOperations:=NbOp;
|
|
Setlength(Tablo_Action[idBD].tabloOp,NbOp+1);
|
|
|
|
Aff_champs(idBD,1,IndexSrc+1);
|
|
exit;
|
|
|
|
// réencoder la ligne
|
|
s:=encode_actions(idBD);
|
|
// maj combobox
|
|
FormModifAction.ComboBoxActions.Items[idBD-1]:=s;
|
|
FormModifAction.ComboBoxActions.ItemIndex:=idbd-1;
|
|
end;
|
|
|
|
procedure TFormModifAction.SpeedButtonSupprimeClick(Sender: TObject);
|
|
begin
|
|
supprime_operation;
|
|
end;
|
|
|
|
procedure TFormModifAction.SpinButton1UpClick(Sender: TObject);
|
|
var i,indexSrc,idBD,idOp,no : integer;
|
|
top : Toperation;
|
|
s : string;
|
|
begin
|
|
indexSrc:=listboxOperations.ItemIndex;
|
|
if indexSrc<0 then exit;
|
|
idBD:=ligneClicAct+1;
|
|
idop:=indexSrc+1;
|
|
|
|
|
|
if (indexSrc<1) then exit;
|
|
top:=Tablo_Action[idBD].TabloOp[idOp-1];
|
|
Tablo_Action[idBD].TabloOp[idOp-1]:=Tablo_Action[idBD].TabloOp[idOp];
|
|
Tablo_Action[idBD].TabloOp[idOp]:=top;
|
|
|
|
// réencoder la ligne
|
|
s:=encode_actions(idBD);
|
|
// maj combobox
|
|
ComboBoxActions.Items[idBD-1]:=s;
|
|
ComboBoxActions.ItemIndex:=idbd-1;
|
|
|
|
// maj opérations
|
|
with FormModifAction.ListBoxOperations do
|
|
begin
|
|
clear;
|
|
for i:=1 to Tablo_Action[idBD].NbOperations do
|
|
begin
|
|
no:=Tablo_Action[idBD].tabloOp[i].numoperation;
|
|
s:=affecte_operation(no);
|
|
ListBoxOperations.Items.add(s);
|
|
itemHeight:=16;
|
|
end;
|
|
ItemIndex:=indexSrc-1;
|
|
end;
|
|
end;
|
|
|
|
procedure TFormModifAction.SpinButton1DownClick(Sender: TObject);
|
|
var no,i,indexSrc,idBD,idOp : integer;
|
|
top : Toperation;
|
|
s : string;
|
|
begin
|
|
indexSrc:=listboxOperations.ItemIndex;
|
|
if indexSrc<0 then exit;
|
|
idBD:=ligneClicAct+1;
|
|
idop:=indexSrc+1;
|
|
|
|
no:=Tablo_Action[idBD].NbOperations;
|
|
|
|
if (indexSrc+1>=No) then exit;
|
|
top:=Tablo_Action[idBD].TabloOp[idOp+1];
|
|
Tablo_Action[idBD].TabloOp[idOp+1]:=Tablo_Action[idBD].TabloOp[idOp];
|
|
Tablo_Action[idBD].TabloOp[idOp]:=top;
|
|
|
|
// réencoder la ligne
|
|
s:=encode_actions(idBD);
|
|
// maj combobox
|
|
ComboBoxActions.Items[idBD-1]:=s;
|
|
ComboBoxActions.ItemIndex:=idbd-1;
|
|
|
|
// maj opérations
|
|
with FormModifAction.ListBoxOperations do
|
|
begin
|
|
clear;
|
|
for i:=1 to Tablo_Action[idBD].NbOperations do
|
|
begin
|
|
no:=Tablo_Action[idBD].tabloOp[i].numoperation;
|
|
s:=affecte_operation(no);
|
|
ListBoxOperations.Items.Add(s);
|
|
itemHeight:=16;
|
|
end;
|
|
|
|
ItemIndex:=indexSrc+1;
|
|
end;
|
|
Config_Modifie:=true;
|
|
end;
|
|
|
|
procedure maj_combocactions(i : integer);
|
|
var s : string;
|
|
begin
|
|
s:=encode_actions(i+1);
|
|
with formModifAction do
|
|
begin
|
|
ComboBoxActions.Items[i]:=s;
|
|
ComboBoxActions.ItemIndex:=ligneClicAct;
|
|
end;
|
|
end;
|
|
|
|
procedure TFormModifAction.EditAdrChange(Sender: TObject);
|
|
var decl,index,i,erreur : integer;
|
|
begin
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
index:=ligneclicAct+1;
|
|
if affevt then Affiche('EditAdrChange',clyellow);
|
|
|
|
decl:=Tablo_Action[ligneclicAct+1].declencheur;
|
|
val(editAdr.Text,i,erreur);
|
|
if (i<0) or (erreur<>0) then exit;
|
|
|
|
if decl=DeclHorloge then
|
|
begin
|
|
if (i>23) then exit;
|
|
Tablo_Action[index].heure:=i;
|
|
end
|
|
else
|
|
if decl=DeclClavier then
|
|
begin
|
|
LabelHeure.Visible:=true;
|
|
if (i<0) or (i>255) then exit;
|
|
LabelHeure.Caption:=char(i);
|
|
Tablo_Action[index].adresse:=i;
|
|
end
|
|
else Tablo_Action[index].adresse:=i;
|
|
maj_combocactions(ligneclicAct);
|
|
end;
|
|
|
|
procedure TFormModifAction.EditAdr2Change(Sender: TObject);
|
|
var decl,index,i,erreur : integer;
|
|
begin
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
index:=ligneclicAct+1;
|
|
|
|
decl:=Tablo_Action[ligneclicAct+1].declencheur;
|
|
|
|
if (decl<>DeclZoneDet) and (decl<>DeclHorloge) and (decl<>DeclFonction) then exit;
|
|
|
|
val(editAdr2.Text,i,erreur);
|
|
if (i<0) or (erreur<>0) then exit;
|
|
|
|
if decl=DeclHorloge then
|
|
begin
|
|
if (i>59) then exit;
|
|
Tablo_Action[index].minute:=i;
|
|
end;
|
|
if decl=DeclZoneDet then Tablo_Action[index].adresse2:=i;
|
|
if decl=DeclFonction then
|
|
begin
|
|
if (i<1) or (i>100) then exit;
|
|
Tablo_Action[index].adresse:=i;
|
|
LabelInfoFonc.caption:=NomFonction[i];
|
|
end;
|
|
maj_combocactions(ligneclicAct);
|
|
end;
|
|
|
|
procedure TFormModifAction.SpinEditEtatChange(Sender: TObject);
|
|
var decl,index,i,erreur : integer;
|
|
begin
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
index:=ligneclicAct+1;
|
|
|
|
decl:=Tablo_Action[ligneclicAct+1].declencheur;
|
|
if (decl<>declAccessoire) and (decl<>DeclDetAct) and (decl<>DeclZoneDet) then exit;
|
|
|
|
val(SpinEditEtat.Text,i,erreur);
|
|
if (i<0) or (i>2) or (erreur<>0) then
|
|
begin
|
|
SpinEditEtat.value:=0;
|
|
exit;
|
|
end;
|
|
SpinEditEtat.value:=i;
|
|
Tablo_Action[index].etat:=i;
|
|
|
|
maj_combocactions(ligneclicAct);
|
|
end;
|
|
|
|
procedure TFormModifAction.EditTrainDeclChange(Sender: TObject);
|
|
var decl,index : integer;
|
|
begin
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
if affevt then Affiche('EditTrainDeclChange',clyellow);
|
|
index:=ligneclicAct+1;
|
|
|
|
decl:=Tablo_Action[ligneclicAct+1].declencheur;
|
|
if (decl<>declDetAct) and (decl<>DeclZoneDet) and (decl<>DeclPeriph) and
|
|
(decl<>DeclDemarTrain) and (decl<>DeclArretTrain) then exit;
|
|
|
|
if (decl=declDetAct) or (decl=DeclZoneDet) or (decl=DeclDemarTrain) or (decl=DeclArretTrain)
|
|
then Tablo_Action[index].trainDecl:=EditTrainDecl.text;
|
|
if decl=DeclPeriph then Tablo_Action[index].ordrePeriph:=EditTrainDecl.text;
|
|
|
|
maj_combocactions(ligneclicAct);
|
|
end;
|
|
|
|
procedure TFormModifAction.ListBoxOperationsMouseDown(Sender: TObject;
|
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|
begin
|
|
if affevt then Affiche('Clic ListBoxOperations',clyellow);
|
|
ClicAction:=ListBoxOperations.itemindex;
|
|
if ClicAction<0 then exit;
|
|
Affiche_champs_operations(ligneclicAct+1,ClicAction+1);
|
|
end;
|
|
|
|
procedure TFormModifAction.LabeledEditAdresseChange(Sender: TObject);
|
|
var i,erreur,op : integer;
|
|
begin
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
val(LabeledEditAdresse.Text,i,erreur);
|
|
op:=Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].numoperation;
|
|
case op of
|
|
ActionAffTCO : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].numTCO:=i;
|
|
ActionAccessoire: Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].adresse:=i;
|
|
ActionVitesse : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].vitesse:=i;
|
|
ActionBoutonTCO : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].adresse:=i;
|
|
ActionAffecteMemoire : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].adresse:=i;
|
|
ActionIncMemoire : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].adresse:=i;
|
|
ActionDecMemoire : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].adresse:=i;
|
|
end;
|
|
maj_combocactions(ligneclicAct);
|
|
end;
|
|
|
|
procedure TFormModifAction.LabeledEditFonctionFChange(Sender: TObject);
|
|
var i,erreur,op : integer;
|
|
begin
|
|
if clicAction<0 then exit;
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
val(LabeledEditFonctionF.Text,i,erreur);
|
|
op:=Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].numoperation;
|
|
case op of
|
|
ActionFonctionF : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].FonctionF:=i;
|
|
ActionTempo : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].TempoF:=i;
|
|
end;
|
|
maj_combocactions(ligneclicAct);
|
|
end;
|
|
|
|
procedure TFormModifAction.LabeledEditTrainChange(Sender: TObject);
|
|
var op : integer;
|
|
s : string;
|
|
begin
|
|
if (clicAction<0) or clicListe then exit;
|
|
op:=Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].numoperation;
|
|
if (op=ActionFonctionF) or (op=ActionVitesse) or (op=ActionSon) then
|
|
begin
|
|
s:=LabeledEditTrain.Text;
|
|
if pos(',',s)<>0 then
|
|
begin
|
|
labelInfo.Caption:='Les noms de trains multiples ne sont pas autorisés ici';
|
|
exit;
|
|
end;
|
|
labelInfo.Caption:='';
|
|
Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].train:=s;
|
|
end;
|
|
if op=ActionCdePeriph then Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].chaine:=LabeledEditTrain.Text;
|
|
maj_combocactions(ligneclicact);
|
|
end;
|
|
|
|
procedure TFormModifAction.SpeedButtonJoueClick(Sender: TObject);
|
|
begin
|
|
if (ligneclicAct<0) then exit;
|
|
if PlaySound(pchar(LabeledEditTrain.Text),0,SND_ASYNC)=false then labelInfo.Caption:='Erreur';
|
|
end;
|
|
|
|
procedure TFormModifAction.SpeedButtonChargerClick(Sender: TObject);
|
|
var s: string;
|
|
op : integer;
|
|
begin
|
|
if (ligneclicAct<0) or (clicAction<0) then exit;
|
|
|
|
s:=GetCurrentDir;
|
|
OpenDialogSon.InitialDir:=s;
|
|
OpenDialogSon.DefaultExt:='wav';
|
|
OpenDialogSon.Title:='Ouvrir un fichier son';
|
|
OpenDialogSon.Filter:='Fichiers wav (*.wav)|*.wav|Tous fichiers (*.*)|*.*';
|
|
if openDialogSon.Execute then
|
|
begin
|
|
s:=openDialogSon.FileName;
|
|
LabeledEditTrain.Text:=s;
|
|
op:=Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].numoperation;
|
|
if op=ActionSon then Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].train:=s;
|
|
end;
|
|
maj_combocactions(ligneclicAct);
|
|
end;
|
|
|
|
procedure TFormModifAction.CheckBoxRAZClick(Sender: TObject);
|
|
var op : integer;
|
|
begin
|
|
if clicAction<0 then exit;
|
|
op:=Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].numoperation;
|
|
if (op=ActionAccessoire) then Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].zero:=CheckBoxRaz.Checked;
|
|
maj_combocactions(ligneclicAct);
|
|
end;
|
|
|
|
procedure TFormModifAction.ButtonApplDeclClick(Sender: TObject);
|
|
var i : integer;
|
|
begin
|
|
i:=ListBoxdeclench.itemindex;
|
|
if i<0 then exit;
|
|
|
|
Tablo_Action[ligneclicAct+1].declencheur:=i+1;
|
|
Aff_champs(ligneclicAct+1,0,0);
|
|
//aff_champs_declencheur(
|
|
ListBoxDeclench.Refresh;
|
|
end;
|
|
|
|
procedure TFormModifAction.LabeledEditNomActChange(Sender: TObject);
|
|
var index : integer;
|
|
begin
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
index:=ligneclicAct+1;
|
|
|
|
Tablo_Action[index].NomAction:=LabeledEditNomAct.text;
|
|
|
|
Aff_champs(index,0,0);
|
|
end;
|
|
|
|
procedure TFormModifAction.ComboBoxAccComUSBChange(Sender: TObject);
|
|
var index : integer;
|
|
begin
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
index:=ligneclicAct+1;
|
|
if affevt then affiche('Evt ComboBox Change',clyellow);
|
|
Tablo_Action[ligneClicAct+1].TabloOp[clicaction+1].periph:=formModifAction.ComboBoxAccComUSB.ItemIndex+1;
|
|
Aff_champs(index,0,clicaction+1);
|
|
end;
|
|
|
|
procedure TFormModifAction.LabeledEditTempoFChange(Sender: TObject);
|
|
var i,erreur : integer;
|
|
begin
|
|
if clicAction<0 then exit;
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
val(LabeledEditTempoF.Text,i,erreur);
|
|
Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].TempoF:=i;
|
|
maj_combocactions(ligneclicAct);
|
|
end;
|
|
|
|
procedure TFormModifAction.ListBoxOperationsDblClick(Sender: TObject);
|
|
var s : string;
|
|
i : integer;
|
|
begin
|
|
if (clicAction<0) or (ligneclicAct<0) or clicliste then exit;
|
|
Tablo_Action[ligneclicAct+1].tabloOp[clicaction+1].valide:=not(Tablo_Action[ligneclicAct+1].tabloOp[clicaction+1].valide);
|
|
|
|
// op:=Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].numoperation;
|
|
|
|
s:=ListBoxOperations.Items[clicaction];
|
|
i:=pos(sd,s);
|
|
if i<>0 then delete(s,i,length(sd));
|
|
|
|
if not(Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].valide) then s:=s+sd;
|
|
|
|
listBoxOperations.Items[clicaction]:=s;
|
|
if formconfig.ListBoxOperations.Count>=clicaction then formconfig.ListBoxOperations.items[clicaction]:=s; //encode_actions(ligneclicAct+1);
|
|
|
|
maj_combocactions(ligneclicAct);
|
|
end;
|
|
|
|
procedure TFormModifAction.ListBoxCondTotDrawItem(Control: TWinControl;
|
|
Index: Integer; Rect: TRect; State: TOwnerDrawState);
|
|
var
|
|
i,erreur: Integer;
|
|
ItemText: string;
|
|
begin
|
|
with ListBoxCondTot do
|
|
begin
|
|
ItemText:=Items[index];
|
|
val(ItemText,i,erreur);
|
|
Delete(ItemText,1,erreur-1);
|
|
Canvas.Fillrect(Rect);
|
|
formConfCellTCO.ImageListIcones.Draw(Canvas, Rect.Left, Rect.Top, i);
|
|
Canvas.Textout(Rect.Left + formConfCellTCO.ImageListIcones.Width + 2, Rect.Top, ItemText);
|
|
end;
|
|
end;
|
|
|
|
procedure TFormModifAction.ListBoxConditionsMouseDown(Sender: TObject;
|
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|
begin
|
|
//Affiche('Clic ListBoxOperations',clyellow);
|
|
ClicCond:=ListBoxConditions.itemindex;
|
|
if ClicCond<0 then exit;
|
|
Aff_champs(ligneclicAct+1,ClicCond+1,ClicAction+1);
|
|
end;
|
|
|
|
procedure TFormModifAction.ListBoxConditionsDrawItem(Control: TWinControl;
|
|
Index: Integer; Rect: TRect; State: TOwnerDrawState);
|
|
var
|
|
i,erreur: Integer;
|
|
ItemText: string;
|
|
begin
|
|
with ListBoxConditions do
|
|
begin
|
|
ItemText:=Items[index];
|
|
val(ItemText,i,erreur);
|
|
Delete(ItemText,1,erreur-1);
|
|
Canvas.Fillrect(Rect);
|
|
formConfCellTCO.ImageListIcones.Draw(Canvas, Rect.Left, Rect.Top, i);
|
|
Canvas.Textout(Rect.Left + formConfCellTCO.ImageListIcones.Width + 2, Rect.Top, ItemText);
|
|
end;
|
|
end;
|
|
|
|
procedure TFormModifAction.ButtonAppCondClick(Sender: TObject);
|
|
var indexSrc,IndexDest,i : integer;
|
|
s : string;
|
|
begin
|
|
indexSrc:=listboxCondTot.ItemIndex;
|
|
IndexDest:=ListBoxConditions.Itemindex;
|
|
if (indexSrc<0) or (ligneclicAct<0) then exit;
|
|
|
|
|
|
s:=ListBoxCondTot.Items[indexSrc];
|
|
i:=Index_Condition(s);
|
|
|
|
if (IndexDest<0) then IndexDest:=0;
|
|
Tablo_Action[ligneClicAct+1].TabloCond[IndexDest+1].numCondition:=i;
|
|
|
|
clicAction:=ligneclicact;
|
|
Aff_champs(ligneClicAct+1,indexDest+1,0);
|
|
|
|
end;
|
|
|
|
procedure TFormModifAction.Champ1Change(Sender: TObject);
|
|
var cond,i,erreur : integer;
|
|
begin
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
val(Champ1.Text,i,erreur);
|
|
cond:=Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].numcondition;
|
|
case cond of
|
|
CondVitTrain : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].vitmini:=i;
|
|
CondPosAcc : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].accessoire:=i;
|
|
CondTrainSig : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].adresse:=i;
|
|
CondFonction : begin
|
|
Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].adresse:=i;
|
|
Label2InfoFonction.caption:=NomFonction[i];
|
|
end;
|
|
CondBouton : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].adresse:=i;
|
|
CondMemoireEgal,CondMemoireInf,CondMemoireSup
|
|
: Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].adresse:=i;
|
|
end;
|
|
maj_combocactions(ligneclicAct);
|
|
end;
|
|
|
|
procedure TFormModifAction.Champ2Change(Sender: TObject);
|
|
var cond,i,erreur : integer;
|
|
begin
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
val(Champ2.Text,i,erreur);
|
|
cond:=Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].numcondition;
|
|
case cond of
|
|
CondVitTrain : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].vitmaxi:=i;
|
|
CondMemoireEgal,CondMemoireInf,CondMemoireSup
|
|
: Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].etat:=i;
|
|
end;
|
|
maj_combocactions(ligneclicAct);
|
|
end;
|
|
|
|
procedure TFormModifAction.SpinEditHeure1Change(Sender: TObject);
|
|
var cond,i,erreur : integer;
|
|
begin
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
val(SpinEditHeure1.Text,i,erreur);
|
|
if erreur<>0 then
|
|
begin
|
|
SpinEditHeure1.Value:=0;
|
|
exit;
|
|
end;
|
|
SpinEditHeure1.Value:=i;
|
|
cond:=Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].numcondition;
|
|
case cond of
|
|
CondHorl : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].HeureMin:=i;
|
|
end;
|
|
maj_combocactions(ligneclicAct);
|
|
end;
|
|
|
|
procedure TFormModifAction.SpinEditMn1Change(Sender: TObject);
|
|
var cond,i,erreur : integer;
|
|
begin
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
val(SpinEditMn1.Text,i,erreur);
|
|
if erreur<>0 then
|
|
begin
|
|
SpinEditMn1.Value:=0;
|
|
exit;
|
|
end;
|
|
SpinEditMn1.Value:=i;
|
|
cond:=Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].numcondition;
|
|
case cond of
|
|
CondHorl : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].MinuteMin:=i;
|
|
end;
|
|
maj_combocactions(ligneclicAct);
|
|
end;
|
|
|
|
procedure TFormModifAction.SpinEditHeure2Change(Sender: TObject);
|
|
var cond,i,erreur : integer;
|
|
begin
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
val(SpinEditHeure2.Text,i,erreur);
|
|
if erreur<>0 then
|
|
begin
|
|
SpinEditHeure2.Value:=0;
|
|
exit;
|
|
end;
|
|
SpinEditHeure2.Value:=i;
|
|
cond:=Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].numcondition;
|
|
case cond of
|
|
CondHorl : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].HeureMax:=i;
|
|
end;
|
|
maj_combocactions(ligneclicAct);
|
|
end;
|
|
|
|
procedure TFormModifAction.SpinEditMn2Change(Sender: TObject);
|
|
var cond,i,erreur : integer;
|
|
begin
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
val(SpinEditMn2.Text,i,erreur);
|
|
if erreur<>0 then
|
|
begin
|
|
SpinEditMn2.Value:=0;
|
|
exit;
|
|
end;
|
|
SpinEditMn2.Value:=i;
|
|
cond:=Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].numcondition;
|
|
case cond of
|
|
CondHorl : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].MinuteMax:=i;
|
|
end;
|
|
maj_combocactions(ligneclicAct);
|
|
|
|
end;
|
|
|
|
procedure TFormModifAction.ChampTrainChange(Sender: TObject);
|
|
var cond : integer;
|
|
begin
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
cond:=Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].numcondition;
|
|
case cond of
|
|
CondVitTrain,CondTrainSig : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].train:=ChampTrain.Text;
|
|
end;
|
|
maj_combocactions(ligneclicAct);
|
|
|
|
end;
|
|
|
|
procedure TFormModifAction.SpinEditEtat2Change(Sender: TObject);
|
|
var cond,i,erreur : integer;
|
|
begin
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
val(SpinEditEtat2.Text,i,erreur);
|
|
if erreur<>0 then
|
|
begin
|
|
SpinEditEtat2.Value:=0;
|
|
exit;
|
|
end;
|
|
SpinEditEtat2.Value:=i;
|
|
cond:=Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].numcondition;
|
|
case cond of
|
|
CondPosAcc : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].etat:=i;
|
|
end;
|
|
maj_combocactions(ligneclicAct);
|
|
end;
|
|
|
|
procedure TFormModifAction.RadioEtatSignalClick(Sender: TObject);
|
|
var index : integer;
|
|
begin
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
index:=ligneclicAct+1;
|
|
if affevt then Affiche('EditAdrChange',clyellow);
|
|
|
|
Tablo_Action[index].etat:=RadioEtatSignal.ItemIndex;
|
|
|
|
maj_combocactions(ligneclicAct);
|
|
end;
|
|
|
|
procedure TFormModifAction.SpinEditEtatopChange(Sender: TObject);
|
|
var i,erreur,op : integer;
|
|
begin
|
|
if (ligneclicAct<0) or clicliste then exit;
|
|
val(SpinEditEtatop.text,i,erreur);
|
|
if erreur<>0 then
|
|
begin
|
|
SpinEditEtatOp.Value:=0;
|
|
exit;
|
|
end;
|
|
SpinEditEtatop.Value:=i;
|
|
op:=Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].numoperation;
|
|
case op of
|
|
ActionAccessoire : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].etat:=i;
|
|
ActionFonctionF : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].etat:=i;
|
|
ActionBoutonTCO : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].etat:=i;
|
|
ActionAffecteMemoire : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].etat:=i;
|
|
end;
|
|
maj_combocactions(ligneclicAct);
|
|
end;
|
|
|
|
procedure TFormModifAction.ListBoxOperationsKeyDown(Sender: TObject;
|
|
var Key: Word; Shift: TShiftState);
|
|
var nb : integer;
|
|
begin
|
|
nb:=Tablo_Action[ligneclicAct+1].NbOperations;
|
|
if (nb<1) or clicliste then exit;
|
|
if key=VK_delete then supprime_operation;
|
|
|
|
if ord(Key)=VK_UP then
|
|
begin
|
|
begin
|
|
if clicAction>0 then
|
|
begin
|
|
dec(clicaction);
|
|
Affiche_champs_operations(ligneclicAct+1,ClicAction+1);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
if ord(Key)=VK_DOWN then
|
|
begin
|
|
begin
|
|
if clicaction<nb-1 then
|
|
begin
|
|
inc(clicaction);
|
|
Affiche_champs_operations(ligneclicAct+1,ClicAction+1);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
if (Shift = [ssCtrl]) and (key = ord('A')) then
|
|
begin
|
|
ListBoxOperations.SelectAll;
|
|
end;
|
|
|
|
clicListe:=false;
|
|
end;
|
|
|
|
procedure TFormModifAction.FormClose(Sender: TObject;
|
|
var Action: TCloseAction);
|
|
begin
|
|
Aff_champs(ligneclicAct+1,1,1);
|
|
end;
|
|
|
|
procedure TFormModifAction.ButtonFonctionClick(Sender: TObject);
|
|
begin
|
|
FoncCourante:=Tablo_Action[ligneClicAct+1].adresse;
|
|
if (FoncCourante<=0) or (FoncCourante>NbreFL) then exit;
|
|
|
|
formModifAction.Close;
|
|
formconfig.PageControl.ActivePage:=formconfig.TabSheetFonctions;
|
|
formConfig.comboBoxFL.ItemIndex:=FoncCourante-1;
|
|
ComboBoxFL_mizajour;
|
|
formconfig.show;
|
|
end;
|
|
|
|
procedure TFormModifAction.ButtonVoirFoncClick(Sender: TObject);
|
|
begin
|
|
formModifAction.Close;
|
|
formconfig.PageControl.ActivePage:=formconfig.TabSheetFonctions;
|
|
|
|
FoncCourante:=Tablo_Action[ligneClicAct+1].tablocond[clicCond+1].adresse;
|
|
|
|
FormConfig.ComboBoxFL.ItemIndex:=FoncCourante-1;
|
|
fabrique_treeview(FoncCourante);
|
|
formconfig.show;
|
|
end;
|
|
|
|
procedure TFormModifAction.SpeedButton1Click(Sender: TObject);
|
|
begin
|
|
close;
|
|
end;
|
|
|
|
end.
|