From 0f495a7712914141480c62a272db064414aa8bde Mon Sep 17 00:00:00 2001
From: Vadim Dashevskiy <watcherhd@gmail.com>
Date: Mon, 14 Jan 2013 21:28:10 +0000
Subject: - iceit: 'Core' folder parsing added (patch from Jerbifor)

git-svn-id: http://svn.miranda-ng.org/main/trunk@3108 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 tools/iceit/Project1.exe | Bin 189440 -> 182784 bytes
 tools/iceit/Unit1.pas    |  25 +++++++++++++++++++++++--
 2 files changed, 23 insertions(+), 2 deletions(-)

(limited to 'tools')

diff --git a/tools/iceit/Project1.exe b/tools/iceit/Project1.exe
index 3a97d2efa2..5bb21a117c 100644
Binary files a/tools/iceit/Project1.exe and b/tools/iceit/Project1.exe differ
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);
-- 
cgit v1.2.3