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

Kotyarko_O · August 13, 2015

Как сделать прокрутку на стр. Ready



Procedure CurPageChanged(CurPageID: Integer);

begin

 case CurPageID of

  wpSelectComponents: WizardForm.ComponentsList.SetFocus;

  wpReady: WizardForm.ReadyMemo.SetFocus;

 end;

end;

Edited August 13, 2015 by Kotyarko_O

Ekspoint · August 14, 2015

как сделать отрисовку ImgLoad из ботвы на странице, а то получается что рисуется под ней

Kotyarko_O · August 14, 2015

как сделать отрисовку ImgLoad из ботвы на странице, а то получается что рисуется под ней

Отрисовывай на странице, а не под ней.

ImgLoad(WizardForm.SelectComponentsPage.Handle, .....
...
ImgApplyChanges(WizardForm.SelectComponentsPage.Handle);

Ну или на чём ты там рисуешь..

Ekspoint · August 14, 2015

Отрисовывай на странице, а не под ней.
ImgLoad(WizardForm.SelectComponentsPage.Handle, .....
...
ImgApplyChanges(WizardForm.SelectComponentsPage.Handle);
Ну или на чём ты там рисуешь..

спс

licimer · August 15, 2015

Переходите на VCL, там в плане редактирования интерфейса очень много возможностей.

А может кто нибудь на нормальную инструкцию по этой проге отправить. хочу изучить но с инглишем не особо

Kotyarko_O · August 15, 2015

А может кто нибудь на нормальную инструкцию по этой проге отправить. хочу изучить но с инглишем не особо

А что там изучать?

Если с английским не особо, то не надо лезть в программирование.

licimer · August 15, 2015

А что там изучать?

Если с английским не особо, то не надо лезть в программирование.

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

По делу есть чего? статейка, видео?

Kotyarko_O · August 15, 2015

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

Давай.

voin_123 · August 15, 2015

Procedure CurPageChanged(CurPageID: Integer);
begin
 case CurPageID of
  wpSelectComponents: WizardForm.ComponentsList.SetFocus;
  wpReady: WizardForm.ReadyMemo.SetFocus;
 end;
end;

Как сделать чтоб в окне Components секций Types не работала прокрутка а в секций Components работала прокрутка окна колесом мыши до выбора чексбокса?

Ekspoint · August 15, 2015

Как сделать чтоб в окне Components секций Types не работала прокрутка а в секций Components работала прокрутка окна колесом мыши до выбора чексбокса?

procedure InitializeWizard();
begin
    WizardForm.TypesCombo.Visible := False;
end;

вот еще прокрутка на тех стр где она нужна

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
  wpLicense: WizardForm.LicenseMemo.SetFocus;
  wpSelectComponents: WizardForm.ComponentsList.SetFocus;
  wpSelectTasks: WizardForm.TasksList.SetFocus;
  wpReady: WizardForm.ReadyMemo.SetFocus;
  wpInfoAfter: WizardForm.InfoAfterMemo.SetFocus;
end;
end;

Edited August 15, 2015 by Dark_Knight_MiX

voin_123 · August 15, 2015

procedure InitializeWizard();
begin
    WizardForm.TypesCombo.Visible := False;
end;

вот еще прокрутка на тех стр где она нужна

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
  wpLicense: WizardForm.LicenseMemo.SetFocus;
  wpSelectComponents: WizardForm.ComponentsList.SetFocus;
  wpSelectTasks: WizardForm.TasksList.SetFocus;
  wpReady: WizardForm.ReadyMemo.SetFocus;
  wpInfoAfter: WizardForm.InfoAfterMemo.SetFocus;
end;
end;

procedure InitializeWizard();
begin
    WizardForm.TypesCombo.Visible := False;
end;

Это отключает Types, а мне надо в ней выключить прокрутку скрола

Ekspoint · August 15, 2015

procedure InitializeWizard();
begin
    WizardForm.TypesCombo.Visible := False;
end;
Это отключает Types, а мне надо в ней выключить прокрутку скрола

ну вот, отключает прокрутку

voin_123 · August 15, 2015

ну вот, отключает прокрутку

Полностю пропадает секция Types

Ekspoint · August 15, 2015

Полностю пропадает секция Types

ага, ну тогда я не знаю как еще

или так попробуй, Types включи

[Code]
Const
 WM_MOUSEWHEEL = $20A;

Function GetWindowRect(hWnd: HWND; var lpRect: TRect): Boolean; external '[email protected] stdcall';

Procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean);
var
 Rt: TRect;
begin
 case Msg.Message of
 WM_MOUSEWHEEL:
  begin
   if WizardForm.CurPageID = wpSelectComponents then
    GetWindowRect(WizardForm.ComponentsList.Handle, Rt);
  end;
 end;
end;

Procedure InitializeWizard();
begin
 Application.OnMessage := @AppOnMessage;
end;

Edited August 15, 2015 by Dark_Knight_MiX

voin_123 · August 15, 2015

ага, ну тогда я не знаю как еще

или так попробуй, Types включи

[Code]
Const
 WM_MOUSEWHEEL = $20A;

Function GetWindowRect(hWnd: HWND; var lpRect: TRect): Boolean; external '[email protected] stdcall';

Procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean);
var
 Rt: TRect;
