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

V8.6

Browse Source
This commit is contained in:
f1iwq2
2024-03-26 18:36:08 +01:00
parent 4a82a86965
commit 1f2fa711ca
30 changed files with 5349 additions and 1158 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
UnitConfigTCO.pas
View File

@@ -297,6 +297,7 @@ end;
procedure TFormConfigTCO.FormActivate(Sender: TObject);
var s: string;
i : integer;
GridRect: TGridRect;
begin
clicConf:=true;
s:='Configuration du tco '+inttostr(indextcocourant)+' - Fichier '+NomFichierTCO[indextcocourant];
@@ -327,7 +328,15 @@ begin
if i<=nbreTCO then stringGridTCO.Cells[2,i]:='X' else stringGridTCO.Cells[2,i]:=' ';
end;
// stringGridTCO.canvas.Font.Style:=[fsBOld];
clicConf:=false;
// selection
GridRect.Top:= indextcocourant;
GridRect.Left:= 1;
GridRect.Right:= 1;
GridRect.Bottom:= indextcocourant;
StringGridTCO.Selection:= GridRect;
clicConf:=false;
end;
@@ -589,7 +598,7 @@ begin
config_modifie:=true;
s:=stringGridTCO.Cells[1,i];
// on peut vérifier le .cfg mais bon
Affiche('Le nom du fichier '+NomFichierTCO[i]+' sera sauvegardé en '+s,clyellow);
Affiche('Le nom du fichier '+NomFichierTCO[i]+' du TCO'+intToSTR(i)+' sera sauvegardé en '+s,clyellow);
NomFichierTCO[i]:=s;
end
else