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

V8.51

Browse Source
This commit is contained in:
f1iwq2
2024-03-06 15:41:14 +01:00
parent 315b803e40
commit 81d5c007d4
25 changed files with 2640 additions and 1884 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
UnitConfigCellTCO.pas
View File

@@ -477,7 +477,7 @@ var i : integer;
begin
// fenetre toujours dessus
position:=poMainFormCenter;
if affevt then Affiche('FormConfCellTCO create',clyellow);
if affevt then Affiche('FormConfCellTCO create',clLime);
actualize:=false;
SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NoMove or SWP_NoSize);
iconeX:=50; // taille de l'icone
@@ -594,7 +594,7 @@ end;
procedure TFormConfCellTCO.FormActivate(Sender: TObject);
begin
if indexTCOcourant=0 then exit;
if affevt then Affiche('FormConfCellTCO activate',clyellow);
if affevt then Affiche('FormConfCellTCO activate',clLime);
if selectionaffichee[indexTCOcourant] then ButtonFond.caption:='Couleur de fond de la sélection'
else ButtonFond.caption:='Couleur de fond de la cellule';
ConfCellTCO:=true;