Создание инсталляторов для модпаков на базе Inno Setup

Prost · November 27, 2014

Скажу одно: узбагойся:)

Азазаза не затралил

Kotyarko_O · November 27, 2014

и для кнопок точно также да?

Для всего, что создаётся на этой форме.

а при выскакивании этого окна у тебя удаляются все установленные моды от Джова?

Да, запускается базовый деинсталлятор, который создаётся при установке его модПака.

Кстати, если это окно у тебя выскочило - подходят два варианта: или ты пользуешься не своим, а его паком, или ты не умеешь удалять сборки :)

и что за название окна такое странное?

Не доходят руки поменять (это я использовал при дебаге всех деинсталляций, когда только вводил эту функцию. Чтобы знать, какая строка в данный момент обрабатывается [F - Find, MP - ModPack, I - In, R - Registry, и номер строки). Потом как-то перепишу.

Edited November 27, 2014 by Kotyarko_O

Ekspoint · November 27, 2014

Да, запускается базовый деинсталлятор, который создаётся при установке его модПака.

Кстати, если это окно у тебя выскочило - подходят два варианта: или ты пользуешься не своим, а его паком, или ты не умеешь удалять сборки :)

тогда какой смысл станицы бекапа?

тоесть удаляешь чью то сборку а потом удаляешь моды,смысл этого?

и какого хрена кнопка не рисуется?

[Code]
Var
NewForm: TSetupForm;
NewButton: TNewButton;
Procedure CreateForm(Sender: TObject);
begin
NewForm := CreateCustomForm;
NewForm.FormStyle := bsDialog;
NewForm.Position := poScreenCenter;
NewForm.Width := 456;
NewForm.Height := 329;
NewForm.Show;
NewForm.Caption:= 'Помочь проекту';
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
var
group: TNewButton;
procedure groupOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'бла бла ', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;
Procedure InitializeWizard();
begin
NewButton := TNewButton.Create(WizardForm);
NewButton.Parent := WizardForm;
NewButton.Left := ScaleX(208);
NewButton.Top := ScaleY(327);
NewButton.Width := ScaleX(27);
NewButton.Height := ScaleY(23);
NewButton.Caption := '?';
NewButton.OnClick := @CreateForm;
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    group:=TNewButton.Create(NewForm);
    group.Parent := NewForm;
    group.Left := ScaleX(50);
    group.Top := ScaleY(50);
    group.Width := ScaleX(75);
    group.Height := ScaleY(25);
    group.Caption := 'Webmoney';
    group.Font.Height := -12;
    group.Font.Name := 'Arial Unicode MS';
    group.Font.Style := [fsItalic];
    group.OnClick:=@groupOnClick
end;end;
//""""""""""""""""""""""""""""""""""""""""""""""//

Edited November 27, 2014 by Ekspoint

Kotyarko_O · November 27, 2014

тогда какой смысл станицы бекапа?

1) Не все используют сборки;

2) Не все знают, что у них в папке res_mods вообще что-то есть;

3) Не все догадываются, что вообще такая папка есть;

4) Процедура удаления не для всех модПаков.

и какого хрена кнопка не рисуется?

'Надо так:'

[code]
Var
 NewForm: TSetupForm;
 NewButton: TNewButton;

procedure groupOnClick(Sender: TObject);
var
 ErrorCode: Integer;
