From c8e5289d64b3de8ca4db62c944d9823c38553821 Mon Sep 17 00:00:00 2001 From: Vadim Dashevskiy Date: Fri, 18 Jan 2013 07:47:34 +0000 Subject: - iceit patcher restructuring (not working yet) git-svn-id: http://svn.miranda-ng.org/main/trunk@3151 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- tools/iceit/IceIt.bdsproj | 175 +++++++++++++++++++++++++++++++++++++ tools/iceit/IceIt.cfg | 38 ++++++++ tools/iceit/IceIt.dpr | 13 +++ tools/iceit/IceIt.res | Bin 0 -> 5572 bytes tools/iceit/Project1.bdsproj | 175 ------------------------------------- tools/iceit/Project1.bdsproj.local | 8 -- tools/iceit/Project1.cfg | 38 -------- tools/iceit/Project1.dpr | 13 --- tools/iceit/Project1.identcache | Bin 91 -> 0 bytes tools/iceit/Project1.res | Bin 5572 -> 0 bytes tools/iceit/Unit1.dfm | 16 ++-- tools/iceit/Unit1.pas | 41 +++++---- tools/iceit/Utils.dcu | Bin 1960 -> 0 bytes tools/iceit/bin/iceit.exe | Bin 183808 -> 183808 bytes 14 files changed, 257 insertions(+), 260 deletions(-) create mode 100644 tools/iceit/IceIt.bdsproj create mode 100644 tools/iceit/IceIt.cfg create mode 100644 tools/iceit/IceIt.dpr create mode 100644 tools/iceit/IceIt.res delete mode 100644 tools/iceit/Project1.bdsproj delete mode 100644 tools/iceit/Project1.bdsproj.local delete mode 100644 tools/iceit/Project1.cfg delete mode 100644 tools/iceit/Project1.dpr delete mode 100644 tools/iceit/Project1.identcache delete mode 100644 tools/iceit/Project1.res delete mode 100644 tools/iceit/Utils.dcu diff --git a/tools/iceit/IceIt.bdsproj b/tools/iceit/IceIt.bdsproj new file mode 100644 index 0000000000..fb825853ff --- /dev/null +++ b/tools/iceit/IceIt.bdsproj @@ -0,0 +1,175 @@ + + + + + + + + + + + + IceIt.dpr + + + 7.0 + + + 8 + 0 + 1 + 1 + 0 + 0 + 1 + 1 + 1 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + 0 + 0 + 0 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 0 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + + + + + + + + + + + + False + + + + + + False + + + True + False + + + + $00000000 + + + + False + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 1049 + 1251 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + diff --git a/tools/iceit/IceIt.cfg b/tools/iceit/IceIt.cfg new file mode 100644 index 0000000000..367c22269e --- /dev/null +++ b/tools/iceit/IceIt.cfg @@ -0,0 +1,38 @@ +-$A8 +-$B- +-$C+ +-$D+ +-$E- +-$F- +-$G+ +-$H+ +-$I+ +-$J- +-$K- +-$L+ +-$M- +-$N+ +-$O+ +-$P+ +-$Q- +-$R- +-$S- +-$T- +-$U- +-$V+ +-$W- +-$X+ +-$YD +-$Z1 +-cg +-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +-H+ +-W+ +-M +-$M16384,1048576 +-K$00400000 +-LE"C:\Users\Administrator\Documents\Borland Studio Projects\Bpl" +-LN"C:\Users\Administrator\Documents\Borland Studio Projects\Bpl" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/tools/iceit/IceIt.dpr b/tools/iceit/IceIt.dpr new file mode 100644 index 0000000000..7697436f63 --- /dev/null +++ b/tools/iceit/IceIt.dpr @@ -0,0 +1,13 @@ +program IceIt; + +uses + Forms, + Unit1 in 'Unit1.pas' {Form1}; + +{$R *.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. diff --git a/tools/iceit/IceIt.res b/tools/iceit/IceIt.res new file mode 100644 index 0000000000..20b614bff8 Binary files /dev/null and b/tools/iceit/IceIt.res differ diff --git a/tools/iceit/Project1.bdsproj b/tools/iceit/Project1.bdsproj deleted file mode 100644 index 90f6d50082..0000000000 --- a/tools/iceit/Project1.bdsproj +++ /dev/null @@ -1,175 +0,0 @@ - - - - - - - - - - - - Project1.dpr - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 0 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - - - - - - - - - False - - - - - - False - - - True - False - - - - $00000000 - - - - False - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 1049 - 1251 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - diff --git a/tools/iceit/Project1.bdsproj.local b/tools/iceit/Project1.bdsproj.local deleted file mode 100644 index 5153b9a118..0000000000 --- a/tools/iceit/Project1.bdsproj.local +++ /dev/null @@ -1,8 +0,0 @@ - - - - 2007.08.24 16:31:46.093.pas,C:\Documents and Settings\induction\Мои документы\Borland Studio Projects\Unit1.pas=C:\ARHIV\PROG\ICERES\Unit1.pas - 2007.08.24 16:31:46.093.dfm,C:\Documents and Settings\induction\Мои документы\Borland Studio Projects\Unit1.dfm=C:\ARHIV\PROG\ICERES\Unit1.dfm - 2007.08.24 16:31:50.359.bdsproj,C:\Documents and Settings\induction\Мои документы\Borland Studio Projects\Project1.bdsproj=C:\ARHIV\PROG\ICERES\Project1.bdsproj - - diff --git a/tools/iceit/Project1.cfg b/tools/iceit/Project1.cfg deleted file mode 100644 index 367c22269e..0000000000 --- a/tools/iceit/Project1.cfg +++ /dev/null @@ -1,38 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J- --$K- --$L+ --$M- --$N+ --$O+ --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$YD --$Z1 --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --LE"C:\Users\Administrator\Documents\Borland Studio Projects\Bpl" --LN"C:\Users\Administrator\Documents\Borland Studio Projects\Bpl" --w-UNSAFE_TYPE --w-UNSAFE_CODE --w-UNSAFE_CAST diff --git a/tools/iceit/Project1.dpr b/tools/iceit/Project1.dpr deleted file mode 100644 index 08b344c5f1..0000000000 --- a/tools/iceit/Project1.dpr +++ /dev/null @@ -1,13 +0,0 @@ -program Project1; - -uses - Forms, - Unit1 in 'Unit1.pas' {Form1}; - -{$R *.res} - -begin - Application.Initialize; - Application.CreateForm(TForm1, Form1); - Application.Run; -end. diff --git a/tools/iceit/Project1.identcache b/tools/iceit/Project1.identcache deleted file mode 100644 index db63ec0c60..0000000000 Binary files a/tools/iceit/Project1.identcache and /dev/null differ diff --git a/tools/iceit/Project1.res b/tools/iceit/Project1.res deleted file mode 100644 index 20b614bff8..0000000000 Binary files a/tools/iceit/Project1.res and /dev/null differ diff --git a/tools/iceit/Unit1.dfm b/tools/iceit/Unit1.dfm index 3f49727fd5..91147e662c 100644 --- a/tools/iceit/Unit1.dfm +++ b/tools/iceit/Unit1.dfm @@ -215,32 +215,32 @@ object Form1: TForm1 TabOrder = 0 OnDrawItem = CheckListBox1DrawItem end - object Button1: TButton + object btnSelectAll: TButton Left = 8 Top = 270 Width = 75 Height = 25 Caption = 'Select All' TabOrder = 1 - OnClick = Button1Click + OnClick = SelectAllClick end - object Button2: TButton + object btnSelectNone: TButton Left = 89 Top = 270 Width = 75 Height = 25 Caption = 'Nothing' TabOrder = 2 - OnClick = Button2Click + OnClick = SelectNoneClick end - object Button3: TButton + object btnIceIt: TButton Left = 253 Top = 270 Width = 75 Height = 25 Caption = 'ICE It...' TabOrder = 3 - OnClick = Button3Click + OnClick = IceItClick end object StatusBar1: TStatusBar Left = 0 @@ -267,14 +267,14 @@ object Form1: TForm1 Height = 21 TabOrder = 6 end - object Button4: TButton + object btnMirandaPath: TButton Left = 307 Top = 23 Width = 20 Height = 22 Caption = '...' TabOrder = 7 - OnClick = Button4Click + OnClick = MirandaPathClick end object XPManifest1: TXPManifest Left = 54 diff --git a/tools/iceit/Unit1.pas b/tools/iceit/Unit1.pas index 6493615a1c..e49f9f40d8 100644 --- a/tools/iceit/Unit1.pas +++ b/tools/iceit/Unit1.pas @@ -12,22 +12,22 @@ type ImageList1: TImageList; CheckListBox1: TCheckListBox; Label1: TLabel; - Button1: TButton; - Button2: TButton; - Button3: TButton; + btnSelectAll: TButton; + btnSelectNone: TButton; + btnIceIt: TButton; + btnMirandaPath: TButton; StatusBar1: TStatusBar; ProgressBar1: TProgressBar; Edit1: TEdit; Label2: TLabel; - Button4: TButton; OpenDialog1: TOpenDialog; procedure CheckListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); procedure FormCreate(Sender: TObject); - procedure Button1Click(Sender: TObject); - procedure Button2Click(Sender: TObject); - procedure Button4Click(Sender: TObject); - procedure Button3Click(Sender: TObject); + procedure SelectAllClick(Sender: TObject); + procedure SelectNoneClick(Sender: TObject); + procedure IceItClick(Sender: TObject); + procedure MirandaPathClick(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } @@ -380,25 +380,27 @@ begin end; end; -procedure TForm1.Button1Click(Sender: TObject); +procedure TForm1.SelectAllClick(Sender: TObject); var n: Integer; begin for n := 0 to CheckListBox1.Items.Count - 1 do + begin CheckListBox1.Items[n] := SetValue(CheckListBox1.Items[n], 1, 'NONE'); - for n := 0 to CheckListBox1.Items.Count - 1 do - CheckListBox1.Checked[n] := True; + CheckListBox1.Checked[n] := True; + end; end; -procedure TForm1.Button2Click(Sender: TObject); +procedure TForm1.SelectNoneClick(Sender: TObject); var n: Integer; begin for n := 0 to CheckListBox1.Items.Count - 1 do + begin CheckListBox1.Items[n] := SetValue(CheckListBox1.Items[n], 1, 'NONE'); - for n := 0 to CheckListBox1.Items.Count - 1 do CheckListBox1.Checked[n] := False; + end; end; -procedure TForm1.Button3Click(Sender: TObject); +procedure TForm1.IceItClick(Sender: TObject); var n: Integer; S: String; @@ -426,8 +428,11 @@ 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'; + // keep the order as for FillCombo function (atm Core