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

V6.0

Browse Source
This commit is contained in:
f1iwq2
2023-04-21 17:29:57 +02:00
parent 21344ebd93
commit fe50853e84
27 changed files with 1916 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
UnitTCO.pas
View File

@@ -384,8 +384,8 @@ var
inverse : boolean; // aiguillage piloté inversé
repr : integer; // position de la représentation texte 0 = rien 1=centrale 2=Haut 3=Bas
Texte : string; // texte de la cellule
Fonte : string; // fonte du texte
FontStyle : string; // GSIB (Gras Souligné Italique Barré)
Fonte : string; // fonte du texte
FontStyle : string; // GSIB (Gras Souligné Italique Barré)
coulFonte : Tcolor;
TailleFonte : integer;
CouleurFond : Tcolor; // couleur de fond
@@ -3657,7 +3657,7 @@ begin
clGrille:=$404040;
// évite le clignotement pendant les affichages mais ne marche pas
//DoubleBuffered:=true;
comborepr.Enabled:=false;
comborepr.Enabled:=false;
// pour imageTCO incluse dans la scollbox: mettre autosize à true, et ne pas mettre align à alclient.
// c'est pour éviter le clignotement lors du glisser déposer des icones.
with imageTCO do
@@ -4320,7 +4320,7 @@ begin
//Affiche_tco par r
trackBarZoom.Position:=(ZoomMax+Zoommin) div 2;
ScrollBox.Width:=clientWidth-80;
//ScrollBox.Width:=clientWidth-200;
if MasqueBandeauTCO then