V9.6

2024-11-24 10:16:39 +01:00
parent 31bb8233e3
commit 087351ecd3
13 changed files with 2589 additions and 1044 deletions
--- a/UnitRoute.pas
+++ b/UnitRoute.pas
@@ -558,7 +558,7 @@ procedure TFormRoute.ListBoxRoutesKeyDown(Sender: TObject; var Key: Word;
 var s : string;
    erreur : integer;
 begin
-  if indexLigneRoute<0 then exit;
+  if (indexLigneRoute<0) or (ListBoxRoutes.Count=0) then exit;
  if (ord(Key)=VK_UP) and (Indexligneroute>0) then
  begin
    dec(IndexligneRoute);