diff options
| author | Vadim Dashevskiy <watcherhd@gmail.com> | 2013-01-17 08:41:41 +0000 |
|---|---|---|
| committer | Vadim Dashevskiy <watcherhd@gmail.com> | 2013-01-17 08:41:41 +0000 |
| commit | b1ab118bcc78acc13db888f0dee2b3d5349dec48 (patch) | |
| tree | b679f503ab6bc2eb40e335b2e3c0ab48f2166fc9 /tools/iceit/Unit1.pas | |
| parent | 12c66ee68abe0994abc0733f5e1747648a832734 (diff) | |
- iceit: cosmetics
git-svn-id: http://svn.miranda-ng.org/main/trunk@3124 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'tools/iceit/Unit1.pas')
| -rw-r--r-- | tools/iceit/Unit1.pas | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/tools/iceit/Unit1.pas b/tools/iceit/Unit1.pas index 84444ba3bf..c0541fcabf 100644 --- a/tools/iceit/Unit1.pas +++ b/tools/iceit/Unit1.pas @@ -423,8 +423,8 @@ begin ProgressBar1.Position := n;
S := GetValue(CheckListBox1.Items[n], 0);
S := LowerCase(S);
- if n < PluginsItem then F := '\icons' else
- if n < coreitem then F := '\plugins' else F := '\core';
+ if n < IconsItem then F := '\core' else
+ if n < PluginsItem then F := '\icons' else F := '\plugins';
StatusBar1.Panels[0].Text := ' Processing: ' + S;
if (S = 'miranda32') or (S = 'miranda64') then
begin
@@ -527,12 +527,12 @@ begin AssignFile(Log, 'iceit.log');
Rewrite(Log);
IcePath := ExtractFilePath(ParamStr(0));
- // Icons
- CheckListBox1.Items.Add('icons|NONE|');
- IconsItem := CheckListBox1.Items.Count-1;
- CheckListBox1.Header[IconsItem] := True;
+ // Core
+ CheckListBox1.Items.Add('core|NONE|');
+ CoreItem := CheckListBox1.Items.Count-1;
+ CheckListBox1.Header[CoreItem] := True;
FindData.dwFileAttributes := FILE_ATTRIBUTE_NORMAL;
- FilePath := IcePath + '\icons\*.*';
+ FilePath := IcePath + '\core\*.*';
FindHandle := FindFirstFile(PChar(FilePath), FindData);
if FindHandle <> INVALID_HANDLE_VALUE then
begin
@@ -567,12 +567,12 @@ begin end;
end;
Windows.FindClose(FindHandle);
- // core
- CheckListBox1.Items.Add('core|NONE|');
- CoreItem := CheckListBox1.Items.Count-1;
- CheckListBox1.Header[PluginsItem] := True;
+ // Icons
+ CheckListBox1.Items.Add('icons|NONE|');
+ IconsItem := CheckListBox1.Items.Count-1;
+ CheckListBox1.Header[IconsItem] := True;
FindData.dwFileAttributes := FILE_ATTRIBUTE_NORMAL;
- FilePath := IcePath + '\core\*.*';
+ FilePath := IcePath + '\icons\*.*';
FindHandle := FindFirstFile(PChar(FilePath), FindData);
if FindHandle <> INVALID_HANDLE_VALUE then
begin
|