Index: src/fFindDlg.lfm
===================================================================
--- src/fFindDlg.lfm	(revision 8738)
+++ src/fFindDlg.lfm	(working copy)
@@ -1201,6 +1201,7 @@
             ItemHeight = 0
             MultiSelect = True
             OnDblClick = lsFoundedFilesDblClick
+            OnDrawItem = lsFoundedFilesDrawItem
             OnKeyDown = lsFoundedFilesKeyDown
             OnMouseDown = lsFoundedFilesMouseDown
             OnMouseUp = lsFoundedFilesMouseUp
@@ -1207,6 +1208,7 @@
             OnMouseWheelDown = lsFoundedFilesMouseWheelDown
             OnMouseWheelUp = lsFoundedFilesMouseWheelUp
             ScrollWidth = 735
+            Style = lbOwnerDrawFixed
             TabOrder = 1
           end
           object pnlResultsBottom: TPanel
Index: src/fFindDlg.pas
===================================================================
--- src/fFindDlg.pas	(revision 8738)
+++ src/fFindDlg.pas	(working copy)
@@ -234,6 +234,8 @@
     procedure lbSearchTemplatesDblClick(Sender: TObject);
     procedure lbSearchTemplatesSelectionChange(Sender: TObject; {%H-}User: boolean);
     procedure lsFoundedFilesDblClick(Sender: TObject);
+    procedure lsFoundedFilesDrawItem(Control: TWinControl; Index: Integer;
+      ARect: TRect; State: TOwnerDrawState);
     procedure lsFoundedFilesKeyDown(Sender: TObject;
       var Key: word; Shift: TShiftState);
     procedure lsFoundedFilesMouseDown(Sender: TObject; Button: TMouseButton;
@@ -628,6 +630,7 @@
   FAtLeastOneSearchWasDone := False;
   FSearchWithDSXPluginInProgress := False;
   FSearchWithWDXPluginInProgress := False;
+  lsFoundedFiles.Color := gBackColor;
 
   // load language
   cmbNotOlderThanUnit.Items.Add(rsTimeUnitSecond);
@@ -2081,6 +2084,36 @@
   cm_GoToFile([]);
 end;
 
+procedure TfrmFindDlg.lsFoundedFilesDrawItem(Control: TWinControl;
+  Index: Integer; ARect: TRect; State: TOwnerDrawState);
+var
+  aColor: TColor;
+  path: String;
+  AFile: TFile;
+  FileSource: IFileSource;
+begin
+  aColor:= gBackColor;
+  lsFoundedFiles.Canvas.Brush.Color:= aColor;
+  lsFoundedFiles.Canvas.FillRect(ARect);
+  lsFoundedFiles.Canvas.Pen.Color:= gCursorColor;
+  lsFoundedFiles.Canvas.Pen.Style:= psSolid;
+  lsFoundedFiles.Canvas.FrameRect(ARect);
+
+  path:= lsFoundedFiles.Items[Index];
+  AFile:= TFile.Create(path);
+  AFile.FullPath:= path;
+
+  aColor:= gColorExt.GetColorBy(AFile);
+  if aColor = clDefault then  aColor:= gForeColor;
+  AFile.Free;
+
+  //if odSelected in State then aColor:=$F0F8FF;
+  lsFoundedFiles.Canvas.Font.Color:= aColor;
+  lsFoundedFiles.Canvas.Font.Bold:= True;
+  lsFoundedFiles.Canvas.TextRect(ARect, 2, ARect.Top, path);
+end;
+
+
 { TfrmFindDlg.lsFoundedFilesKeyDown }
 procedure TfrmFindDlg.lsFoundedFilesKeyDown(Sender: TObject;
   var Key: word; Shift: TShiftState);