From 575b30a9050ed8c53452e5a75e9085d4b2099f7c Mon Sep 17 00:00:00 2001
From: Vladimir Kryvian <meffi@lab313.ru>
Date: Tue, 2 Feb 2016 11:15:50 +0300
Subject: [PATCH] Removed unusable parameter.

---
 udrawtim.pas | 6 +++---
 umain.pas    | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/udrawtim.pas b/udrawtim.pas
index 1a77933..054c230 100644
--- a/udrawtim.pas
+++ b/udrawtim.pas
@@ -14,7 +14,7 @@ type
 procedure Tim2Png(TIM: PTIM; CLUT_NUM: Integer; Image: PDrawSurf; TranspMode: Byte);
 procedure Png2Tim(Image: PDrawSurf; Dest: PTIM);
 procedure DrawClutCell(TIM: PTIM; CLUT_NUM: Integer; Grid: PDrawGrid; X, Y: Integer);
-procedure SetupCLUT(TIM: PTIM; CLUT_NUM: Integer; Grid: PDrawGrid);
+procedure SetupCLUT(TIM: PTIM; Grid: PDrawGrid);
 procedure ClearCanvas(ACanvas: PCanvas; Rect: TRect);
 procedure ClearGrid(Grid: PDrawGrid);
 
@@ -365,9 +365,9 @@ begin
   Dispose(CLUT_COLOR);
 end;
 
-procedure SetupCLUT(TIM: PTIM; CLUT_NUM: Integer; Grid: PDrawGrid);
+procedure SetupCLUT(TIM: PTIM; Grid: PDrawGrid);
 var
-  X, Y, ROWS, COLS, COLORS: Integer;
+  ROWS, COLS, COLORS: Integer;
 begin
   COLORS := GetTimColorsCount(TIM);
   COLS := Min(COLORS, 32);
diff --git a/umain.pas b/umain.pas
index 792e3c9..ccc20dc 100644
--- a/umain.pas
+++ b/umain.pas
@@ -1164,7 +1164,7 @@ begin
   grdClut.Enabled := TIMHasCLUT(TIM);
 
   if TIMHasCLUT(TIM) then
-    SetupCLUT(TIM, cbbCLUT.ItemIndex, @grdClut)
+    SetupCLUT(TIM, @grdClut)
   else
   begin
     grdClut.ColCount := 1;