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

V9.76

Browse Source 
V9.76
This commit is contained in:
f1iwq2
2025-01-17 11:43:15 +01:00
parent 95cf06b007
commit e8b0207e63
25 changed files with 1960 additions and 752 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
UnitRoute.pas
View File

@@ -183,7 +183,7 @@ begin
result:=ok;
end;
// Efface, fabrique le tableau ParcoursDet[] depuis TabloRoute[id] et affiche la route dans le TCO contenue dans ParcoursDet[]
// Efface route du TCO, fabrique le tableau ParcoursDet[] depuis TabloRoute[id] et affiche la route dans le TCO contenue dans ParcoursDet[]
procedure Efface_Affiche_route;
var n,id : integer;
ok : boolean;
@@ -709,12 +709,13 @@ begin
IdCantonOrg:=index_canton_numero(cantonOrg);
//IdCantonDest:=index_canton_numero(cantonDest);
sensCanton:=canton[IdCantonOrg].sensLoco;
case sensCanton of // sens de la loco dans le canton
sensGauche : begin sens:=SensTCO_O;end;
sensDroit : begin sens:=SensTCO_E;end;
SensHaut : begin sens:=SensTCO_N;end;
SensBas : begin sens:=SensTCO_S;end;
end;
// sens de la loco dans le canton
case sensCanton of
sensGauche : sens:=SensTCO_O;
sensDroit : sens:=SensTCO_E;
SensHaut : sens:=SensTCO_N;
SensBas : sens:=SensTCO_S;
end;
IndexTCO:=canton[IdcantonOrg].Ntco;
r:=prepare_route(IndexTCO,CantonOrg,DetaTrouve,sens);
if r<>0 then
@@ -743,16 +744,16 @@ begin
myColor := clRed
else
myColor := clBlack;
}
//myBrush.Style := bsSolid;
//myBrush.Color := myColor;
//Windows.FillRect(handle, Rect, myBrush.Handle);
//Pen.color:=clWhite;//CoulText;
//myBrush.color:=clBlue;
//Brush.Style := bsClear;
// TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
//MyBrush.Free;
myBrush.Style := bsSolid;
myBrush.Color := myColor;
Windows.FillRect(handle, Rect, myBrush.Handle);
Pen.color:=clWhite;//CoulText;
myBrush.color:=clBlue;
Brush.Style := bsClear;
TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
MyBrush.Free; }
FillRect(Rect); // on à cause des styles
s:=ListBoxRoutes.Items[Index];
fs:=integer(ListBoxRoutes.Items.Objects[Index]);