From 90db8b6652f73ddc335922d3a7c593878d83c45e Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@redhat.com>
Date: Sat, 4 Jan 2025 20:41:26 +0100
Subject: Basic ListView CSS styling

---
 UFileAssoc.pas | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

(limited to 'UFileAssoc.pas')

diff --git a/UFileAssoc.pas b/UFileAssoc.pas
index 3e14bf5..0924866 100644
--- a/UFileAssoc.pas
+++ b/UFileAssoc.pas
@@ -244,8 +244,7 @@ begin
 end;
 
 procedure AssignFileType(Item: PDataItem);
-var AColor: TGDKColor;
-    Plugin: TVFSPlugin;
+var Plugin: TVFSPlugin;
     Assoc: TFileAssoc;
 begin
   with PDataItem(Item)^ do begin
@@ -274,12 +273,8 @@ begin
               then Icon := Assoc.LnkPixmap.FPixbuf
               else Icon := Assoc.Pixmap.FPixbuf;
           end;
-          //  TODO
-{          if ItemColor = nil then begin
-            if (Assoc.ColorString = '') or (not StringToGDKColor(Assoc.ColorString, AColor))
-                then ItemColor := NormalItemGDKColor
-                else ItemColor := GDKColorToPGdkColor(AColor); 
-          end; }
+          if ItemColor = nil then
+            ItemColor := StringToGDKRGBA(Assoc.ColorString);
         end;
       end;
     end;
-- 
cgit v1.2.3