begin
 case Msg.Message of
 WM_MOUSEWHEEL:
  begin
   if WizardForm.CurPageID = wpSelectComponents then
    GetWindowRect(WizardForm.ComponentsList.Handle, Rt);
  end;
 end;
end;

Procedure InitializeWizard();
begin
 Application.OnMessage := @AppOnMessage;
end;

Это раньше пробовал не работает

Kotyarko_O · August 15, 2015

procedure InitializeWizard();
begin
 WizardForm.TypesCombo.Visible := False;
end;
ну вот, отключает прокрутку

Visible - это "видимость", а не прокрутка.

Как сделать чтоб в окне Components секций Types не работала прокрутка а в секций Components работала прокрутка окна колесом мыши до выбора чексбокса?

Вообще, это:

WizardForm.ComponentsList.SetFocus;

должно помогать.

Edited August 15, 2015 by Kotyarko_O

Ekspoint · August 15, 2015

Visible - это "видимость", а не прокрутка.

вкурсе

voin_123 · August 16, 2015

Visible - это "видимость", а не прокрутка.

Вообще, это:
WizardForm.ComponentsList.SetFocus;
должно помогать.

Это фокусит внимание над Components на не отключает прокрутку в Types не помогает.

MS_RAMIS · August 22, 2015

ВСЕМ Привет ...

сделал установщик но при удалении модов выдает ошибку !!!

народ подскажите в чем причина???

вот код ...

#define MyAppName "Ms_RamiS_XVMs" ;Название инстоллятора
#define MyInfoVer "613.1" ;Версия XVMa без точек
#define MyAppVer "#3" ;Версия инсталлятора
#define Patch "0.9.9" ;версия патча (чтобы не менять после каждого патча числа в скрипте, можно использовать это)
#define MyAppPublisher "Ms_RamiS" ;Имя компании или человека кто делал
#define MyAppURL "http://tatru.clan.su/load/mods/mod_xvm_dlja_world_of_tanks/1-1-0-1" ;Ссылка для лого

#include "Components.iss" ;Компаненты, они же моды
#include "Messages.iss" ;Сообщение, надписи на кнопках и т.д.
#include "BackUpPage.iss" ;Резерное копирование или удаление res_mods
#include "CustomMessages.iss" ;Описание модов
;#include "Music.iss" ;Музыка в инсталляторе
#include "Skins.iss"

