easylinux/SignauxComplexes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

V8.41

Browse Source
This commit is contained in:
f1iwq2
2024-02-02 18:13:19 +01:00
parent c0edae3eb7
commit 039f66ed6f
25 changed files with 702 additions and 528 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
UnitConfigCellTCO.pas
View File

@@ -41,6 +41,7 @@ type
EditAdrSortie: TEdit;
EditEtat: TEdit;
Labela: TLabel;
RadioButtonV180: TRadioButton;
procedure EditAdrElementChange(Sender: TObject);
procedure EditTexteCCTCOChange(Sender: TObject);
procedure ButtonFonteClick(Sender: TObject);
@@ -67,6 +68,7 @@ type
procedure EditAdrSortieChange(Sender: TObject);
procedure EditEtatChange(Sender: TObject);
procedure RadioButtonActionClick(Sender: TObject);
procedure RadioButtonV180Click(Sender: TObject);
private
{ Déclarations privées }
public
@@ -261,10 +263,12 @@ begin
with formConfCellTCO do
begin
RadioButtonV.Enabled:=false;
RadioButtonV180.Enabled:=false;
RadioButtonHG.Enabled:=false;
RadioButtonHD.Enabled:=false;
RadioButtonG.Enabled:=false;
RadioButtonD.Enabled:=false;
ImagePaletteCC.transparent:=false;
end;
@@ -274,6 +278,7 @@ begin
with formConfCellTCO do
begin
RadioButtonV.Enabled:=false;
RadioButtonV180.Enabled:=false;
RadioButtonHG.Enabled:=false;
RadioButtonHD.Enabled:=false;
RadioButtonG.Enabled:=false;
@@ -316,29 +321,38 @@ begin
with formconfCellTCO do
begin
RadioButtonV.Enabled:=true;
RadioButtonV180.Enabled:=true;
RadioButtonHG.Enabled:=true;
RadioButtonHD.Enabled:=true;
RadioButtonG.Enabled:=true;
RadioButtonD.Enabled:=true;
oriente:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].Feuoriente;
if oriente=1 then
begin
case oriente of
1: begin
RadioButtonV.checked:=true;
RadioButtonV180.checked:=false;
RadioButtonHG.checked:=false;
RadioButtonHD.checked:=false;
end;
if oriente=2 then
begin
2: begin
RadioButtonV.checked:=false;
RadioButtonV180.checked:=false;
RadioButtonHG.checked:=true;
RadioButtonHD.checked:=false;
end;
if oriente=3 then
begin
3: begin
RadioButtonV.checked:=false;
RadioButtonV180.checked:=false;
RadioButtonHG.checked:=false;
RadioButtonHD.checked:=true;
end;
4: begin
RadioButtonV.checked:=false;
RadioButtonV180.checked:=true;
RadioButtonHG.checked:=false;
RadioButtonHD.checked:=false;
end;
end;
PiedFeu:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].PiedFeu;
if PiedFeu=1 then
@@ -542,6 +556,11 @@ begin
Vertical(indexTCOcourant);
end;
procedure TFormConfCellTCO.RadioButtonV180Click(Sender: TObject);
begin
Vertical180(indexTCOCourant);
end;
procedure TFormConfCellTCO.RadioButtonHGClick(Sender: TObject);
begin
tourne90G(indexTCOcourant);
@@ -896,6 +915,8 @@ begin
end;
begin
end.