begin
 ShellExec('open', 'бла бла ', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;

Procedure CreateForm(Sender: TObject);
var
 group: TNewButton;
begin
 NewForm := CreateCustomForm;
 NewForm.FormStyle := bsDialog;
 NewForm.Position := poScreenCenter;
 NewForm.Width := 456;
 NewForm.Height := 329;
 NewForm.Show;
 NewForm.Caption:= 'Помочь проекту';

 group:=TNewButton.Create(NewForm);
 group.Parent := NewForm;
 group.Left := ScaleX(50);
 group.Top := ScaleY(50);
 group.Width := ScaleX(75);
 group.Height := ScaleY(25);
 group.Caption := 'Webmoney';
 group.Font.Height := -12;
 group.Font.Name := 'Arial Unicode MS';
 group.Font.Style := [fsItalic];
 group.OnClick:=@groupOnClick
end;

Procedure InitializeWizard();
begin
NewButton := TNewButton.Create(WizardForm);
NewButton.Parent := WizardForm;
NewButton.Left := ScaleX(208);
NewButton.Top := ScaleY(327);
NewButton.Width := ScaleX(27);
NewButton.Height := ScaleY(23);
NewButton.Caption := '?';
NewButton.OnClick := @CreateForm;
end;

Ekspoint · November 27, 2014

'Надо так:'

[code]
Var
 NewForm: TSetupForm;
 NewButton: TNewButton;

procedure groupOnClick(Sender: TObject);
var
 ErrorCode: Integer;
begin
 ShellExec('open', 'бла бла ', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;

Procedure CreateForm(Sender: TObject);
var
 group: TNewButton;
begin
 NewForm := CreateCustomForm;
 NewForm.FormStyle := bsDialog;
 NewForm.Position := poScreenCenter;
 NewForm.Width := 456;
 NewForm.Height := 329;
 NewForm.Show;
 NewForm.Caption:= 'Помочь проекту';

 group:=TNewButton.Create(NewForm);
 group.Parent := NewForm;
 group.Left := ScaleX(50);
 group.Top := ScaleY(50);
 group.Width := ScaleX(75);
 group.Height := ScaleY(25);
 group.Caption := 'Webmoney';
 group.Font.Height := -12;
 group.Font.Name := 'Arial Unicode MS';
 group.Font.Style := [fsItalic];
 group.OnClick:=@groupOnClick
end;

Procedure InitializeWizard();
begin
NewButton := TNewButton.Create(WizardForm);
NewButton.Parent := WizardForm;
NewButton.Left := ScaleX(208);
NewButton.Top := ScaleY(327);
NewButton.Width := ScaleX(27);
NewButton.Height := ScaleY(23);
NewButton.Caption := '?';
NewButton.OnClick := @CreateForm;
end;

ага спасибо,понял

А как кнопку "закрыть" сделать рабочей?

    NewButton1 := TNewButton.Create(NewForm); //NewButton1.
    NewButton1.Parent := NewForm;
    NewButton1.Left := ScaleX(190);
    NewButton1.Top := ScaleY(215);
    NewButton1.Width := ScaleX(75);
    NewButton1.Height := ScaleY(30);
    NewButton1.Caption := 'Закрыть';
    NewButton1.Font.Color := clWindowText;
    NewButton1.Font.Height := -12;
    NewButton1.Font.Name := '@Arial Unicode MS';
    NewButton1.ParentFont := False;
    NewButton1.ModalResult := mrOk;

Edited November 27, 2014 by Ekspoint

Kotyarko_O · November 27, 2014

А как кнопку "закрыть" сделать рабочей?

[Code]
Var
 NewButton1: TNewButton;

Procedure NewFormClose(Sender: TObject);
begin
 NewForm.Close;
end;

Procedure CreateForm(Sender: TObject);
begin
...
 NewButton1 := TNewButton.Create(NewForm);
 NewButton1.Parent := NewForm;
 NewButton1.Left := ScaleX(190);
 NewButton1.Top := ScaleY(215);
 NewButton1.Width := ScaleX(75);
 NewButton1.Height := ScaleY(30);
 NewButton1.Caption := 'Закрыть';
 NewButton1.Font.Color := clWindowText;
 NewButton1.Font.Height := -12;
 NewButton1.Font.Name := '@Arial Unicode MS';
 NewButton1.ParentFont := False;
 NewButton1.OnClick := @NewFormClose;
end;

Ekspoint · November 27, 2014

[code]
Var
 NewButton1: TNewButton;

Procedure NewFormClose(Sender: TObject);
begin
 NewForm.Close;
end;

Procedure CreateForm(Sender: TObject);
begin
...
 NewButton1 := TNewButton.Create(NewForm);
 NewButton1.Parent := NewForm;
 NewButton1.Left := ScaleX(190);
 NewButton1.Top := ScaleY(215);
 NewButton1.Width := ScaleX(75);
 NewButton1.Height := ScaleY(30);
 NewButton1.Caption := 'Закрыть';
 NewButton1.Font.Color := clWindowText;
 NewButton1.Font.Height := -12;
 NewButton1.Font.Name := '@Arial Unicode MS';
 NewButton1.ParentFont := False;
 NewButton1.OnClick := @NewFormClose;
end;

[spoiler][Code]
Var
NewForm: TSetupForm;
NewButton: TNewButton;
//""""""""""""""""""""""""""""""""""""""""""""""//
Procedure NewFormClose(Sender: TObject);
begin
NewForm.Close;
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
Procedure CreateForm(Sender: TObject);
var
  Label1: TLabel;
  Label2: TLabel;
  Label3: TLabel;
  Label4: TLabel;
  Label5: TLabel;
  Label6: TLabel;
  Label7: TLabel;
  Label8: TLabel;
  Label9: TLabel;
//""""""""""""""""""""""""""""""""""""""""""""""//
  BitmapImage1: TBitmapImage;
  BitmapImage2: TBitmapImage;
  BitmapImage3: TBitmapImage;
//""""""""""""""""""""""""""""""""""""""""""""""//
  NewEdit1: TNewEdit;
  NewEdit2: TNewEdit;
  NewEdit3: TNewEdit;
  NewEdit4: TNewEdit;
//""""""""""""""""""""""""""""""""""""""""""""""//
  NewButton1: TNewButton;
begin
NewForm := CreateCustomForm;
NewForm.FormStyle := bsDialog;
NewForm.Position := poScreenCenter;
NewForm.Width := 460;
NewForm.Height := 275;
NewForm.Show;
NewForm.Caption:= 'Помочь проекту';
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
     Label1 := TLabel.Create(NewForm);//Label1
     Label1.Parent := NewForm;
     Label1.Caption := '__________________________________________________________';
     Label1.Font.Color := clWindowText;
     Label1.Font.Height := -13;
     Label1.Font.Name := 'Tahoma';
     Label1.Font.Style := [fsBold];
     Label1.ParentFont := False;
     Label1.Transparent := False;
     Label1.Left := ScaleX(0);
     Label1.Top := ScaleY(88);
     Label1.Width := ScaleX(464);
     Label1.Height := ScaleY(16);
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
     Label2 := TLabel.Create(NewForm); // Label2
     Label2.Parent := NewForm;
     Label2.Caption := '__________________________________________________________';
     Label2.Font.Color := clWindowText;
     Label2.Font.Height := -13;
     Label2.Font.Name := 'Tahoma';
     Label2.Font.Style := [fsBold, fsItalic];
     Label2.ParentFont := False;
     Label2.Transparent := False;
     Label2.Left := ScaleX(0);
     Label2.Top := ScaleY(11);
     Label2.Width := ScaleX(464);
     Label2.Height := ScaleY(16);
//""""""""""""""""""""""""""""""""""""""""""""""//
  begin
    Label3 := TLabel.Create(NewForm); //Label3.
    Label3.Parent := NewForm;
    Label3.Caption := 'Поддержать автора:';
    Label3.Font.Color := clWindowText;
    Label3.Font.Height := -15;
    Label3.Font.Name := 'Tahoma';
    Label3.Font.Style := [fsBold, fsItalic];
    Label3.ParentFont := False;
    Label3.Transparent := False;
    Label3.Left := ScaleX(144);
    Label3.Top := ScaleY(3);
    Label3.Width := ScaleX(163);
    Label3.Height := ScaleY(18);
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    Label4 := TLabel.Create(NewForm);  // Label4.
    Label4.Parent := NewForm;
    Label4.Caption := 'Webmoney кошилек:';
    Label4.Font.Color := clWindowText;
    Label4.Font.Height := -13;
    Label4.Font.Name := 'Tahoma';
    Label4.Font.Style := [fsBold];
    Label4.ParentFont := False;
    Label4.Transparent := False;
    Label4.Left := ScaleX(152);
    Label4.Top := ScaleY(32);
    Label4.Width := ScaleX(140);
    Label4.Height := ScaleY(16);
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    Label5 := TLabel.Create(NewForm); // Label5.
    Label5.Parent := NewForm;
    Label5.Caption := 'WMR:';
    Label5.Font.Color := clWindowText;
    Label5.Font.Height := -12;
    Label5.Font.Name := 'Tahoma';
    Label5.Font.Style := [fsBold, fsUnderline];
    Label5.ParentFont := False;
    Label5.Transparent := False;
    Label5.Left := ScaleX(32);
    Label5.Top := ScaleY(68);
    Label5.Width := ScaleX(36);
    Label5.Height := ScaleY(14);
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    Label6 := TLabel.Create(NewForm); // Label6.
    Label6.Parent := NewForm;
    Label6.Caption := 'WMZ:';
    Label6.Font.Color := clWindowText;
    Label6.Font.Height := -12;
    Label6.Font.Name := 'Tahoma';
    Label6.Font.Style := [fsBold, fsUnderline];
    Label6.ParentFont := False;
    Label6.Transparent := False;
    Label6.Left := ScaleX(264);
    Label6.Top := ScaleY(68);
    Label6.Width := ScaleX(34);
    Label6.Height := ScaleY(14);
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    Label7 := TLabel.Create(NewForm); // Label7.
    Label7.Parent := NewForm;
    Label7.Caption := 'Qiwi:';
    Label7.Font.Color := clWindowText;
    Label7.Font.Height := -12;
    Label7.Font.Name := 'Tahoma';
    Label7.Font.Style := [fsBold, fsUnderline];
    Label7.ParentFont := False;
    Label7.Transparent := False;
    Label7.Left := ScaleX(32);
    Label7.Top := ScaleY(122);
    Label7.Width := ScaleX(30);
    Label7.Height := ScaleY(14);
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    Label8 := TLabel.Create(NewForm);  // Label8.
    Label8.Parent := NewForm;
    Label8.Caption := 'Яндекс.деньги:';
    Label8.Font.Color := clWindowText;
    Label8.Font.Height := -12;
    Label8.Font.Name := 'Tahoma';
    Label8.Font.Style := [fsBold, fsUnderline];
    Label8.ParentFont := False;
    Label8.Transparent := False;
    Label8.Left := ScaleX(32);
    Label8.Top := ScaleY(177);
    Label8.Width := ScaleX(98);
    Label8.Height := ScaleY(28);
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    Label9 := TLabel.Create(NewForm); // Label9.
    Label9.Parent := NewForm;
    Label9.Caption := '__________________________________________________________';
    Label9.Font.Color := clWindowText;
    Label9.Font.Height := -13;
    Label9.Font.Name := 'Tahoma';
    Label9.Font.Style := [fsBold];
    Label9.ParentFont := False;
    Label9.Transparent := False;
    Label9.Left := ScaleX(0);
    Label9.Top := ScaleY(200);
    Label9.Width := ScaleX(464);
    Label9.Height := ScaleY(16);
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    BitmapImage1 := TBitmapImage.Create(NewForm); // BitmapImage1.
    BitmapImage1.Parent := NewForm;
    BitmapImage1.Left := ScaleX(192);
    BitmapImage1.Top := ScaleY(60);
    BitmapImage1.Width := ScaleX(48);
    BitmapImage1.Height := ScaleY(32);
    ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');
    BitmapImage1.Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp'));
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    BitmapImage2 := TBitmapImage.Create(NewForm); //BitmapImage2.
    BitmapImage2.Parent := NewForm;
    BitmapImage2.Left := ScaleX(336);
    BitmapImage2.Top := ScaleY(112);
    BitmapImage2.Width := ScaleX(48);
    BitmapImage2.Height := ScaleY(31);
    ExtractTemporaryFile('WizardForm.BitmapImage2.bmp');
    BitmapImage2.Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage2.bmp'));
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    BitmapImage3 := TBitmapImage.Create(NewForm); //BitmapImage3.
    BitmapImage3.Parent := NewForm;
    BitmapImage3.Left := ScaleX(336);
    BitmapImage3.Top := ScaleY(168);
    BitmapImage3.Width := ScaleX(48);
    BitmapImage3.Height := ScaleY(32);
    ExtractTemporaryFile('WizardForm.BitmapImage3.bmp');
    BitmapImage3.Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage3.bmp'));
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    NewEdit1 := TNewEdit.Create(NewForm); //NewEdit1.
    NewEdit1.Parent := NewForm;
    NewEdit1.Left := ScaleX(80);
    NewEdit1.Top := ScaleY(66);
    NewEdit1.Width := ScaleX(89);
    NewEdit1.Height := ScaleY(21);
    NewEdit1.Text := ' R916701849909';
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    NewEdit2 := TNewEdit.Create(NewForm); //NewEdit2.
    NewEdit2.Parent := NewForm;
    NewEdit2.Left := ScaleX(312);
    NewEdit2.Top := ScaleY(66);
    NewEdit2.Width := ScaleX(89);
    NewEdit2.Height := ScaleY(21);
    NewEdit2.Text := ' Z713896358532';
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    NewEdit3 := TNewEdit.Create(NewForm); //NewEdit3.
    NewEdit3.Parent := NewForm;
    NewEdit3.Left := ScaleX(168);
    NewEdit3.Top := ScaleY(120);
    NewEdit3.Width := ScaleX(104);
    NewEdit3.Height := ScaleY(21);
    NewEdit3.Text := '    +79045539422';
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    NewEdit4 := TNewEdit.Create(NewForm); //NewEdit4.
    NewEdit4.Parent := NewForm;
    NewEdit4.Left := ScaleX(168);
    NewEdit4.Top := ScaleY(175);
    NewEdit4.Width := ScaleX(104);
    NewEdit4.Height := ScaleY(21);
    NewEdit4.Text := ' 410011920888488';
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    NewButton1 := TNewButton.Create(NewForm); //NewButton1.
    NewButton1.Parent := NewForm;
    NewButton1.Left := ScaleX(190);
    NewButton1.Top := ScaleY(215);
    NewButton1.Width := ScaleX(75);
    NewButton1.Height := ScaleY(30);
    NewButton1.Caption := 'Закрыть';
    NewButton1.Font.Color := clWindowText;
    NewButton1.Font.Height := -12;
    NewButton1.Font.Name := '@Arial Unicode MS';
    NewButton1.ParentFont := False;
    NewButton1.OnClick := @NewFormClose;
//""""""""""""""""""""""""""""""""""""""""""""""//
end;end;end;end;end;end;end;end;end;
end;end;end;end;end;end;end;end;end;
//""""""""""""""""""""""""""""""""""""""""""""""//
procedure LogoOnClick1(Sender: TObject);
var ResCode: Integer;
begin
  ShellExec('', 'блаааа', '' , '', SW_SHOW, ewNoWait, ResCode)
end;
var
  BitmapImage1: TBitmapImage;
procedure RedesignWizardForm1;
var
  i: integer;
  BtnPanel: TPanel;
  BtnImage: TBitmapImage;
begin
  ExtractTemporaryFile('WizardForm.BitmapImage1.bmp')
  BtnPanel:=TPanel.Create(NewForm)
with BtnPanel do begin
   Left := ScaleX(192);
   Top := ScaleY(60);
   Width := ScaleX(48);
   Height := ScaleY(32);
  Cursor:=crHand
  OnClick:=@logoOnClick1
  Parent:=NewForm
end;
  BtnImage:=TBitmapImage.Create(NewForm)
with BtnImage do begin
  AutoSize:=True;
  Enabled:=False;
  Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\WizardForm.BitmapImage1.bmp')
  Parent:=BtnPanel
  end;
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
procedure LogoOnClick2(Sender: TObject);
var
ResCode: Integer;
begin
  ShellExec('', 'ууууууу', '' , '', SW_SHOW, ewNoWait, ResCode)
end;
procedure RedesignWizardForm2;
var
  BtnPanel: TPanel;
  BtnImage: TBitmapImage;
begin
  ExtractTemporaryFile('WizardForm.BitmapImage2.bmp')
  BtnPanel:=TPanel.Create(NewForm)
  with BtnPanel do
   begin
    Left := ScaleX(336);
    Top := ScaleY(112);
    Width := ScaleX(48);
    Height := ScaleY(31);
    Cursor:=crHand
    OnClick:=@logoOnClick2
    Parent:=NewForm
  end;
  BtnImage:=TBitmapImage.Create(NewForm)
with BtnImage do
begin
    AutoSize:=True;
    Enabled:=False;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\WizardForm.BitmapImage2.bmp')
    Parent:=BtnPanel
  end;
end;
//""""""""""""""""""""""""""""""""""""""""""""""//

procedure RedesignWizardForm3;
var
  BtnPanel: TPanel;
  BtnImage: TBitmapImage;
begin
  ExtractTemporaryFile('WizardForm.BitmapImage3.bmp')
  BtnPanel:=TPanel.Create(NewForm)
  with BtnPanel do
   begin
    Left := ScaleX(336);
    Top := ScaleY(168);
    Width := ScaleX(48);
    Height := ScaleY(32);
    Cursor:=crHand
    OnClick:=@logoOnClick3
    Parent:=NewForm
  end;
  BtnImage:=TBitmapImage.Create(NewForm)
with BtnImage do
begin
    AutoSize:=True;
    Enabled:=False;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\WizardForm.BitmapImage3.bmp')
    Parent:=BtnPanel
  end;
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
Procedure InitializeWizard();
begin
NewButton := TNewButton.Create(WizardForm);
NewButton.Parent := WizardForm;
NewButton.Left := ScaleX(208);
NewButton.Top := ScaleY(327);
NewButton.Width := ScaleX(27);
NewButton.Height := ScaleY(23);
NewButton.Caption := '?';
NewButton.OnClick := @CreateForm;
RedesignWizardForm1();
RedesignWizardForm2();
RedesignWizardForm3();
end;[/spoiler]

почему ссылки не работают?

блин в скрыть не могу,голова трищит

Edited November 27, 2014 by Ekspoint

Kotyarko_O · November 27, 2014

@Ekspoint, ты из Индии?

"Ну ладно ещё это.."

  Label1: TLabel;
  Label2: TLabel;
  Label3: TLabel;
  Label4: TLabel;
  Label5: TLabel;
  Label6: TLabel;
  Label7: TLabel;
  Label8: TLabel;
  Label9: TLabel;

"Ну ок, и это можно простить.."

//""""""""""""""""""""""""""""""""""""""""""""""//
//""""""""""""""""""""""""""""""""""""""""""""""//

"Но конструкция построения кода, в которой ЭТО:"

end;end;end;end;end;end;end;end;end;
end;end;end;end;end;end;end;end;end;

- уже слишком.

Извиняюсь, конечно, но прибомбило.

почему ссылки не работают?

А почему программа должна воспринимать это:

'блаааа'
'ууууууу'

как ссылки?

'Вот так, хотя бы, должно быть, а не то нечто, что кинул ты.'

[Code]
Var
 NewForm: TSetupForm;
 NewButton: TNewButton;
 BitmapImage1: TBitmapImage;

//""""""""""""""""""""""""""""""""""""""""""""""//
Procedure NewFormClose(Sender: TObject);
begin
 NewForm.Close;
end;

//""""""""""""""""""""""""""""""""""""""""""""""//
Procedure CreateForm(Sender: TObject);
var
  Label1, Label2, Label3, Label4, Label5,
  Label6, Label7, Label8, Label9: TLabel;
  
  BitmapImage1, BitmapImage2, BitmapImage3: TBitmapImage;

  NewEdit1, NewEdit2, NewEdit3, NewEdit4: TNewEdit;

  NewButton1: TNewButton;
begin
NewForm := CreateCustomForm;
NewForm.FormStyle := bsDialog;
NewForm.Position := poScreenCenter;
NewForm.Width := 460;
NewForm.Height := 275;
NewForm.Show;
NewForm.Caption:= 'Помочь проекту';
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
     Label1 := TLabel.Create(NewForm);//Label1
     Label1.Parent := NewForm;
     Label1.Caption := '__________________________________________________________';
     Label1.Font.Color := clWindowText;
     Label1.Font.Height := -13;
     Label1.Font.Name := 'Tahoma';
     Label1.Font.Style := [fsBold];
     Label1.ParentFont := False;
     Label1.Transparent := False;
     Label1.Left := ScaleX(0);
     Label1.Top := ScaleY(88);
     Label1.Width := ScaleX(464);
     Label1.Height := ScaleY(16);
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
     Label2 := TLabel.Create(NewForm); // Label2
     Label2.Parent := NewForm;
     Label2.Caption := '__________________________________________________________';
     Label2.Font.Color := clWindowText;
     Label2.Font.Height := -13;
     Label2.Font.Name := 'Tahoma';
     Label2.Font.Style := [fsBold, fsItalic];
     Label2.ParentFont := False;
     Label2.Transparent := False;
     Label2.Left := ScaleX(0);
     Label2.Top := ScaleY(11);
     Label2.Width := ScaleX(464);
     Label2.Height := ScaleY(16);
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
  begin
    Label3 := TLabel.Create(NewForm); //Label3.
    Label3.Parent := NewForm;
    Label3.Caption := 'Поддержать автора:';
    Label3.Font.Color := clWindowText;
    Label3.Font.Height := -15;
    Label3.Font.Name := 'Tahoma';
    Label3.Font.Style := [fsBold, fsItalic];
    Label3.ParentFont := False;
    Label3.Transparent := False;
    Label3.Left := ScaleX(144);
    Label3.Top := ScaleY(3);
    Label3.Width := ScaleX(163);
    Label3.Height := ScaleY(18);
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    Label4 := TLabel.Create(NewForm);  // Label4.
    Label4.Parent := NewForm;
    Label4.Caption := 'Webmoney кошилек:';
    Label4.Font.Color := clWindowText;
    Label4.Font.Height := -13;
    Label4.Font.Name := 'Tahoma';
    Label4.Font.Style := [fsBold];
    Label4.ParentFont := False;
    Label4.Transparent := False;
    Label4.Left := ScaleX(152);
    Label4.Top := ScaleY(32);
    Label4.Width := ScaleX(140);
    Label4.Height := ScaleY(16);
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    Label5 := TLabel.Create(NewForm); // Label5.
    Label5.Parent := NewForm;
    Label5.Caption := 'WMR:';
    Label5.Font.Color := clWindowText;
    Label5.Font.Height := -12;
    Label5.Font.Name := 'Tahoma';
    Label5.Font.Style := [fsBold, fsUnderline];
    Label5.ParentFont := False;
    Label5.Transparent := False;
    Label5.Left := ScaleX(32);
    Label5.Top := ScaleY(68);
    Label5.Width := ScaleX(36);
    Label5.Height := ScaleY(14);
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    Label6 := TLabel.Create(NewForm); // Label6.
    Label6.Parent := NewForm;
    Label6.Caption := 'WMZ:';
    Label6.Font.Color := clWindowText;
    Label6.Font.Height := -12;
    Label6.Font.Name := 'Tahoma';
    Label6.Font.Style := [fsBold, fsUnderline];
    Label6.ParentFont := False;
    Label6.Transparent := False;
    Label6.Left := ScaleX(264);
    Label6.Top := ScaleY(68);
    Label6.Width := ScaleX(34);
    Label6.Height := ScaleY(14);
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    Label7 := TLabel.Create(NewForm); // Label7.
    Label7.Parent := NewForm;
    Label7.Caption := 'Qiwi:';
    Label7.Font.Color := clWindowText;
    Label7.Font.Height := -12;
    Label7.Font.Name := 'Tahoma';
    Label7.Font.Style := [fsBold, fsUnderline];
    Label7.ParentFont := False;
    Label7.Transparent := False;
    Label7.Left := ScaleX(32);
    Label7.Top := ScaleY(122);
    Label7.Width := ScaleX(30);
    Label7.Height := ScaleY(14);
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    Label8 := TLabel.Create(NewForm);  // Label8.
    Label8.Parent := NewForm;
    Label8.Caption := 'Яндекс.деньги:';
    Label8.Font.Color := clWindowText;
    Label8.Font.Height := -12;
    Label8.Font.Name := 'Tahoma';
    Label8.Font.Style := [fsBold, fsUnderline];
    Label8.ParentFont := False;
    Label8.Transparent := False;
    Label8.Left := ScaleX(32);
    Label8.Top := ScaleY(177);
    Label8.Width := ScaleX(98);
    Label8.Height := ScaleY(28);
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    Label9 := TLabel.Create(NewForm); // Label9.
    Label9.Parent := NewForm;
    Label9.Caption := '__________________________________________________________';
    Label9.Font.Color := clWindowText;
    Label9.Font.Height := -13;
    Label9.Font.Name := 'Tahoma';
    Label9.Font.Style := [fsBold];
    Label9.ParentFont := False;
    Label9.Transparent := False;
    Label9.Left := ScaleX(0);
    Label9.Top := ScaleY(200);
    Label9.Width := ScaleX(464);
    Label9.Height := ScaleY(16);
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    BitmapImage1 := TBitmapImage.Create(NewForm); // BitmapImage1.
    BitmapImage1.Parent := NewForm;
    BitmapImage1.Left := ScaleX(192);
    BitmapImage1.Top := ScaleY(60);
    BitmapImage1.Width := ScaleX(48);
    BitmapImage1.Height := ScaleY(32);
    ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');
    BitmapImage1.Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp'));
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    BitmapImage2 := TBitmapImage.Create(NewForm); //BitmapImage2.
    BitmapImage2.Parent := NewForm;
    BitmapImage2.Left := ScaleX(336);
    BitmapImage2.Top := ScaleY(112);
    BitmapImage2.Width := ScaleX(48);
    BitmapImage2.Height := ScaleY(31);
    ExtractTemporaryFile('WizardForm.BitmapImage2.bmp');
    BitmapImage2.Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage2.bmp'));
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    BitmapImage3 := TBitmapImage.Create(NewForm); //BitmapImage3.
    BitmapImage3.Parent := NewForm;
    BitmapImage3.Left := ScaleX(336);
    BitmapImage3.Top := ScaleY(168);
    BitmapImage3.Width := ScaleX(48);
    BitmapImage3.Height := ScaleY(32);
    ExtractTemporaryFile('WizardForm.BitmapImage3.bmp');
    BitmapImage3.Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage3.bmp'));
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    NewEdit1 := TNewEdit.Create(NewForm); //NewEdit1.
    NewEdit1.Parent := NewForm;
    NewEdit1.Left := ScaleX(80);
    NewEdit1.Top := ScaleY(66);
    NewEdit1.Width := ScaleX(89);
    NewEdit1.Height := ScaleY(21);
    NewEdit1.Text := ' R916701849909';
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    NewEdit2 := TNewEdit.Create(NewForm); //NewEdit2.
    NewEdit2.Parent := NewForm;
    NewEdit2.Left := ScaleX(312);
    NewEdit2.Top := ScaleY(66);
    NewEdit2.Width := ScaleX(89);
    NewEdit2.Height := ScaleY(21);
    NewEdit2.Text := ' Z713896358532';
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    NewEdit3 := TNewEdit.Create(NewForm); //NewEdit3.
    NewEdit3.Parent := NewForm;
    NewEdit3.Left := ScaleX(168);
    NewEdit3.Top := ScaleY(120);
    NewEdit3.Width := ScaleX(104);
    NewEdit3.Height := ScaleY(21);
    NewEdit3.Text := '    +79045539422';
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    NewEdit4 := TNewEdit.Create(NewForm); //NewEdit4.
    NewEdit4.Parent := NewForm;
    NewEdit4.Left := ScaleX(168);
    NewEdit4.Top := ScaleY(175);
    NewEdit4.Width := ScaleX(104);
    NewEdit4.Height := ScaleY(21);
    NewEdit4.Text := ' 410011920888488';
end;
//""""""""""""""""""""""""""""""""""""""""""""""//
begin
    NewButton1 := TNewButton.Create(NewForm); //NewButton1.
    NewButton1.Parent := NewForm;
    NewButton1.Left := ScaleX(190);
    NewButton1.Top := ScaleY(215);
    NewButton1.Width := ScaleX(75);
    NewButton1.Height := ScaleY(30);
    NewButton1.Caption := 'Закрыть';
    NewButton1.Font.Color := clWindowText;
    NewButton1.Font.Height := -12;
    NewButton1.Font.Name := '@Arial Unicode MS';
    NewButton1.ParentFont := False;
    NewButton1.OnClick := @NewFormClose;
end;
end;

//""""""""""""""""""""""""""""""""""""""""""""""//
procedure LogoOnClick1(Sender: TObject);
var
 ResCode: Integer;
begin
  ShellExec('', 'блаааа', '' , '', SW_SHOW, ewNoWait, ResCode)
end;

procedure RedesignWizardForm1;
var
  i: integer;
  BtnPanel: TPanel;
  BtnImage: TBitmapImage;
begin
  ExtractTemporaryFile('WizardForm.BitmapImage1.bmp')
  BtnPanel:=TPanel.Create(NewForm)
with BtnPanel do begin
   Left := ScaleX(192);
   Top := ScaleY(60);
   Width := ScaleX(48);
   Height := ScaleY(32);
  Cursor:=crHand
  OnClick:=@logoOnClick1
  Parent:=NewForm
end;
  BtnImage:=TBitmapImage.Create(NewForm)
with BtnImage do begin
  AutoSize:=True;
  Enabled:=False;
  Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\WizardForm.BitmapImage1.bmp')
  Parent:=BtnPanel
  end;
end;

//""""""""""""""""""""""""""""""""""""""""""""""//
procedure LogoOnClick2(Sender: TObject);
var
ResCode: Integer;
begin
  ShellExec('', 'ууууууу', '' , '', SW_SHOW, ewNoWait, ResCode)
end;

procedure RedesignWizardForm2;
var
  BtnPanel: TPanel;
  BtnImage: TBitmapImage;
begin
  ExtractTemporaryFile('WizardForm.BitmapImage2.bmp')
  BtnPanel:=TPanel.Create(NewForm)
  with BtnPanel do
   begin
    Left := ScaleX(336);
    Top := ScaleY(112);
    Width := ScaleX(48);
    Height := ScaleY(31);
    Cursor:=crHand
    OnClick:=@logoOnClick2
    Parent:=NewForm
  end;
  BtnImage:=TBitmapImage.Create(NewForm)
with BtnImage do
begin
    AutoSize:=True;
    Enabled:=False;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\WizardForm.BitmapImage2.bmp')
    Parent:=BtnPanel
  end;
end;
//""""""""""""""""""""""""""""""""""""""""""""""//

procedure RedesignWizardForm3;
var
  BtnPanel: TPanel;
  BtnImage: TBitmapImage;
begin
  ExtractTemporaryFile('WizardForm.BitmapImage3.bmp')
  BtnPanel:=TPanel.Create(NewForm)
  with BtnPanel do
   begin
    Left := ScaleX(336);
    Top := ScaleY(168);
    Width := ScaleX(48);
    Height := ScaleY(32);
    Cursor:=crHand
    OnClick:=@logoOnClick3
    Parent:=NewForm
  end;
  BtnImage:=TBitmapImage.Create(NewForm)
with BtnImage do
begin
    AutoSize:=True;
    Enabled:=False;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\WizardForm.BitmapImage3.bmp')
    Parent:=BtnPanel
  end;
end;

//""""""""""""""""""""""""""""""""""""""""""""""//
Procedure InitializeWizard();
begin
NewButton := TNewButton.Create(WizardForm);
NewButton.Parent := WizardForm;
NewButton.Left := ScaleX(208);
NewButton.Top := ScaleY(327);
NewButton.Width := ScaleX(27);
NewButton.Height := ScaleY(23);
NewButton.Caption := '?';
NewButton.OnClick := @CreateForm;
RedesignWizardForm1();
RedesignWizardForm2();
RedesignWizardForm3();
end;

блин в скрыть не могу,голова трищит

теги

вынеси из-под тегов

В режиме BB-кодов редактора сообщений.

Edited November 27, 2014 by Kotyarko_O

AtotIK · November 27, 2014

проекту

кошилек

Да за такое ни пенни не получите. Ппц, я в шоке.

StranikS_Scan · November 27, 2014

Да за такое ни пенни не получите. Ппц, я в шоке.

Это пацанкий дворовой мод-пак, ты фишку не сечешь, доступный уровень чё )))))

