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

V5.75+

Browse Source
This commit is contained in:
f1iwq2
2023-04-12 17:51:51 +02:00
parent 1eaadabf4b
commit 21344ebd93
21 changed files with 273 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
UnitTCO.pas
View File

@@ -2521,7 +2521,7 @@ end;
begin
Pen.Width:=1;
Brush.Color:=TCO[x,y].CouleurFond;
r:=Rect(x0,y0,x0+LargeurCell,y0+HauteurCell);
r:=Rect(x0,y0,x0+LargeurCell,y0+HauteurCell);
FillRect(r);
Brush.Color:=clQuai;
@@ -4196,7 +4196,6 @@ end;
ax:=routeTCO[i-1].x; // précédent
ay:=routeTCO[i-1].y;
sx:=routeTCO[i+1].x; // suivant
sy:=routeTCO[i+1].y;
sy:=routeTCO[i+1].y;
if (ax-x=0) and (ay-y=-1) and (sx-x=0) and (sy-y=1) then tco[x,y].trajet:=1; // de haut à bas
if (ax-x=0) and (ay-y=1) and (sx-x=0) and (sy-y=-1) then tco[x,y].trajet:=1; // de bas à haut
@@ -4347,8 +4346,7 @@ end;
begin
GetCursorPos(Position);
Position:=ImageTCO.screenToCLient(Position);
Xclic:=position.X;YClic:=position.Y;
Position:=ImageTCO.screenToCLient(Position);
Xclic:=position.X;YClic:=position.Y;
XclicCell:=Xclic div largeurCell +1;
YclicCell:=Yclic div hauteurCell +1;
@@ -5361,8 +5359,7 @@ end;
begin
if affEvt then Affiche('TCO Souris clicD enfoncée',clLime);
GetCursorPos(Position);
Position:=ImageTCO.screenToCLient(Position);
Xclic:=position.X;
Position:=ImageTCO.screenToCLient(Position);
Xclic:=position.X;
YClic:=position.Y;
// coordonnées grille