[Setup]
AppId={{#GameID}
AppName={#MyAppName}
AppVersion={#MyAppVer}
AppPublisher={#MyAppPublisher}

//====={ Ссылки }=====\\
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}

//====={ Папка установки }=====\\
DefaultDirName={code:MyDirName}
AppendDefaultDirName=no
DirExistsWarning=no
CreateUninstallRegKey=yes
Uninstallable=yes
//UninstallFilesDir={app}\Удаление {#MyAppName}

//====={ Картинки }=====\\
SetupIconFile=Files\ico.ico
UninstallDisplayIcon={app}\unins000.exe
WizardImageFile=Files\img1.bmp
WizardSmallImageFile=Files\Small.bmp
//====={ Отключение строниц }=====\\
DisableProgramGroupPage=yes

//====={ Лицензия и Фак }=====\\
;LicenseFile=licensia.rtf
InfoBeforeFile=faq.rtf

//====={ Папка создания и название сетапа }=====\\
OutputDir=.\Output
OutputBaseFilename={#MyAppName}_v{#MyInfoVer}{#MyAppVer}

//====={ Сжатие сетапа }=====\\
InternalCompressLevel=max
Compression=lzma2/max

//--------------- ваши картинки ---------------\\
[Files]
Source: "ReadMeRu.rtf"; DestDir: "{tmp}"; Flags: ignoreversion
Source: Files\logo.bmp; Flags: dontcopy noencryption noencryption
DestName: "WizardForm.BitmapImage1.bmp"; Source: "Files\img2.bmp"; Flags: dontcopy solidbreak

[Code]
//--------------- ФАК ---------------\\
var
InfoForm: TSetupForm;
Info, Ok: TButton;
InfoBefore: TRichEditViewer;
ReadmeRu,ReadmeEn: AnsiString;

procedure Okclick(Sender: TObject);
begin
InfoForm.Close;
WizardForm.Enabled:=True;
end;

procedure FormClose(Sender: TObject; var Action: TCloseAction);
begin
WizardForm.Enabled:=true;
end;

procedure InfoClick(Sender: TObject);
begin
InfoForm:= CreateCustomForm();
with InfoForm do begin
ClientWidth := ScaleX(600);
ClientHeight := ScaleY(400);
CenterInsideControl(WizardForm, False);
Caption:='Страница FAQ';
onClose:=@FormClose;
Ok:=tbutton.create(InfoForm)
with Ok do begin
SetBounds(ScaleX(490),ScaleY(370),ScaleX(80),ScaleY(25));
parent:=InfoForm;
Caption:='Закрыть';
onclick:=@OKclick;
end;
InfoBefore:= TRichEditViewer.Create(InfoForm);
with InfoBefore do begin
SetBounds(ScaleX(10),ScaleY(10),ScaleX(580),ScaleY(355));
Parent:= InfoForm;
// ParentColor := True;
// Color:= WizardForm.Color;
// BorderStyle:= bsNone;
ScrollBars:= ssVertical;
ReadOnly:= true;
RTFText:= ReadmeRu
end;
InfoForm.Show;
WizardForm.Enabled:=false;
end;
end;

procedure InitializeWizard3();
begin
ExtractTemporaryFile('ReadMeRu.rtf');
LoadStringFromFile(ExpandConstant('{tmp}')+'\ReadMeRu.rtf', ReadmeRu);
Info:=tbutton.create(WizardForm);
with Info do begin
Parent:=WizardForm;
SetBounds(ScaleX(112),ScaleY(497),ScaleX(80),ScaleY(23));
Caption:='F.A.Q';
OnClick:=@InfoClick;
end;
end;
//--------------- ФАК ---------------\\


function MyDirName(S:String): String;
var
InsPath: String;
er: boolean;
myFile:String;
begin
Result:=ExpandConstant('C:\Games\World_of_Tanks\'); //если ключа нет то будем ставить сюда
er := RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', InsPath);
if er and (InsPath<>'') then //если ключ существует и там что-то записано
begin
Result := InsPath;
end;
end;

//==== Проверка WoT ====\\
function NextButtonClick(CurPageID: Integer): Boolean;
begin
Result := True;
case CurPageID of
wpSelectDir:
if not FileExists(ExpandConstant('{app}\WorldOfTanks.exe')) then
begin
MsgBox('Не верно указана папка с игрой World_of_Tanks!', mbError, MB_OK);
Result := False;
end;
end;
end;
//==== Проверка WoT ====\\


procedure LogoOnClick(Sender: TObject);
var ResCode: Integer;
begin
ShellExec('', '{#MyAppURL}', '' , '', SW_SHOW, ewNoWait, ResCode)
end;
var
BitmapImage1: TBitmapImage;
procedure RedesignWizardForm;
var
i: integer;
BtnPanel: TPanel;
BtnImage: TBitmapImage;
begin
ExtractTemporaryFile('logo.bmp')
BtnPanel:=TPanel.Create(WizardForm)
with BtnPanel do begin
Left:=20
Top:=494
Width:=82
Height:=27
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;
{ BitmapImage1 }
BitmapImage1 := TBitmapImage.Create(WizardForm);
with BitmapImage1 do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(0);
Top := ScaleY(115);
Width := ScaleX(620);
Height := ScaleY(260);
ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');
Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp'));
end;
end;


function WindowResize(): Boolean;
var
HeightOffset, WidthOffset: Integer;
begin
HeightOffset:=170;
WidthOffset:=200;

WizardForm.Height:=WizardForm.Height + HeightOffset;
WizardForm.Width:=WizardForm.Width + WidthOffset;

WizardForm.NextButton.Top:=WizardForm.NextButton.Top + HeightOffset;
WizardForm.BackButton.Top:=WizardForm.BackButton.Top + HeightOffset;
WizardForm.CancelButton.Top:=WizardForm.CancelButton.Top + HeightOffset;
WizardForm.NextButton.Left:=WizardForm.NextButton.Left + WidthOffset;
WizardForm.BackButton.Left:=WizardForm.BackButton.Left + WidthOffset;
WizardForm.CancelButton.Left:=WizardForm.CancelButton.Left + WidthOffset;

WizardForm.OuterNotebook.Height:=WizardForm.OuterNotebook.Height + HeightOffset;
WizardForm.InnerNotebook.Height:=WizardForm.InnerNotebook.Height + HeightOffset;
WizardForm.OuterNotebook.Width:=WizardForm.OuterNotebook.Width + WidthOffset;
WizardForm.InnerNotebook.Width:=WizardForm.InnerNotebook.Width + WidthOffset;
WizardForm.WizardSmallBitmapImage.Left:= WizardForm.WizardSmallBitmapImage.Left + WidthOffset;
WizardForm.Bevel.Top:=WizardForm.Bevel.Top + HeightOffset;
WizardForm.BeveledLabel.Top:=WizardForm.BeveledLabel.Top + HeightOffset;
WizardForm.Bevel.Width:=WizardForm.Bevel.Width + WidthOffset;
WizardForm.Bevel1.Width:=WizardForm.Bevel1.Width + WidthOffset;
WizardForm.MainPanel.Width:=WizardForm.MainPanel.Width + WidthOffset;
WizardForm.BeveledLabel.Width:=WizardForm.BeveledLabel.Width + WidthOffset;
WizardForm.Center;

{ /// --- Раскомментировать при желании ---- ///
WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;
WizardForm.FinishedLabel.Hide;
WizardForm.FinishedHeadingLabel.Hide;
WizardForm.WizardBitmapImage.Width:=600;
WizardForm.WizardBitmapImage.Height:=400;
WizardForm.WizardBitmapImage2.Width:=600;
WizardForm.WizardBitmapImage2.Height:=400;
WizardForm.PageNameLabel.Hide;
WizardForm.PageDescriptionLabel.Hide;
WizardForm.WizardSmallBitmapImage.Top:=0;
WizardForm.WizardSmallBitmapImage.Left:=0;
WizardForm.WizardSmallBitmapImage.Width:=WizardForm.Width;
WizardForm.WizardSmallBitmapImage.Height:=58;
/// --- Конец ---- ///
}
WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;
WizardForm.WizardBitmapImage.Width:=697;
WizardForm.WizardBitmapImage.Height:=483;

WizardForm.FinishedHeadingLabel.Hide;
WizardForm.FinishedLabel.Hide;
WizardForm.YesRadio.Hide;
WizardForm.NoRadio.Hide;
WizardForm.WizardBitmapImage2.Width:=697;
WizardForm.WizardBitmapImage2.Height:=483;

WizardForm.PageNameLabel.Hide;
WizardForm.PageDescriptionLabel.Hide;
WizardForm.WizardSmallBitmapImage.Top:=0;
WizardForm.WizardSmallBitmapImage.Left:=0;
WizardForm.WizardSmallBitmapImage.Width:=697;
WizardForm.WizardSmallBitmapImage.Height:=58;

WizardForm.WelcomeLabel1.Width:=WizardForm.WelcomeLabel1.Width + WidthOffset;
WizardForm.WelcomeLabel1.Height:=WizardForm.WelcomeLabel1.Height + HeightOffset;
WizardForm.WelcomeLabel1.Width:=WizardForm.WelcomeLabel1.Width + WidthOffset;

WizardForm.WelcomeLabel2.Width:=WizardForm.WelcomeLabel2.Width + WidthOffset;
WizardForm.WelcomeLabel2.Height:=WizardForm.WelcomeLabel2.Height + HeightOffset;
WizardForm.WelcomeLabel2.Width:=WizardForm.WelcomeLabel2.Width + WidthOffset;


WizardForm.LicenseLabel1.Width:=WizardForm.LicenseLabel1.Width + WidthOffset;
WizardForm.LicenseMemo.Height:=WizardForm.LicenseMemo.Height + HeightOffset;
WizardForm.LicenseMemo.Width:=WizardForm.LicenseMemo.Width + WidthOffset;
WizardForm.LicenseNotAcceptedRadio.Top:=WizardForm.LicenseNotAcceptedRadio.Top + HeightOffset;
WizardForm.LicenseAcceptedRadio.Top:=WizardForm.LicenseAcceptedRadio.Top + HeightOffset;

WizardForm.InfoBeforeClickLabel.Width:=WizardForm.InfoBeforeClickLabel.Width + WidthOffset;
WizardForm.InfoBeforeMemo.Height:=WizardForm.InfoBeforeMemo.Height + HeightOffset;
WizardForm.InfoBeforeMemo.Width:=WizardForm.InfoBeforeMemo.Width + WidthOffset;

WizardForm.SelectDirLabel.Width:=WizardForm.SelectDirLabel.Width + WidthOffset;
WizardForm.SelectDirBrowseLabel.Width:=WizardForm.SelectDirBrowseLabel.Width + WidthOffset;
WizardForm.DiskSpaceLabel.Top:=WizardForm.DiskSpaceLabel.Top + HeightOffset;
WizardForm.DirBrowseButton.Left:=WizardForm.DirBrowseButton.Left + HeightOffset;
WizardForm.DirEdit.Width:=WizardForm.DirEdit.Width + HeightOffset;

WizardForm.ComponentsDiskSpaceLabel.Top:=WizardForm.ComponentsDiskSpaceLabel.Top + HeightOffset;
WizardForm.SelectComponentsLabel.Width:=WizardForm.SelectComponentsLabel.Width + WidthOffset;
WizardForm.ComponentsList.Height:=WizardForm.ComponentsList.Height + HeightOffset;
WizardForm.ComponentsList.Width:=WizardForm.ComponentsList.Width + WidthOffset;

WizardForm.ReadyLabel.Width:=WizardForm.ReadyLabel.Width + WidthOffset;
WizardForm.ReadyMemo.Height:=WizardForm.ReadyMemo.Height + HeightOffset;
WizardForm.ReadyMemo.Width:=WizardForm.ReadyMemo.Width + WidthOffset;

WizardForm.ProgressGauge.Width:=WizardForm.ProgressGauge.Width + HeightOffset;
WizardForm.FilenameLabel.Width:=WizardForm.FilenameLabel.Width + HeightOffset;
WizardForm.StatusLabel.Width:=WizardForm.StatusLabel.Width + HeightOffset;
end;

/// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- ///

type
TComponentDesc = record
Description: String;
ImageName: String;
Index: Integer;
end;

var
CompDescs: array of TComponentDesc;
CompDescPanel, CompDescImgPanel: TPanel;
CompDescText: array[1..2] of TLabel;
CompIndex, LastIndex: Integer;
CompDescImg: TBitmapImage;

procedure ShowCompDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea);
var
i: Integer;
begin
if Index = LastIndex then Exit;
CompIndex := -1;
for i := 0 to GetArrayLength(CompDescs) -1 do
begin
if (CompDescs[i].Index = Index) then
begin
CompIndex := i;
Break;
end;
end;
if (CompIndex >= 0) and (Area = iaItem) then
begin
if not FileExists(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName) then
ExtractTemporaryFile(CompDescs[CompIndex].ImageName);
CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName);
CompDescImg.Show;

CompDescText[2].Caption := CompDescs[CompIndex].Description;
CompDescText[2].Enabled := True;
end else
begin
CompDescText[2].Caption := CustomMessage('ComponentsInfo');
CompDescText[2].Enabled := False;
CompDescImg.Hide;
end;
LastIndex := Index;
end;

procedure CompListMouseLeave(Sender: TObject);
begin
CompDescImg.Hide;
CompDescText[2].Caption := CustomMessage('ComponentsInfo');
CompDescText[2].Enabled := False;
LastIndex := -1;
end;

procedure AddCompDescription(AIndex: Integer; ADescription: String; AImageName: String);
var
i: Integer;
begin
i := GetArrayLength(CompDescs);
SetArrayLength(CompDescs, i + 1);
CompDescs[i].Description := ADescription;
CompDescs[i].ImageName := AImageName;
CompDescs[i].Index := AIndex - 1
end;

procedure InitializeWizard();
begin
InitializeWizard1(); {из BackUpPage.iss}
//InitializeWizard2(); {из Music.iss}
InitializeWizard3();
RedesignWizardForm;
WindowResize();

begin
WizardForm.SelectComponentsLabel.Hide;
WizardForm.TypesCombo.Hide;
WizardForm.ComponentsList.SetBounds(ScaleX(260), ScaleY(20), ScaleX(357), ScaleY(333));
WizardForm.ComponentsList.OnItemMouseMove:= @ShowCompDescription;
WizardForm.ComponentsList.OnMouseLeave := @CompListMouseLeave;

CompDescImgPanel := TPanel.Create(WizardForm);
with CompDescImgPanel do
begin
Parent := WizardForm.SelectComponentsPage;
SetBounds(ScaleX(0), ScaleY(20), ScaleX(253), ScaleY(203)); //рамка картинки
BevelInner := bvLowered;
end;

CompDescText[1] := TLabel.Create(WizardForm);
with CompDescText[1] do
begin
Parent := CompDescImgPanel;
SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));
AutoSize := False;
WordWrap := True;
Enabled := False;
Caption := CustomMessage('ComponentsImgInfo');
end;

CompDescImg := TBitmapImage.Create(WizardForm);
with CompDescImg do
begin
Parent := CompDescImgPanel;
SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));
Stretch := True;
Hide;
end;