Andrew_Dark · November 27, 2014

Это пацанкий дворовой мод-пак, ты фишку не сечешь, доступный уровень чё )))))

Скинь ссылку на ваш клановый, я поржу тоже;)

Кстати, вопрос:

Есть страница, фоном которой является картинка в png формате.

На этой картинке размещёно название чекбоксов для бекапа, сами чекбоксы отрисовываются скриптом из примеров в этой теме, вопрос состоит в том, как убрать фоновую часть, которая была изначально фоном для текста, тоесть чтобы чекбоксы остались активными на определённой странице, и текста возле них небыло, так как он уже написан на ранее приготовленной фоновой странице? Вот изначальный код бекапа:

#include "SHFileOperation.iss"
[code]
var
  DarksoulBox:TListBox;
  DeleteRadioButton, MoveRadioButton, NoneRadioButton: TNewRadioButton;
const
  DarksoulDescText =
    'Во избежание проблем  и конфликтов между модификациями, рекомендуется удалить все установленные на данный момент модификации клиента.';
  DeleteDescText =
    'Установщик очистит папку res_mods и установит новые модификации.';
  MoveDescText =
    'Установщик сделает резервную копию всех файлов в папке res_mods.';
  NoneDescText =
    'Установщик установит новые моды поверх старых.';
