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

[Kotyarko_O]

@Darksoul, понял.. но иконка там располагается нормально. Может казаться неровно из-за скина (как на синем; на красном же нормально). А скин не понравился именно красный.

[Andrew_Dark]

на всех скинах так иконка, вопрос как её передвинуть, я вообще не вижу чтобы в скине её какой то параметр трогал... А как кнопки выровнять? они все 3 на одном рисунке в фотошопе открываются, а я в нём хуже чем рак...

[AtotIK]

Вырубить музыку

Чего-чего? Осталась всё по понятиям расписать для реальных пацанов. Воздержитесь от жаргонизмов.

 

З.Ы. Проверенный временем скин без вырвиглазсвистелокиперделок.

Skin.zip

Edited June 9, 2014 by AtotIK

[Kotyarko_O]

А как кнопки выровнять? они все 3 на одном рисунке в фотошопе открываются, а я в нём хуже чем рак...

Если ты про кнопки: "далее, назад, отменить", то при чём тут вообще фотошоп?

WizardForm.NextButton.Left:=WizardForm.NextButton.Left - 100500 (или сколько там тебе надо);

Edited June 9, 2014 by Kotyarko_O

[Andrew_Dark]

о, спс, а насчёт вырубить- перейменовал на отключить. А как сделать ссылку спец шрифтом и цветом, чтобы можно было перейти???

[Kotyarko_O]

А как сделать ссылку спец шрифтом и цветом, чтобы можно было перейти???

'Код'

[Code]
var
MouseLabel,SiteLabel: TLabel;

procedure SiteLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://www.koreanrandom.com/forum/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;

procedure SiteLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clRed
end;

procedure SiteLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clBlue
end;

procedure SiteLabelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clGreen
end;

procedure SiteLabelMouseMove2(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clBlue
end;

procedure InitializeWizard();
begin
MouseLabel:=TLabel.Create(WizardForm)
MouseLabel.Width:=WizardForm.Width
MouseLabel.Height:=WizardForm.Height
MouseLabel.Autosize:=False
MouseLabel.Transparent:=True
MouseLabel.OnMouseMove:=@SiteLabelMouseMove2
MouseLabel.Parent:=WizardForm

SiteLabel:=TLabel.Create(WizardForm)
SiteLabel.Left:=10
SiteLabel.Top:=330
SiteLabel.Cursor:=crHand
SiteLabel.Font.Color:=clBlue
SiteLabel.Caption:='Текст самой ссылки'
SiteLabel.OnClick:=@SiteLabelOnClick
SiteLabel.OnMouseDown:=@SiteLabelMouseDown
SiteLabel.OnMouseUp:=@SiteLabelMouseUp
SiteLabel.OnMouseMove:=@SiteLabelMouseMove
SiteLabel.Parent:=WizardForm
end;

Edited June 9, 2014 by Kotyarko_O

[Andrew_Dark]

'Код'

[code]
var
MouseLabel,SiteLabel: TLabel;

procedure SiteLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://www.koreanrandom.com/forum/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;

procedure SiteLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clRed
end;

procedure SiteLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clBlue
end;

procedure SiteLabelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clGreen
end;

procedure SiteLabelMouseMove2(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clBlue
end;

procedure InitializeWizard();
begin
MouseLabel:=TLabel.Create(WizardForm)
MouseLabel.Width:=WizardForm.Width
MouseLabel.Height:=WizardForm.Height
MouseLabel.Autosize:=False
MouseLabel.Transparent:=True
MouseLabel.OnMouseMove:=@SiteLabelMouseMove2
MouseLabel.Parent:=WizardForm

SiteLabel:=TLabel.Create(WizardForm)
SiteLabel.Left:=10
SiteLabel.Top:=330
SiteLabel.Cursor:=crHand
SiteLabel.Font.Color:=clBlue
SiteLabel.Caption:='Текст самой ссылки'
SiteLabel.OnClick:=@SiteLabelOnClick
SiteLabel.OnMouseDown:=@SiteLabelMouseDown
SiteLabel.OnMouseUp:=@SiteLabelMouseUp
SiteLabel.OnMouseMove:=@SiteLabelMouseMove
SiteLabel.Parent:=WizardForm
end;

Я сделал так: вот эту часть я записал в отдельный скрипт и прикрепил его в основной

'Развернуть'

varMouseLabel,SiteLabel: TLabel;procedure SiteLabelOnClick(Sender: TObject);varErrorCode: Integer;beginShellExec('open', 'http://www.koreanrandom.com/forum/' '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)end;procedure SiteLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);beginSiteLabel.Font.Color:=clRedend;procedure SiteLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);beginSiteLabel.Font.Color:=clBlueend;procedure SiteLabelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);beginSiteLabel.Font.Color:=clGreenend;procedure SiteLabelMouseMove2(Sender: TObject; Shift: TShiftState; X, Y: Integer);beginSiteLabel.Font.Color:=clBlueend; а вот остальное я прикрепил в основной скрипт вот так: 

'Развернуть'

procedure InitializeWizard();beginInitializeWizard1(); {из BackUpPage.iss, если что}RedesignWizardForm;InitInfo();beginWindowResize();end;beginExtractTemporaryFile('AudioFile.mp3');if BASS_Init(-1, 44100, 0, 0, 0) thenbeginSoundStream := BASS_StreamCreateFile(False,ExpandConstant('{tmp}\AudioFile.mp3'), 0, 0, 0, 0,EncodingFlag or BASS_SAMPLE_LOOP);BASS_SetConfig(BASS_CONFIG_GVOL_STREAM, 2500);BASS_ChannelPlay(SoundStream, False);SoundCtrlButton := TNewButton.Create(WizardForm);SoundCtrlButton.Parent := WizardForm;SoundCtrlButton.Left := 6;SoundCtrlButton.Top := WizardForm.ClientHeight -SoundCtrlButton.Height - 10;SoundCtrlButton.Width := 110;SoundCtrlButton.Caption :=ExpandConstant('{cm:SoundCtrlButtonCaptionSoundOff}');SoundCtrlButton.OnClick := @SoundCtrlButtonClick;end;end;beginMouseLabel:=TLabel.Create(WizardForm)MouseLabel.Width:=WizardForm.WidthMouseLabel.Height:=WizardForm.HeightMouseLabel.Autosize:=FalseMouseLabel.Transparent:=TrueMouseLabel.OnMouseMove:[email protected]:=WizardFormSiteLabel:=TLabel.Create(WizardForm)SiteLabel.Left:=50SiteLabel.Top:=80SiteLabel.Cursor:=crHandSiteLabel.Font.Color:=clBlueSiteLabel.Caption:='Ссылка на офф. форум'SiteLabel.OnClick:[email protected]:[email protected]:[email protected]:[email protected]:=WizardForm

end;

end;

 

procedure DeinitializeSetup;

begin

BASS_Free;

UnloadSkin();

end;

 

procedure DeinitializeUninstall();

begin

UnloadSkin();

 

end;

 

Вопрос: почему не отображается нигде??? Компилит без ошибок вообще, ранне на этот скин подобным образом вставала ссылка, но там небыло никаких настроек стиля написания.

[AtotIK]

О как все активизировались перед выходом патча!

[Kotyarko_O]

 

 

почему не отображается нигде???

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

 

О как все активизировались перед выходом патча!

Надо бы и мне уже начать адаптацию, а то как-то забил на всё это)

[Andrew_Dark]

О как все активизировались перед выходом патча!

Ну так, всё для народа, им же хлеба и модов подавай, да в красивой обёртке:), вот и хочется сделать что-то и красивое, и нужное:), а вы батенька поможете в скрипте справа от кнопки вкл музыки вставить картинку-ссылку на кореан???

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

 