CompDescPanel := TPanel.Create(WizardForm);
with CompDescPanel do
begin
Parent := WizardForm.SelectComponentsPage;
SetBounds(ScaleX(0), ScaleY(230), ScaleX(253), ScaleY(123)); //Нижния рамка
BevelInner := bvLowered;
end;

CompDescText[2] := TLabel.Create(WizardForm);
with CompDescText[2] do
begin
Parent := CompDescPanel;
SetBounds(ScaleX(5), ScaleY(5), CompDescPanel.Width - ScaleX(10), CompDescPanel.Height - ScaleY(10));
AutoSize := False;
WordWrap := True;
Enabled := False;
Caption := CustomMessage('ComponentsInfo');
end;

AddCompDescription(1, CustomMessage('CompDesc1'), 'CompDescImg1.bmp');
AddCompDescription(2, CustomMessage('CompDesc2'), 'CompDescImg2.bmp');
AddCompDescription(3, CustomMessage('CompDesc3'), 'CompDescImg3.bmp');
AddCompDescription(4, CustomMessage('CompDesc4'), 'CompDescImg4.bmp');
AddCompDescription(5, CustomMessage('CompDesc5'), 'CompDescImg5.bmp');
AddCompDescription(6, CustomMessage('CompDesc6'), 'CompDescImg6.bmp');
AddCompDescription(7, CustomMessage('CompDesc7'), 'CompDescImg7.bmp');
AddCompDescription(8, CustomMessage('CompDesc8'), 'CompDescImg8.bmp');
AddCompDescription(9, CustomMessage('CompDesc9'), 'CompDescImg9.bmp');
AddCompDescription(10, CustomMessage('CompDesc10'), 'CompDescImg10.bmp');
AddCompDescription(11, CustomMessage('CompDesc11'), 'CompDescImg11.bmp');
AddCompDescription(12, CustomMessage('CompDesc12'), 'CompDescImg12.bmp');
AddCompDescription(13, CustomMessage('CompDesc13'), 'CompDescImg13.bmp');
AddCompDescription(14, CustomMessage('CompDesc14'), 'CompDescImg14.bmp');
AddCompDescription(15, CustomMessage('CompDesc15'), 'CompDescImg15.bmp');
AddCompDescription(16, CustomMessage('CompDesc16'), 'CompDescImg16.bmp');
AddCompDescription(17, CustomMessage('CompDesc17'), 'CompDescImg17.bmp');
AddCompDescription(18, CustomMessage('CompDesc18'), 'CompDescImg18.bmp');
AddCompDescription(19, CustomMessage('CompDesc19'), 'CompDescImg19.bmp');
AddCompDescription(20, CustomMessage('CompDesc20'), 'CompDescImg20.bmp');
AddCompDescription(21, CustomMessage('CompDesc21'), 'CompDescImg21.bmp');
AddCompDescription(22, CustomMessage('CompDesc22'), 'CompDescImg22.bmp');
AddCompDescription(23, CustomMessage('CompDesc23'), 'CompDescImg23.bmp');
AddCompDescription(24, CustomMessage('CompDesc24'), 'CompDescImg24.bmp');
AddCompDescription(25, CustomMessage('CompDesc25'), 'CompDescImg25.bmp');
AddCompDescription(26, CustomMessage('CompDesc26'), 'CompDescImg26.bmp');
AddCompDescription(27, CustomMessage('CompDesc27'), 'CompDescImg27.bmp');
AddCompDescription(28, CustomMessage('CompDesc28'), 'CompDescImg28.bmp');
AddCompDescription(29, CustomMessage('CompDesc29'), 'CompDescImg29.bmp');
AddCompDescription(30, CustomMessage('CompDesc30'), 'CompDescImg30.bmp');
AddCompDescription(31, CustomMessage('CompDesc31'), 'CompDescImg31.bmp');
AddCompDescription(32, CustomMessage('CompDesc32'), 'CompDescImg32.bmp');
AddCompDescription(33, CustomMessage('CompDesc33'), 'CompDescImg33.bmp');
AddCompDescription(34, CustomMessage('CompDesc34'), 'CompDescImg34.bmp');
AddCompDescription(35, CustomMessage('CompDesc35'), 'CompDescImg35.bmp');
AddCompDescription(36, CustomMessage('CompDesc36'), 'CompDescImg36.bmp');
AddCompDescription(37, CustomMessage('CompDesc37'), 'CompDescImg37.bmp');
AddCompDescription(38, CustomMessage('CompDesc38'), 'CompDescImg38.bmp');
AddCompDescription(39, CustomMessage('CompDesc39'), 'CompDescImg39.bmp');
AddCompDescription(40, CustomMessage('CompDesc40'), 'CompDescImg40.bmp');
AddCompDescription(41, CustomMessage('CompDesc41'), 'CompDescImg41.bmp');
AddCompDescription(42, CustomMessage('CompDesc42'), 'CompDescImg42.bmp');
AddCompDescription(43, CustomMessage('CompDesc43'), 'CompDescImg43.bmp');
end;
end;

