Vставька

[quote name='Excelent' timestamp='1290883957' post='15833']

zlofenix.org/forum/index.php?&&app=forums&module=extras&section=legends&do=smiles

[Setup] 
 AppName= 
 AppVersion= 
 AppPublisher= 
 DefaultDirName={pf32}\my prog 
  
 [Languages] 
 Name: "english"; MessagesFile: "compiler:Default.isl" 
  
 [Files] 
 Source: "111"; DestDir: "{code:GetPath|1}"; Flags: ignoreversion; Check: NeedInstall('1') 
 Source: "222"; DestDir: "{code:GetPath|2}"; Flags: ignoreversion; Check: NeedInstall('2') 
 Source: "333"; DestDir: "{code:GetPath|3}"; Flags: ignoreversion; Check: NeedInstall('3') 
 Source: "444"; DestDir: "{code:GetPath|4}"; Flags: ignoreversion; Check: NeedInstall('4') 
  
 [CustomMessages] 
 english.Install=install 
 name1=111 
 name2=222 
 name3=333 
 name4=444 
 path1={pf} 
 path2={userdocs} 
 path3={pf32} 
  
 [Code] 
 Const 
 N = 4; //здесь число необходимых флажков 
  
 var 
   CheckBoxes: Array [1..N] of TNewCheckBox; 
   Edits: Array [1..N] of TEdit; 
   Buttons: Array [1..N] of TNewButton; 
   pathes: Array[1..N] of String; 
  
 function GetPath(Param: String): String; 
 begin 
   Result := ExpandConstant(pathes[StrToInt(Param)]); 
 end; 
  
 function NeedInstall(Param: String): Boolean; 
 begin 
   Result := CheckBoxes[StrToInt(Param)].Checked; 
 end; 
  
 procedure SelectDirButtonClick(Sender: TObject); 
 var 
   Btn: TNewButton; 
   Str: String; 
 begin 
   Btn := TNewButton(Sender); 
   if BrowseForFolder('Please select folder ' + CustomMessage('name' + IntToStr(Btn.Tag)), Str, true) 
	 then pathes[Btn.Tag] := Str 
   else pathes[Btn.Tag] := CustomMessage('path' + IntToStr(Btn.Tag)); Edits[Btn.Tag].Text := GetPath(IntToStr(Btn.Tag)); 
 end; 
  
 procedure CheckboxClick(Sender: TObject); 
 var 
   Chb: TNewCheckBox; 
   Enable: Boolean; 
   Index: Byte; 
 begin 
   Chb := TNewCheckBox(Sender); 
   Enable := Chb.Checked; 
   Edits[Chb.Tag].Enabled := Enable; 
   Buttons[Chb.Tag].Enabled := Enable; 
   Enable := false 
   for Index := 1 To N Do Enable := Enable or CheckBoxes[Index].Checked; 
   WizardForm.NextButton.Enabled := Enable; 
 end; 
  
 procedure InitializeWizard(); 
 Var 
  Index: Byte; 
 begin 
   with WizardForm do begin 
	 SelectDirBitmapImage.Visible := False; 
	 DiskSpaceLabel.Visible := False; 
	 SelectDirBrowseLabel.Visible := False; 
	 SelectDirLabel.Visible := False; 
	 pathes[N] := '{app}'; 
  
	 For Index := 1 To N Do begin 
	   CheckBoxes[Index] := TNewCheckBox.Create(WizardForm); 
	   with CheckBoxes[Index] do 
	   begin 
		 Name := 'NewCheckBox' + IntToStr(Index); 
		 Parent := SelectDirPage; 
		 Left := ScaleX(5); 
		 Top := ScaleY(5) + (Index - 1) * 50; 
		 Width := SelectDirPage.Width - 10; 
		 Height := ScaleY(20); 
		 Caption := CustomMessage('Install') + ' ' + CustomMessage('name' + IntToStr(Index)); 
		 Checked := True; 
		 State := cbChecked; 
		 TabOrder := 5 + (Index - 1) * 3; 
		 Tag := Index; 
		 OnClick := @CheckboxClick; 
	   end; 
  
	   if Index = N 
		 then Edits[Index] := DirEdit 
	   else Edits[Index] := TEdit.Create(WizardForm); 
	   with Edits[Index] do 
	   begin 
		 Left := CheckBoxes[Index].Left; 
		   Top := CheckBoxes[Index].Top + CheckBoxes[Index].Height + 5; 
		 Width := SelectDirPage.Width - 90; 
		 Height := ScaleY(23); 
		 Enabled := CheckBoxes[Index].Checked; 
		 if Index <> N 
		   then begin 
			 Name := 'Edit' + IntToStr(Index); 
			 Parent := SelectDirPage; 
			 pathes[Index] := CustomMessage('path' + IntToStr(Index)); 
			 Text := GetPath(IntToStr(Index)); 
			 TabOrder := CheckBoxes[Index].TabOrder + 1; 
		   end; 
	   end; 
  
	   if Index = N 
		 then Buttons[Index] := DirBrowseButton 
	   else Buttons[Index] := TNewButton.Create(WizardForm); 
	   with Buttons[Index] do 
	   begin 
		 Left := Edits[Index].Left + Edits[Index].Width + 5; 
		 Top := Edits[Index].Top; 
		 Width := ScaleX(75); 
		 Height := Edits[Index].Height; 
		 Enabled := CheckBoxes[Index].Checked; 
		 if Index <> N 
		   then begin 
			 Name := 'NewButton' + IntToStr(Index); 
			 Parent := SelectDirPage; 
			 Caption := SetupMessage(msgButtonBrowse); 
			 OnClick := @SelectDirButtonClick; 
			 Tag := Index; 
			 TabOrder := Edits[Index].TabOrder + 1; 
		   end; 
	   end; 
	 end; 
   end; 
 end; 