Надо бы и мне уже начать адаптацию, а то как-то забил на всё это)

 

Вот к этому сможете прикрутить?

install.rar

[Kotyarko_O]

вставить картинку-ссылку на кореан???

С картинкой всё проще, чего сразу не сказал..(только координаты поменяй. Вырвал из своего)

#define MyAppURL "www.что-то_там.com"

[Files]
Source: logo.bmp; Flags: dontcopy noencryption noencryption;

[code]
procedure LogoOnClick(Sender: TObject);
var
 ResCode: Integer;
begin
  ShellExec('', '{#MyAppURL}', '' , '', SW_SHOW, ewNoWait, ResCode)
end;

procedure RedesignWizardForm;
var
  BtnPanel: TPanel;
  BtnImage: TBitmapImage;
begin
  ExtractTemporaryFile('logo.bmp')
  BtnPanel:=TPanel.Create(WizardForm)
  with BtnPanel do
   begin
    Left:=0
    Top:=374
    Width:=178
    Height:=45
    Cursor:=crHand
    OnClick:=@logoOnClick
    Parent:=WizardForm
  end;
  BtnImage:=TBitmapImage.Create(WizardForm)
with BtnImage do
 begin
    AutoSize:=True;
    Enabled:=False;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\logo.bmp')
    Parent:=BtnPanel
  end;
end;

 

Или всё же текст крутить?

Edited June 9, 2014 by Kotyarko_O

[Andrew_Dark]

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

С картинкой всё проще, чего сразу не сказал..(только координаты поменяй. Вырвал из своего)

#define MyAppURL "www.что-то_там.com"

[Files]
Source: logo.bmp; Flags: dontcopy noencryption noencryption;

[code]
procedure LogoOnClick(Sender: TObject);
var
 ResCode: Integer;
begin
  ShellExec('', '{#MyAppURL}', '' , '', SW_SHOW, ewNoWait, ResCode)
end;

procedure RedesignWizardForm;
var
  BtnPanel: TPanel;
  BtnImage: TBitmapImage;
begin
  ExtractTemporaryFile('logo.bmp')
  BtnPanel:=TPanel.Create(WizardForm)
  with BtnPanel do
   begin
    Left:=0
    Top:=374
    Width:=178
    Height:=45
    Cursor:=crHand
    OnClick:=@logoOnClick
    Parent:=WizardForm
  end;
  BtnImage:=TBitmapImage.Create(WizardForm)
with BtnImage do
 begin
    AutoSize:=True;
    Enabled:=False;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\logo.bmp')
    Parent:=BtnPanel
  end;
