[Gugle]

Как при определении позиции в строке сказать, что бы искал спец символы?
Например:
int i := Pos(''', str); // Символ верхняя кавычка

Родилось еще 2 вопроса.
Как включить горизонтальный скролинг у CheckListBox?
Как сделать, что бы одна из папок, которая входит в дистр, копировалась в том случае, если локальная переменная = 1 и не копировалась, если эта переменная = 2?

[Damaks]

День добрый. Не получается сделать работающее выпадающее меню для выбора нужного пункта.

Макет кода такой:

Код:

var
	Change: Integer;

procedure CustomizeChange;
begin
	if not ..... then
	begin
		..........;
		Change := CustomizePage_ChangeCombo.ItemIndex;
		..........;
	end;
end;

function GetChange(Param : String) : String;
var
	i, k: Integer;
begin
	k := 2;
	Result := '';
	case Change of
	begin
		1 : Result := '.....';
		..........;
		for i := 1 to ..... do
		begin
			..........;
			if ..... then
			begin
				if ..... then
					k : Result := .....;
					k := k+1;
			end;
		end;
	end;
end;

procedure CreateTheWizardPages;
var
	ChangeCombo: TNewComboBox;
	i: Integer;
begin
	CustomizePage := CreateCustomPage(wpSelectDir, 'Страница', 'Страница');
	ChangeCombo := TNewComboBox.Create(CustomizePage);
	ChangeCombo.Top := ScaleY(3);
	ChangeCombo.Left :=  ScaleX(50);
	ChangeCombo.Width := ScaleX(200);
	ChangeCombo.Style := csDropDownList;
	ChangeCombo.Parent := CustomizePage.Surface;
	ChangeCombo.Items.Add('.....');
	begin
		..........;
		..........;
		for i := 1 to ..... do
		begin
			..........;
			if ..... then
			begin
				if ..... then
					ChangeCombo.Items.Add(.....)
			end;
		end;
	end;
	ChangeCombo.ItemIndex := 0;
	CustomizePage_ChangeCombo := ChangeCombo;
end;

Постарался убрать всё лишнее, чтобы осталась только нужная структура, мог сделать опечатку. Общий смысл кода таков. В выпадающем меню должно быть определённое количество пунктов, на каждом компьютере разное. Значение и количество генерируется с помощью цикла "for i := 1 to ..... do". Значение строковое. С выбранным значением потом проводятся другие манипуляции.

На данный момент у меня проблема в функции GetChange, а конкретно синтаксическая ошибка в строке 22 "1 : Result := '.....';". Общая конструкция должна быть правильной. Само меню создаётся правильно.

[El Sanchez]

Символ верхняя кавычка »

Gugle, удвоить кавычку, т.е. первый аргумент Pos будет 4 кавычки.

Как включить горизонтальный скролинг у CheckListBox? »

Gugle, хоть у ListBox-ов есть стиль горизонтального скролла врубить пока не удалось.

Как сделать, что бы одна из папок, которая входит в дистр, копировалась в том случае, если локальная переменная = 1 и не копировалась, если эта переменная = 2? »

Gugle, нужен пример.

проблема в функции GetChange »

Damaks, конструкция case не начинается с begin и должна выглядеть, например, так:

Код:

case Param of
  0: Result := '0';
  1: Result := '1';
  2: begin  //несколько команд заключаем в begin-end 
        команда 1
        команда 2 и т.д.
        Result := '2';
     end;
  3: Result := '3';
else
  Result := 'nothing';  //если Param не равен 0,1,2,3.
end;

[Dark_Delphin]

Всем привет)

Подскажите пожалуйста как исправить вот это:

Первая страница нормально..




А вторая вот позначил знаками вопросами.



Нужно что-бы картинка закрыла чорный фон, а не фон картинку.


Заранее спасибо.

[insombia]

ntrx нужно скрипт смотреть здесь экстрасенсов нету

Вас приветствует R.G.Trend игры F1 2011

Как то не очень красиво,проще написать Вас приветствует R.G.Trend

[Dark_Delphin]

Кто может помочь сделать картинку на всех страницах?

Перемучался и не получается..

Заранее спасибо.

[Tixo]

ntrx,
скинь скрипт посмотрю

[valyok666]

ntrx, скорее всего неправильно указан размер в коде Растяжки изображения

[valyok666]

ntrx, ты имеешь ввиду на всех страницах разная или одна?

[Dark_Delphin]

valyok666, мне всё ровно как, но что-бы на всех страницах, поможеш?