function BackupCheck_1(): Boolean;
var
  Darksoul, BackupDescLabel, DeleteDescLabel, MoveDescLabel, NoneDescLabel: TLabel;
begin
  Darksoul:=TLabel.Create(WizardForm.SelectDirPage);
  Darksoul.Parent:=WizardForm.SelectDirPage;
  Darksoul.Left:=ScaleX(5);
  Darksoul.Top:=ScaleY(145);
  Darksoul.Width:=ScaleX(715);
  Darksoul.Height:=ScaleY(45);
  Darksoul.AutoSize:=False;
  Darksoul.Wordwrap:=True;
  Darksoul.Caption:=DarksoulDescText;
  Darksoul.Font.Style:=[fsBold];
  Darksoul.Font.Color:=clBlack;
  Darksoul.Font.Size:=9;
  //////////hfvrf djrheu//////
  DarksoulBox:=TListBox.Create(WizardForm.SelectDirPage);
  DarksoulBox.Parent:=WizardForm;
  DarksoulBox.Left:=ScaleX(0);
  DarksoulBox.Top:=ScaleY(210);
  DarksoulBox.Width:=ScaleX(715);
  DarksoulBox.Height:=ScaleY(300);
  DarksoulBox.Color:=$e9e9e9;
  /////////rjytw hfvrb///////////
  /////////////////*****конец описания вверху бекапа******////////////////
  DeleteRadioButton:=TNewRadioButton.Create(WizardForm.SelectDirPage);
  DeleteRadioButton.Parent:=WizardForm;
  DeleteRadioButton.Checked:=True;
  DeleteRadioButton.Top:=ScaleY(220);
  DeleteRadioButton.Left:=ScaleX(5);
  DeleteRadioButton.Width:=ScaleX(400);
  DeleteRadioButton.Font.Style:=[fsBold];
  DeleteRadioButton.Font.Size:=9;
  DeleteRadioButton.Caption:='Удалить моды'
  DeleteDescLabel:=TLabel.Create(DarksoulBox);
  DeleteDescLabel.Parent:=DarksoulBox;
  DeleteDescLabel.Left:=ScaleX(15);
  DeleteDescLabel.Top:=ScaleY(40);
  DeleteDescLabel.Width:=ScaleX(400);
  DeleteDescLabel.Height:=ScaleY(20);
  DeleteDescLabel.AutoSize:=False;
  DeleteDescLabel.Wordwrap:=True;
  DeleteDescLabel.Caption:=DeleteDescText;
  DeleteDescLabel.Transparent:=True;
  MoveRadioButton:=TNewRadioButton.Create(WizardForm.SelectDirPage);
  MoveRadioButton.Parent:=WizardForm;
  MoveRadioButton.Checked:=False;
  MoveRadioButton.Top:=ScaleY(290);
  MoveRadioButton.Left:=ScaleX(5);
  MoveRadioButton.Width:=ScaleX(400);
  MoveRadioButton.Font.Style:=[fsBold];
  MoveRadioButton.Font.Size:=9;
  MoveRadioButton.Caption:='Сделать резервную копию всех модов'
  MoveDescLabel:=TLabel.Create(DarksoulBox);
  MoveDescLabel.Parent:=DarksoulBox;
  MoveDescLabel.Left:=ScaleX(15);
  MoveDescLabel.Top:=ScaleY(115);
  MoveDescLabel.Width:=ScaleX(400);
  MoveDescLabel.Height:=ScaleY(40);
  MoveDescLabel.AutoSize:=False;
  MoveDescLabel.Wordwrap:=True;
  MoveDescLabel.Caption:=MoveDescText;
  MoveDescLabel.Transparent:=True;
  NoneRadioButton:=TNewRadioButton.Create(WizardForm.SelectDirPage);
  NoneRadioButton.Parent:=WizardForm;
  NoneRadioButton.Checked:=False;
  NoneRadioButton.Top:=ScaleY(365);
  NoneRadioButton.Left:=ScaleX(5);
  NoneRadioButton.Width:=ScaleX(400);
  NoneRadioButton.Font.Style:=[fsBold];
  NoneRadioButton.Font.Size:=9;
  NoneRadioButton.Caption:='Ничего не трогать'
  NoneDescLabel:=TLabel.Create(DarksoulBox);
  NoneDescLabel.Parent:=DarksoulBox;
  NoneDescLabel.Left:=ScaleX(15);
  NoneDescLabel.Top:=ScaleY(185);
  NoneDescLabel.Width:=ScaleX(400);
  NoneDescLabel.Height:=ScaleY(40);
  NoneDescLabel.AutoSize:=False;
  NoneDescLabel.Wordwrap:=True;
  NoneDescLabel.Caption:=NoneDescText;
  NoneDescLabel.Transparent:=True;
  end;
