Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

SHVtYW4=


Сообщения: 3451
Благодарности: 1273

Профиль | Отправить PM | Цитировать


Цитата Johny777:
procedure InitializeWizard(); может быть только одна с таким названием »
Johny777,
читать дальше »
Это родитель будет только один
Код: Выделить весь код
procedure InitializeWizard();
а потомков от него сколько угодно
Код: Выделить весь код
begin
  InitializeWizard1();
  InitializeWizard2();
  InitializeWizard3();
  InitializeWizard4();
  InitializeWizard5();
end;
да и не мне тебе рассказывать.

Восприятие каждого относительно. Нужно учитывать всё, и обязательно уточнить чтоб в дальнейшем при помощи постоянно не исправлять одну ошибку за другой.



На скрине сразу виден был весь скрипт?
На скриншоте указан был только кусок кода:
Код: Выделить весь код
//прячем имена файлов
WizardForm.FileNameLabel.Visible:= False;
//голубой цвет текста вместо блеклого
  with WizardForm do begin
    with BeveledLabel do begin
    Font.Color:=clBlue;
    Enabled:=True;
    end;
  end;
end;
  var
Page: TOutputMsgMemoWizardPage;
//procedure InitializeWizard();
begin
 Page := CreateOutputMsgMemoPage(wpSelectComponents,
   'Предупреждение!', '',
   '', 'Внимание! Прежде чем инсталировать Microsoft .NET Framework только 4.0 для Windows 7, установите версию 3.5.1 из Панель управления-Программы и компоненты-Включение и отключение компонентов Windows-Microsoft .NET Framework 3.5.1');
end;
function ShouldSkipPage(PageID: Integer): Boolean;
begin
    case PageFromID(PageID) of
        Page: Result := not IsComponentSelected('Framework\4');
    end;
end;
так ещё процедура procedure InitializeWizard(); была закомментирована //procedure InitializeWizard();, что там выше и ниже было, оставалось только догадываться.

Не всегда код может быть таким
Код: Выделить весь код
procedure InitializeWizard();
begin
  with WizardForm.DirEdit do
  begin
    Top := ScaleY(92);
  end;
end;
может быть и таким
Код: Выделить весь код
procedure RedesignWizardForm;
begin
  with WizardForm.DirEdit do
  begin
    Top := ScaleY(92);
  end;
end;















procedure InitializeWizard();
begin
  RedesignWizardForm;
end;
и от куда что вываливается не понятно.
Чтоб не гадать, лучше показывать не скриншот, а весь скрипт.
Я тоже могу наделать скриншотов, вечности не хватит чтоб угадать весь скрипт.

-------
09a468a9b4293cd82adf6d6c60a9da82 | Tm9yZGVr
В связи со сменой железа и переходом на LInux с полным отказом от Windows - посещение на форуме будет редким.


Последний раз редактировалось Nordek, 05-12-2013 в 21:40.


Отправлено: 21:03, 05-12-2013 | #1622