Jump to content
Korean Random
EvilAlex

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

Recommended Posts

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

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

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

Edited by Kotyarko_O

Share this post


Link to post

Short link
Share on other sites

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

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

ага

Share this post


Link to post

Short link
Share on other sites

???

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

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

Share this post


Link to post

Short link
Share on other sites

 

 

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

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

Share this post


Link to post

Short link
Share on other sites

как изменить формат  картинки на 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;

Share this post


Link to post

Short link
Share on other sites

 

 

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

Share this post


Link to post

Short link
Share on other sites

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

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

Share this post


Link to post

Short link
Share on other sites

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

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

Руками.

и как же

Share this post


Link to post

Short link
Share on other sites
желательно отдельно

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

 

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

Edited by Kotyarko_O

Share this post


Link to post

Short link
Share on other sites

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

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

Share this post


Link to post

Short link
Share on other sites

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

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

Share this post


Link to post

Short link
Share on other sites

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

ок

Share this post


Link to post

Short link
Share on other sites

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

InnoTools Downloader, Inno Download Plugin.

Edited by Kotyarko_O

Share this post


Link to post

Short link
Share on other sites

 

 

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

 

 

 

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

Share this post


Link to post

Short link
Share on other sites

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

 

 

 

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

 

Спасибо!

Share this post


Link to post

Short link
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...