end;

 

Или всё же текст крутить?

это типа надо отдельный скрипт, или части этого кода в основной разпихать? например то что в файлз дописать к файлз и тд? Или как?

Edited June 9, 2014 by Darksoul

[Kotyarko_O]

например то что в файлз дописать к файлз и тд?

Именно так. Но можно и в отдельный.

 

И ещё, как сделать чтобы тут в окне писалась нужная мне инфа? где её изменить?

procedure AboutSetupClick;
begin
  MsgBox('Сюда что-то написать', mbInformation, MB_OK);
end;

'Что ты там передвигать собрался?'

Edited June 9, 2014 by Kotyarko_O

[odesskin]

 У меня 5.5.1, попробую обновиться..

 

UPD: обновился, теперь тут:

procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);

ругается на:

UnknownType 'TItemArea'

Это процедура показа картинки при наведении на компонент курсора..

Могу скинуть сам скрипт

Котярко, как ты решил эту проблему ?

[Kotyarko_O]

Котярко, как ты решил эту проблему ?

 Установил ansi`шную версию Inno. У тебя, скорее всего, стоит Unicode.

Edited June 9, 2014 by Kotyarko_O

[Andrew_Dark]

Кстати, завтра с 10 по 13 обнова.

Edited June 9, 2014 by Darksoul

[Kotyarko_O]

Кстати, завтра с 10 по 13 обнова.

с 3.

[Andrew_Dark]

 Установил ansi`шную версию Inno.

Слушай, можешь мне носом ткнуть буквально так: выше я скинул весь свой основной скрипт, допили в него то что ты мне скинул по поводу доп инфы чтобы можно было дописать, и лого с этого форума, помоги пожалуста, очень хочется добавить эти 2 фичи.

с 3.

Сорри, тупанул, с 3 ночи:)

и если надо конечно, то у меня тоже (а) версия инно, ну это на всякий.

Именно так. Но можно и в отдельный.

procedure AboutSetupClick;
begin
  MsgBox('Сюда что-то написать', mbInformation, MB_OK);
end;

'Что ты там передвигать собрался?'

09.06.png

когда открываешь в этом окне о программе, там у меня видно на скрине что текст по левому краю, сама надпись "О программе", и всё что в таких окнах маленьких открывается, надписи в том месте тоже по левому краю, а мне нужно чтобы надписи по центру ровнялись.

Edited June 9, 2014 by Darksoul

[Kotyarko_O]

Слушай, можешь мне носом ткнуть буквально так: выше я скинул весь свой основной скрипт, допили в него то что ты мне скинул по поводу доп инфы чтобы можно было дописать, и лого с этого форума, помоги пожалуста, очень хочется добавить эти 2 фичи.

install.rar

(выделил комментариями то, что дописал). Только тебе нужно будет ещё сделать картинку, с расширением *.bmp.

 

 

когда открываешь в этом окне о программе, там у меня видно на скрине что текст по левому краю, сама надпись "О программе", и всё что в таких окнах маленьких открывается, надписи в том месте тоже по левому краю, а мне нужно чтобы надписи по центру ровнялись.

Понял. С этим ничего не поделать. Это уже контекстное меню винды, не относящееся к инсталлу.

Edited June 9, 2014 by Kotyarko_O

[Andrew_Dark]

 

install.rar

(выделил комментариями то, что дописал). Только тебе нужно будет ещё сделать картинку, с расширением *.bmp.

 

 

Понял. С этим ничего не поделать. Это уже контекстное меню винды, не относящееся к инсталлу.

 

Вот что происходит прикомпиляции с тем скриптом, что ты скинул, подозреваю что слетает всё из-за "RedesignWizardForm", пишет что продублированная выше, а как их обьединить?

вот этот раздел

 

 

procedure RedesignWizardForm;

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.SetBounds(ScaleX(1), ScaleY(41), ScaleX(250), ScaleY(200));   // картинка

    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

             //-----------------------КАРТИНКИ----------------------------\\

            '1.1 Прицел от Dellux.': UndefPic := '1.bmp';   // пишем точно так же, как прописано в компонентах

            '1.2 Прицел Минималистический.': UndefPic := '2.bmp';

            '1.3 Прицел Тайпан.': UndefPic := '3.bmp';   // пишем точно так же, как прописано в компонентах

            '2.1 Дамаг панель Rabbit.': UndefPic := '4.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;

и этот:

 

 

var

  BtnPanel: TPanel;

  BtnImage: TBitmapImage;

begin

  ExtractTemporaryFile('logo.bmp')

  BtnPanel:=TPanel.Create(WizardForm)

  with BtnPanel do

   begin

    Left:=0

    Top:=324

    Width:=178

    Height:=45

    Cursor:=crHand

    OnClick:=@logoOnClick

    Parent:=WizardForm

  end;

  BtnImage:=TBitmapImage.Create(WizardForm)

with BtnImage do

begin

    AutoSize:=True;

    Enabled:=False;

    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\logo.bmp')

    Parent:=BtnPanel

  end;

end;

Edited June 9, 2014 by Darksoul