V9.7

2024-12-20 12:17:29 +01:00
parent 087351ecd3
commit 02eccff67e
21 changed files with 2056 additions and 1395 deletions
--- a/UnitRoute.pas
+++ b/UnitRoute.pas
@@ -747,8 +747,8 @@ begin
   // TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
    //MyBrush.Free;
    FillRect(Rect);
-    Font.Color := TColor(ListBoxRoutes.Items.Objects[Index]);
-    TextOut(Rect.Left + 2, Rect.Top, ListBoxRoutes.Items[Index]);
+    Font.Color:=TColor(ListBoxRoutes.Items.Objects[Index]);
+    TextOut(Rect.Left+2, Rect.Top, ListBoxRoutes.Items[Index]);
  end;
 end;