fix for the icons patcher

git-svn-id: http://svn.miranda-ng.org/main/trunk@14274 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 4 insertions, 2 deletions

diff --git a/tools/iceit/Unit1.pas b/tools/iceit/Unit1.pas
index 614df63878..387ff1f643 100644
--- a/tools/iceit/Unit1.pas
+++ b/tools/iceit/Unit1.pas
@@ -403,7 +403,7 @@ procedure TForm1.IceItClick(Sender: TObject);
 var

   n: Integer;

   S: String;

-  F: String;

+  F,X: String;

   xFilePath: String;

   xIcoPath: String;

   xTemp: String;

@@ -450,7 +450,9 @@ begin
         end

         else

         begin

-          xFilePath := MirandaPath + F + '\' + S + '.dll';

+          if (F = '\libs') then X := '.mir'

+          else                  X := '.dll';

+          xFilePath := MirandaPath + F + '\' + S + X;

           xIcoPath := IcePath + F + '\' + S + '\' + S;

         end;

         CheckListBox1.Items[n] := SetValue(CheckListBox1.Items[n], 1, 'PROGRESS');