Use local variables.

kmzbrnoI · Nov 2, 2024 · 5a75958 · 5a75958
1 parent 6e56a26
commit 5a75958
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/src/panel/MenuPanel.pas b/src/panel/MenuPanel.pas
@@ -124,8 +124,7 @@ procedure TPanelMenu.ShowMenu(Items: string; obl_r: Integer; absoluteLeftTop: TP
 /// /////////////////////////////////////////////////////////////////////////////
 
 procedure TPanelMenu.PaintMenu(obj: TDXDraw; mouse_pos: TPoint);
-var i: Integer;
-  Pos: TPoint;
+var Pos: TPoint;
   foreground, background: TColor;
   str: string;
   Canvas: TCanvas;
@@ -153,7 +152,7 @@ procedure TPanelMenu.PaintMenu(obj: TDXDraw; mouse_pos: TPoint);
 
   Self.fselected := -1;
 
-  for i := 0 to Self.Items.cnt - 1 do
+  for var i: Integer := 0 to Self.Items.cnt - 1 do
   begin
     background := TJopColor.gray;
 
@@ -290,8 +289,7 @@ procedure TPanelMenu.Click();
 /// /////////////////////////////////////////////////////////////////////////////
 
 procedure TPanelMenu.LoadHints(fn: string);
-var parsed: TStrings;
-  f: TextFile;
+var f: TextFile;
 begin
   Self.Hints.Clear();
 
@@ -302,7 +300,7 @@ procedure TPanelMenu.LoadHints(fn: string);
     Exit();
   end;
 
-  parsed := TStringList.Create();
+  var parsed: TStrings := TStringList.Create();
   try
     while (not eof(f)) do
     begin