Проблема Ошибка

froggyex

Новичок
Здравствуйте! Возникла ошибка, не понимаю как ее решить, буду благодарен если будет какая то помощь. 1625748543133.png
 

Вложения

EvilAlex

Старожил
удалите и все будет ок. у вас в коде две одинаковые строки 128-129 и 210-211, вот последнюю можно убрать полностью...

Код:
{ RedesignWizardFormBegin } // Не удалять эту строку!
// Не изменять эту секцию. Она создана автоматически.
///////Crackstatus\\\\\\
var
  PaintBox1: TPaintBox;
  NewStaticText1: TNewStaticText;
  NewStaticText2: TNewStaticText;
 

froggyex

Новичок
удалите и все будет ок. у вас в коде две одинаковые строки 128-129 и 210-211, вот последнюю можно убрать полностью...

Код:
{ RedesignWizardFormBegin } // Не удалять эту строку!
// Не изменять эту секцию. Она создана автоматически.
///////Crackstatus\\\\\\
var
  PaintBox1: TPaintBox;
  NewStaticText1: TNewStaticText;
  NewStaticText2: TNewStaticText;
мне эти два кода нужны, а если удалить, то уже полностью, потому что на каждую строчку одна и та же ошибка
 

froggyex

Новичок
а ты случайно не знаешь, почему у меня при финише установки не работает измененный текст, а при начале работает?
 

froggyex

Новичок
кинь весь скрипт ?
code_language.pascal:
procedure WelcomeLabel2Click(Sender: TObject); forward;

procedure RedesignWizardForm2;
begin
with WizardForm.WelcomeLabel1 do
begin
Caption := '' + #13#10 +
'';
OnClick := @WelcomeLabel1Click;
Top := ScaleY(-56);
end;

with WizardForm.WelcomeLabel2 do
begin
Caption := 'Перед установкой {#MyAppName} version {#MyAppVersion} на ваш компьютер, убедитесь, в отсутствии препятствий для корректной установки игры.' + #13#10 +
'' + #13#10 +
'Закройте все приложения, которые могут вызвать сбой, в том числе антивирус.' + #13#10 +
'' + #13#10 +
'' + #13#10 +
'Нажмите «Далее», чтобы продолжить, или «Отмена», чтобы выйти из программы установки. ';
OnClick := @WelcomeLabel2Click;
Top := ScaleY(75);
end;

{ NewStaticText1 }
NewStaticText1 := TNewStaticText.Create(WizardForm);
with NewStaticText1 do
begin
Name := 'NewStaticText1';
Parent := WizardForm.WelcomePage;
AutoSize := False;
WordWrap := True;
Caption := 'Установка {#MyAppName} ' + #13#10 +
'';
Font.Color := clWindowText;
Font.Height := -16;
Font.Name := 'Verdana';
Font.Style := [fsBold];
ParentFont := False;
ShowAccelChar := False;
Left := ScaleX(176);
Top := ScaleY(16);
Width := ScaleX(301);
Height := ScaleY(55);
end;

NewStaticText1.TabOrder := 2;

with WizardForm.FinishedLabel do
begin
Caption := '{#MyAppName} установлена. Вы можете запустить игру с ярлыка на рабочем столе или из меню Пуск.' + #13#10 +
'' + #13#10 +
'Приятной игры! И помни, нет такой защиты, которую не взломать.';
end;

with WizardForm.FinishedHeadingLabel do
begin
Caption := 'Установка {#MyAppName} завершена' + #13#10 +
'';
end;
 
Последнее редактирование модератором:

Andreo Fadio

Старожил
а ты случайно не знаешь, почему у меня при финише установки не работает измененный текст, а при начале работает?
процедуру - RedesignWizardForm2; выкинуть из скрипта в ней происходит вторичная замена того что заменяется уже в RedesignWizardForm;

И для замены только текста на финишной странице лучше использовать секцию - [Messages] не занося ничего в секцию Code

Ваш переправленный скрипт с рабочим текстом на финишной странице
 

Вложения

froggyex

Новичок
процедуру - RedesignWizardForm2; выкинуть из скрипта в ней происходит вторичная замена того что заменяется уже в RedesignWizardForm;

И для замены только текста на финишной странице лучше использовать секцию - [Messages] не занося ничего в секцию Code

Ваш переправленный скрипт с рабочим текстом на финишной странице
Спасибо огромное:)
 
Сверху