- iceit: 'Core' folder parsing added (patch from Jerbifor)

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

2 files changed, 23 insertions, 2 deletions

diff --git a/tools/iceit/Project1.exe b/tools/iceit/Project1.exe
index 3a97d2efa2..5bb21a117c 100644
--- a/tools/iceit/Project1.exe
+++ b/tools/iceit/Project1.exe
diff --git a/tools/iceit/Unit1.pas b/tools/iceit/Unit1.pas
index 74c83beae8..8ed8e36f04 100644
--- a/tools/iceit/Unit1.pas
+++ b/tools/iceit/Unit1.pas
@@ -85,7 +85,7 @@ type
 

 var

   Form1: TForm1;

-  IconsItem, PluginsItem: Integer;

+  IconsItem, PluginsItem, CoreItem: Integer;

   IcePath: String;

   MirandaPath: String;

 

@@ -423,7 +423,8 @@ begin
       ProgressBar1.Position := n;

       S := GetValue(CheckListBox1.Items[n], 0);

       S := LowerCase(S);

-      if n < PluginsItem then F := '\icons' else F := '\plugins';

+      if n < PluginsItem then F := '\icons' else

+      if n < coreitem then F := '\plugins' else  F := '\core';

       StatusBar1.Panels[0].Text := ' Processing: ' + S;

       if (S = 'miranda32') or (S = 'miranda64') then

       begin

@@ -566,6 +567,26 @@ begin
     end;

   end;

   Windows.FindClose(FindHandle);

+   // core

+  CheckListBox1.Items.Add('core|NONE|');

+  PluginsItem := CheckListBox1.Items.Count-1;

+  CheckListBox1.Header[PluginsItem] := True;

+  FindData.dwFileAttributes := FILE_ATTRIBUTE_NORMAL;

+  FilePath := IcePath + '\core\*.*';

+  FindHandle := FindFirstFile(PChar(FilePath), FindData);

+  if FindHandle <> INVALID_HANDLE_VALUE then

+  begin

+    FindNext := True;

+    while FindNext do

+    begin

+      FileName := FindData.cFileName;

+      if (FileName <> '..') and (FileName <> '.') then

+        if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) <> 0 then

+         CheckListBox1.Items.Add(LowerCase(FileName)+'|NONE|');

+      FindNext := FindNextFile(FindHandle, FindData);

+    end;

+  end;

+  Windows.FindClose(FindHandle);

 end;

 

 procedure TForm1.FormDestroy(Sender: TObject);