Basic ListView CSS styling

1 files changed, 3 insertions, 8 deletions

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;