Не будите

http://lenta.ru/news.../11/29/nielsen/

London racer

[email protected]

я сделал так

double[][] Matrix;
		const double INF = 300000;
		internal string ShortPath
		{
			get;
			private set;
		}
		internal double Length
		{
			get;
			private set;
		}

		public Little(double[][] matrix)
		{
			Matrix = matrix;
			ShortPath = "";
			Length = 0;
		}

		private double ShiftTo0(double[][] matr)
		{
			double result = 0;
			for (int j = 0; j < matr.Length; j++)
			{
				double Max = INF / 2;
				for (int i = 0; i < matr[j].Length; i++)
					if (matr[i][j] < Max) Max = matr[i][j];
				result += Max;
				for (int i = 0; i < matr[j].Length; matr[i][j] -= Max, i++) ;
			}
			for (int i = 0; i < matr.Length; i++)
			{
				double Max = INF / 2;
				for (int j = 0; j < matr[i].Length; j++)
					if (matr[i][j] < Max) Max = matr[i][j];
				result += Max;
				for (int j = 0; j < matr[i].Length; matr[i][j] -= Max, j++) ;
			}
			return result;
		}

		private double GetWeight(double[][] matr, int row, int column)
		{
			double result = 0, min = INF / 2;
			for (int i = 0; i < matr[row].Length; i++)
			{
				if ((matr[row][i] <= min) && (i != column)) min = matr[row][i];
			}
			result += min;
			min = INF / 2;
			for (int i = 0; i < matr[column].Length; i++)
			{
				if ((matr[i][column] <= min) && (i != row)) min = matr[i][column];
			}
			result += min;
			return result;
		}

		private void ChooseEdge(double[][] matr, out int rowIndex, out int columnIndex)
		{
			double max = -1, max1 = 0;
			rowIndex = columnIndex = 0;
			for (int i = 0; i < matr.Length; i++)
			{
				int j = 0;
				for (j = 0; j < matr[i].Length; j++)
					if (matr[i][j] == 0) break;
				max1 = GetWeight(matr, i, j);
				if (max1 > max)
				{
					max = max1;
					rowIndex = i;
					columnIndex = j;
				}
			}
		}

		private void StrikeRowAndColumn(BackgroundWorker worker, DoWorkEventArgs e, Node Bound,
			ref Node ResultBound, int rowIndex, int columnIndex)
		{
			int index1 = -1, index2;
			for (int i = 0; i < Bound.Count; i++)
			{
				if (i != rowIndex)
				{
					index1++;
					index2 = -1;
					for (int j = 0; j < Bound.Count; j++)
					{
						if (worker.CancellationPending)
						{
							e.Cancel = true;
						}
						else
						{
							if (j != columnIndex)
							{
								index2++;
								ResultBound.Matrix[index1][index2] = Bound.Matrix[i][j];
							}
						}
					}
				}
			}
		}

15 ноября - установил кс - странная игра бегаешь один никого нету.

