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

[Kotyarko_O]

как переместить в новое окно по кнопке?

Называй вещи своими именами. В созданную форму.

Берёшь и перемещаешь. Все элементы от визарда удаляешь (т.к. на форме их нет), а парентам назначаешь новое место.

Edited December 9, 2014 by Kotyarko_O

[Ekspoint]

Называй вещи своими именами. В созданную форму.

Берёшь и перемещаешь. Все элементы от визарда удаляешь (т.к. на форме их нет), а парентам назначаешь новое место.

ага

[woole]

???

На твоих скринах вместо кавычек везде << и >>, которые выглядят отвратительно.

Я безвозмездно подарил тебе нормальные кавычки, которые ты можешь спокойной копировать в скрипт

[MEDNIKs]

 

 

На твоих скринах вместо кавычек везде << и >>, которые выглядят отвратительно. Я безвозмездно подарил тебе нормальные кавычки, которые ты можешь спокойной копировать в скрипт

Спасибо,а я чет даже и внимание не обращал! 

[Ekspoint]

как изменить формат  картинки на ipg в этом коде+ ботву к нему?

можно ли так вообще сделать для этого кода?

procedure RedesignWizardForm1;
begin
  with WizardForm do
  begin
    AutoScroll := False;
  end;
end;
const
    UNDEF_INDEX = -777;
function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall';
var
    InfoPic: TBitmapImage;
    LastIndex: Integer;
    TempPath: String;
procedure ShowPicHint(const PicFilePath: String);
var
    pt: TPoint;
begin
    if not GetCursorPos(pt) then Exit;
    InfoPic.Bitmap.LoadFromFile(PicFilePath);
    InfoPic.Left := ScaleX(490);   // размер картинки  323X279
    InfoPic.Top := ScaleY(28);
    InfoPic.Width := ScaleX(323);
    InfoPic.Height := ScaleY(279);
    InfoPic.Show;
end;
procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);
var
    UndefPic: String;
begin
    if Index = -1 then Exit;
    if Index = LastIndex then Exit;
    try
        case TNewCheckListBox(Sender).ItemCaption[Index] of
//-----------------------КАРТИНКИ----------------------------\\
'OverCross от zayaz': UndefPic := 'OverCross от zayaz.bmp';
'Корейский прицел (Deegie Sights)': UndefPic := 'Корейский прицел (Deegie Sights).bmp';
'Прицел J1mB0': UndefPic := 'Прицел J1mB0.bmp';
'Прицел от Орешкина (Зеленый)': UndefPic := 'Прицел от Орешкина (Зеленый).bmp';
'Прицел от Орешкина (Синий)': UndefPic := 'Прицел от Орешкина (Синий).bmp';
//************************************************************\\
        else
            begin
                LastIndex := UNDEF_INDEX;
                InfoPic.Hide;
                Exit;
            end;
        end;
        if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic);
        ShowPicHint(TempPath + UndefPic);
    finally
        LastIndex := Index;
    end;
end;
procedure CompOnMouseLeave(Sender: TObject);
begin
    InfoPic.Hide;
    LastIndex := -1;
end;
procedure InitializeWizard1();
begin
    with WizardForm.ComponentsList do    //рамка компонентов
    begin
    Top := ScaleY(26);
    Width := ScaleX(473);
    Height := ScaleY(284);
    Offset := 0;
    WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove;
    WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave;
    TempPath := AddBackslash(ExpandConstant('{tmp}'));
     LastIndex := UNDEF_INDEX;
     end;
    with TBevel.Create(WizardForm) do
    begin
      Parent := WizardForm.SelectComponentsPage;
      Left := ScaleX(488);  //рамка картинки
      Top := ScaleY(26);
      Width := ScaleX(329);
      Height := ScaleY(284);
      Shape := bsFrame;
    end;
    InfoPic := TBitmapImage.Create(WizardForm)
    with InfoPic do
    begin
    Parent := WizardForm.SelectComponentsPage;
    Left := ScaleX(490);
    Top := ScaleY(28);
    Width := ScaleX(323);
    Height := ScaleY(279);
    AutoSize := true;
    ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp'));
    end;
end;

[Ekspoint]

почему ошибка 

 

BeforeInstall: AddToMemo UpdateFile;

[Kotyarko_O]

 

 

почему ошибка

Потому что разрешается только одну функцию\процедуру туда пихать.

[Ekspoint]

Потому что разрешается только одну функцию\процедуру туда пихать.

а как вместе объединить?

[Kotyarko_O]

а как вместе объединить?

Руками.

[AtotIK]

Засунуть одну в другую как вариант.

[Ekspoint]

Засунуть одну в другую как вариант.

можно,но желательно отдельно 

Руками.

и как же

[Kotyarko_O]

желательно отдельно

Какая разница?

 

Функцию\процедуру можно выполнить из-под другой функции\процедуры.

Edited December 12, 2014 by Kotyarko_O

[Ekspoint]

Какая разница?

мне так проще будет,одна чать для бекапа а другая лог установки 

[Kotyarko_O]

мне так проще будет,одна чать для бекапа а другая лог установки 

И что, в чём-то одном это будет тяжело отличить? Там кода на пару строк.. что одного, что второго.

[Ekspoint]

И что, в чём-то одном это будет тяжело отличить? Там кода на пару строк.. что одного, что второго.

ок

[Prost]

А как сделать что бы файл например качался из интернета?

[Kotyarko_O]

А как сделать что бы файл например качался из интернета?

InnoTools Downloader, Inno Download Plugin.

Edited December 13, 2014 by Kotyarko_O

[MEDNIKs]

@Kotyarko_O,Будь добр,растолкуй за что отвечает procedure CreateWizardImage, а за ,что  procedure RedesignWizardForm ?

[Kotyarko_O]

 

 

procedure RedesignWizardForm

Это название по-умолчанию присваивает Редактор форм. Вместо "RedesignWizardForm" может быть (почти) любое слово\группа слов. Эта процедура для перестроения некоторых элементов визарда (где-то что-то увеличить, убрать, уменьшить; из уже существующих элементов).

 

 

 

procedure CreateWizardImage

С названием та же история, только пошло с примеров ботвы. Процедура создания элементов с помощью ботвы.

[MEDNIKs]

Это название по-умолчанию присваивает Редактор форм. Вместо "RedesignWizardForm" может быть (почти) любое слово\группа слов. Эта процедура для перестроения некоторых элементов визарда (где-то что-то увеличить, убрать, уменьшить; из уже существующих элементов).

 

 

 

С названием та же история, только пошло с примеров ботвы. Процедура создания элементов с помощью ботвы.

 

Спасибо!