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

V10.82

Browse Source
This commit is contained in:
f1iwq2
2026-01-17 11:19:04 +01:00
parent 4b997f5de1
commit 7daf7e28aa
24 changed files with 1157 additions and 2334 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
UnitMesure.pas
View File

@@ -1,6 +1,6 @@
unit UnitMesure;
// mesure de la vitesse des trains
// mesure de la vitesse des trains pour l'étalonnage
interface
@@ -112,19 +112,19 @@ begin
cv.brush.color:=clWindow;
cv.fillrect(rect);
end;
// Affichage du texte
cv.font.style:=canvas.font.style+[fsbold];
cv.textout(rect.left+largDest+5,rect.top,ComboBoxTrains.items[index]);
if (odSelected in state) then
begin
cv.brush.color:=clWindowFrame;
cv.fillrect(rect);
//cv.font.color:=clblue;
cv.textout(rect.left+largDest+5,rect.top,ComboBoxTrains.items[index]);
end;
// Affichage du texte
cv.font.style:=canvas.font.style+[fsbold];
cv.textout(rect.left+largDest+5,rect.top,ComboBoxTrains.items[index]);
if (odSelected in state) then
begin
cv.brush.color:=clWindowFrame;
cv.fillrect(rect);
//cv.font.color:=clblue;
cv.textout(rect.left+largDest+5,rect.top,ComboBoxTrains.items[index]);
end;
TransparentBlt(cv.Handle,rect.Left+2,rect.Top,largDest,hautDest,
Trains[index+1].Icone.canvas.Handle,0,0,l,h,clWhite);
TransparentBlt(cv.Handle,rect.Left+2,rect.Top,largDest,hautDest,
Trains[index+1].Icone.canvas.Handle,0,0,l,h,clWhite);
end;
procedure TFormMesure.ComboBoxTrainsChange(Sender: TObject);