30 ноября - нашел форум в сети попросил подсказать как поиграть по сети.

1 декабря - куча постов аффтар юзай поиск\моск предложение выпить яду
убицца ап стену, удалить папку с кс.

5 декабря - наконец то нашел список серваков, зашел, поиграть не удалось, кикает.

7 декабря - узнал про античитерские проги, заюзал моск и поиск нашел поставил.

8 декабря - поиграл 15 минут счет 1 на 18 расстроился разбил мышь.

9 декабря - сижу как дурак с одной клавой, играть неудобно.

15 декабря - купил новую мышь пришел друг сказал что в сети одни читеры скачал чето с инета, сказал будет легче играть.

16 декабря - зашел на сервак поиграл 2 минуты забанили во всей сети.

17 декабря - приходил друг, получил пи*ды.

30 декабря - играю как м*дак с ботами, жду окончания расчетного периода, как следствие смены айпишника.

10 января - очнулся после нового года, поменяли ип играл всю ночь.

17 февраля - поставлен вопрос об отчислении, сраная кс.

15 марта - досдал хвосты, со злости удалил кс.

15 марта вечер - ломка.

16 марта утро - не выдержал скачал, поставил, играл 3 суток, уснул прям за компом.

20 апреля - как вы достали мясо.

29 апреля - piwy na translite daje lekcii v instityte.

3 мая - я ebawy

15 мая - я ebawy v salat

5 июня - черт опять сессия, удалил кс, попросил предков увезти комп на дачу.

30 июня - сдал, поехал на дачу, сам допер на себе комп, скачал поставил... кайф.

15 июля - все понтуюца девайсами.

20 июля - не выдержал поехал на совок купил девайсов, получилось дороже чем сам комп.

25 июля - привыкаю к новым девайсам, играть невозможно, нафига купил(((

1 августа - отрубили инет.. ломка....

2 августа - не выдержал поехал в клуб.. кайф.

1 сенября - узнал что играть в сети не модно, а где ж еще ?

5 сентября - предложили сыграть в инете.

6 сентября - понял что совсем не ебашу.

20 сентября - закончился траффик. сраная кс.

1 октября - поменял тариф, теперь траффа должно хватить.

10 октября - все играют на ксдм.ру меня не пускает.

11 октября - узнал о существовании какого-то стима.

15 октября - купил стим.

1 ноября - говорят модно играть в тиме.

5 ноября - собрал тиму.

8 ноября - тима развалилась.

10 ноября - собрал новую.

15 ноября - понял что это фиговое занятие. играю миксы.

1 декабря - стали ездить в клубы.

15 января - играем на лаве, забил на сессию.

15 февраля - вопрос об отчислении, послал декана в жопу, аргументируя словами tawiiiiii mix.ru.

1 марта - отчислили, ну и хрен с ним я же теперь про, не пропаду.

15 марта - скрываюсь от военных патрулей, прячусь в клубе.

28 апреля - играю в топовой про команде, понтов немерено.

1 сентября - с утра иду домой, грустно смотрю на пробегающих мимо студентов, сраная кс.

10 сентября - бесит все. нервная система уничтожена. срываю зло на родных.

15 ноября - сыт по горло. в гневе забил на кс. послал всех в жопу. сраная кс

29 ноября - нет работы, нет образования, впереди токо армия.

30 ноября - какое-то чмо написало на форуме "подскажите как играть в кс", со злостью ответил чтоб он удалил папку с кс накуй, вспомнил себя..... и почему я тогда не послушал знающих людей.....

http://forum.zlofenix.org/f75

Server error

ни чё нет

http://zlofenix.org/...php?ind=urlobox

precomp -t-j -slow data.zip
del data.zip
srep data.pcf data.rep
del data.pcf
arc -m9x -se data.arc data.rep
create arc s data.arc

using System;

namespace WinApp
{
	class Lab
	{
		public Lab(int num, string name, bool done)
		{
			Num = num;
			Name = name;
			Done = done;
		}
		public string Name
		{
			get;
			set;
		}
		public int Num
		{
			get;
			set;
		}
		public bool Done
		{
			get;
			set;
		}
	}
}

кориолисовые promass настройка индикации

Метки:жиды убивают Россиян

В этом месяце на экранах Японии

Индекс Волшебства [ТВ-2]
Toaru Majutsu no Index II

http://habrastorage....4f/8b4ff240.png

05 Дек 2010 22:58