function BackupCheck_2(): Boolean;
begin
  If DeleteRadioButton.Checked then
begin
  DelTree(ExpandConstant('{app}\res_mods'), True, True, True);
  CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));
end;
end;
function BackupCheck_3(): Boolean;
begin
  If MoveRadioButton.Checked then
begin
  MoveDir(ExpandConstant('{app}\res_mods\{#Patch}\'),ExpandConstant('{app}\Darksoul Modpack\Backup\{#Patch}'));
  MoveDir(ExpandConstant('{app}\res_mods\xvm\'),ExpandConstant('{app}\Darksoul Modpack\Backup\xvm'));
  CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));
end;
end;
procedure InitializeWizard1();
begin
  BackupCheck_1();
end;

P.S. BackupCheck_2(); и BackupCheck_3(); прописаны в Curstep, если что.

Edited November 27, 2014 by Darksoul

Ekspoint · November 27, 2014

почему когда я перехожу по ссылке мое окно остается на окне браузера,а не исчезает за окно браузера?

Kotyarko_O · November 27, 2014

мое окно остается на окне браузера

Созданная форма?

'Вот с этим поиграйся'

Не уверен, но может помочь.

Как вариант, ещё в процедуру перехода дописать NewForm.Hide.

Edited November 27, 2014 by Kotyarko_O

StranikS_Scan · November 27, 2014

Скинь ссылку на ваш клановый, я поржу тоже;)

Головой кирпичи ловишь что ли или месячные начались? Причем тут "скинь ссылку" и причем тут я и "ваш клановый модпак" и уж тем более не понятно над чем ты там через мою голову "рожать" собрался? Если у тебя проблемы с кланом или еще с чем-то/кем-то там, то и пиши по соответствующему адресу, я тут не причем...

Edited November 27, 2014 by StranikS_Scan

Ekspoint · November 27, 2014

Созданная форма?

'Вот с этим поиграйся'

28.11.jpg

Не уверен, но может помочь.

Как вариант, ещё в процедуру перехода дописать NewForm.Hide.

bsNone

подошел,спасиб

Ekspoint · November 28, 2014

как сделать чекбокс прозрачным?

Edited November 28, 2014 by Ekspoint

Kotyarko_O · November 28, 2014

как сделать чекбокс прозрачным?

.Transparent

StranikS_Scan · November 28, 2014

как сделать чекбокс прозрачным?

Это для чего такое нужно-то?

Kotyarko_O · November 28, 2014

Это для чего такое нужно-то?

Тут имеется ввиду не сам чекбокс, а его собственный фон.

Например, если цвет фона изменён от стандартного. Или фон - изображение.

Edited November 28, 2014 by Kotyarko_O

Ekspoint · November 28, 2014

.Transparent

было бы так не спросил,inoo ошибку выдает

[code]
var
  NewCheckBox1: TNewCheckBox;procedure RedesignWizardForm;
begin
  { NewCheckBox1 }
  NewCheckBox1 := TNewCheckBox.Create(WizardForm);
  with NewCheckBox1 do
  begin
    Name := 'NewCheckBox1';
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(216);
    Top := ScaleY(152);
    Width := ScaleX(97);
    Height := ScaleY(17);
    Transparent:=True; //-ошибка
  end;  
{ NewRadioButton1 }
  NewRadioButton1 := TNewRadioButton.Create(WizardForm);
  with NewRadioButton1 do
  begin
    Name := 'NewRadioButton1';
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(312);
    Top := ScaleY(168);
    Width := ScaleX(113);
    Height := ScaleY(17);
    Transparent:=True; //-ошибка  
  end;

  NewCheckBox1.TabOrder := 2;
  NewRadioButton1.TabOrder := 3;

end;
procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

Edited November 28, 2014 by Ekspoint

Sign In

Создание инсталляторов для модпаков на базе Inno Setup

Recommended Posts

Link to comment

Short link

Share on other sites

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

EvilAlex

Neverhood

TornadoCat

Posted Images

Link to comment

Short link

Share on other sites

Link to comment

Short link

Share on other sites

Link to comment

Short link

Share on other sites

Link to comment

Short link

Share on other sites

Link to comment

Short link

Share on other sites

Link to comment

Short link

Share on other sites

Link to comment

Short link

Share on other sites

Link to comment

Short link

Share on other sites

Link to comment

Short link

Share on other sites

Link to comment

Short link

Share on other sites

Link to comment

Short link

Share on other sites

Link to comment

Short link

Share on other sites

Link to comment

Short link

Share on other sites

Link to comment

Short link

Share on other sites

Link to comment

Short link

Share on other sites

Link to comment

Short link

Share on other sites

Link to comment

Short link

Share on other sites

Link to comment

Short link

Share on other sites

Link to comment

Short link

Share on other sites

Join the conversation

Recently Browsing 0 members