Added new "CLUTs" column; Simplified design; Some commands was moved to image's context menu; Image's and cluts list's flickering removed.

units/uScanThread.pas

@@ -68,6 +68,12 @@ begin
   ScanTim.Width := GetTimRealWidth(TIM);
   ScanTim.Height := GetTimHeight(TIM);
   ScanTim.Bitmode := BppToBitMode(TIM);
+
+  if TIMHasCLUT(TIM) then
+    ScanTim.Cluts := GetTimClutsCount(TIM)
+  else
+    ScanTim.Cluts := 0;
+
   ScanTim.Good := TIMIsGood(TIM);
 
   pScanResult.Count := TIM^.dwTimNumber;