и еще можно ли сделать чтобы музыка (которая играет при запуске установщика) в установщике, выключается при нажатии на кнопку , а нужно сделать что бы наоборот включалась. т.е. при запуске установщика была тишина, а музыка включалась при нажатии на кнопку ...

Edited August 22, 2015 by MS_RAMIS

Kotyarko_O · August 22, 2015

вот код ...

А точнее: "вот часть кода".

Проблема не в этом куске. Т.к. вижу подключаемый скрипт скина, то полагаю, что в нём скорее всего и проблема.

Edited August 22, 2015 by Kotyarko_O

Sign In

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

Recommended Posts

Kotyarko_O 1,906

Share this post

Link to post

Short link

Share on other sites

Ekspoint 2,122

Share this post

Link to post

Short link

Share on other sites

Kotyarko_O 1,906

Share this post

Link to post

Short link

Share on other sites

Ekspoint 2,122

Share this post

Link to post

Short link

Share on other sites

licimer 1

Share this post

Link to post

Short link

Share on other sites

Kotyarko_O 1,906

Share this post

Link to post

Short link

Share on other sites

licimer 1

Share this post

Link to post

Short link

Share on other sites

Kotyarko_O 1,906

Share this post

Link to post

Short link

Share on other sites

voin_123 5

Share this post

Link to post

Short link

Share on other sites

Ekspoint 2,122

Share this post

Link to post

Short link

Share on other sites

voin_123 5

Share this post

Link to post

Short link

Share on other sites

Ekspoint 2,122

Share this post

Link to post

Short link

Share on other sites

voin_123 5

Share this post

Link to post

Short link

Share on other sites

Ekspoint 2,122

Share this post

Link to post

Short link

Share on other sites

voin_123 5

Share this post

Link to post

Short link

Share on other sites

Kotyarko_O 1,906

Share this post