-
Posts
52 -
Joined
-
Last visited
Posts posted by MS_RAMIS
-
-
давай-ка побеседуем в ЛС. я тебе помогу.
СПАСИБО БОЛЬШОЕ за помощь, удачи тебе ;)
- 1
-
в редакторе форм. В Select TasksPage просто растяни на сколько тебе нужно.
ответили уже)) не заметил))
через редактор форм менял размер ... и получил код
{ RedesignWizardFormBegin } // Не удалять эту строку! // Не изменять эту секцию. Она создана автоматически. procedure RedesignWizardForm; begin with WizardForm.TasksList do begin Width := ScaleX(600); Height := ScaleY(350); end; { ReservationBegin } // Вы можете добавить ваш код здесь. { ReservationEnd } end; // Не изменять эту секцию. Она создана автоматически. { RedesignWizardFormEnd } // Не удалять эту строку!
при компиляции выдает ошибку
вот код
[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(115),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 GoToSite(CurStep: TSetupStep); var RC: Integer; begin if CurStep = ssDone then begin ShellExec('', '{#MyAppURL}', '' , '', SW_SHOW, ewNoWait, RC); end; end; //==== Переход на сайт ====\\ 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_vk.bmp') BtnPanel:=TPanel.Create(WizardForm) with BtnPanel do begin Left:=20 Top:=494 Width:=85 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_vk.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;
может кто поможет ...
или возможно проще создать вторую страницу компонентов
-
я тоже не гуру но можно сделать просто вот так)))
[Setup] AppName="ххх" AppVersion=1.0 DefaultDirName=C:\Games\World_of_Tanks\ AppendDefaultDirName=no [Tasks] Name: "K"; Description: "WoT Tweaker Plus - для повышения FPS"; Flags: unchecked; Name: "K\2"; Description: "Увеличение максимальной дальности видимости"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "K\3"; Description: "Удаление тумана на всех картах"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "K\4"; Description: "Отключить эффекты погоды и дым на картах"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "K\5"; Description: "Отключить эффект взрыва снарядов и попадания в объекты"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "K\6"; Description: "Отключить облака"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "K\7"; Description: "Отключить дым от уничтоженных танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "K\8"; Description: "Отключить эффекты попадания по танкам"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "K\9"; Description: "Отключить тень под танками"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "K\10"; Description: "Отключить дым и пламя от выстрелов"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "K\11"; Description: "Отключить дым из выхлопных труб танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "K\12"; Description: "Отключить эффект движения деревьев"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; [Files] ///////////////////////////////////////////////////////////////////// WoT Tweaker Plus /////////////////////////// Source: "F:\А ДЛЯ СБОРКИ\МОДЫ\МОДЫ\0 1 WoT Tweaker Plus\2 Увеличение максимальной дальности видимости\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: K\2; BeforeInstall: Source: "F:\А ДЛЯ СБОРКИ\МОДЫ\МОДЫ\0 1 WoT Tweaker Plus\3 Удаление тумана на всех картах\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: K\3; BeforeInstall: Source: "F:\А ДЛЯ СБОРКИ\МОДЫ\МОДЫ\0 1 WoT Tweaker Plus\4 Отключить эффекты проявления погоды и дым от объектов на картах\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: K\4; BeforeInstall: Source: "F:\А ДЛЯ СБОРКИ\МОДЫ\МОДЫ\0 1 WoT Tweaker Plus\5 Отключить эффект взрыва снарядов и попадания в объекты\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: K\5; BeforeInstall: Source: "F:\А ДЛЯ СБОРКИ\МОДЫ\МОДЫ\0 1 WoT Tweaker Plus\6 Отключить облака\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: K\6; BeforeInstall: Source: "F:\А ДЛЯ СБОРКИ\МОДЫ\МОДЫ\0 1 WoT Tweaker Plus\7 Отключить дым от уничтоженных танков\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: K\7; BeforeInstall: Source: "F:\А ДЛЯ СБОРКИ\МОДЫ\МОДЫ\0 1 WoT Tweaker Plus\8 Отключить эффекты попадания по танкам\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: K\8; BeforeInstall: Source: "F:\А ДЛЯ СБОРКИ\МОДЫ\МОДЫ\0 1 WoT Tweaker Plus\9 Отключить тень под танками\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: K\9; BeforeInstall: Source: "F:\А ДЛЯ СБОРКИ\МОДЫ\МОДЫ\0 1 WoT Tweaker Plus\10 Отключить дым и пламя от выстрелов\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: K\10; BeforeInstall: Source: "F:\А ДЛЯ СБОРКИ\МОДЫ\МОДЫ\0 1 WoT Tweaker Plus\11 Отключить дым из выхлопных труб танков\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: K\11; BeforeInstall: Source: "F:\А ДЛЯ СБОРКИ\МОДЫ\МОДЫ\0 1 WoT Tweaker Plus\12 Отключить эффект движения деревьев\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: K\12; BeforeInstall:
и после модов у тебя будет отдельная страница для твикера)))
СПАСИБО БОЛЬШОЕ ))) только можно как нибудь изменить размер содержимого окна. т.е. у меня получилось не на все окно ...
-
ВСЕМ Привет!!!
увы я не гуру в Inno Setup
помогите сделать встроенный wot_tweaker в установщике, то есть мне нужно что бы после страницы модов шла страница "Повысить FPS" с чебоксами отключения различных эффектов
-
Доброго времени суток !
Не секрет что некоторые "игроки" используют запрещенные прицелы. И эти "игроки" ну очень точные и в большинства случаях у них низкий КПД и высокий % точности.
Возникла идея сделать что бы в маркерах над танком, при 75-80% точности на танке (или общий) показывало рисунок (снайпер, что изображено не особо важно), по которому сразу было бы понятно что игрок супер точный и опасен.
-
у меня тоже такая же шляпа .. не грузиться конфиг для страницы загрузки .. и по этому иконки зеркалятся
страница загрузки выглядить как просто от WG без xvma -
MS_RAMIS, вы не поняли.
Зеркалирование не при чем. Есть необходимость загрузить из второго атласа свои иконки (они уже повернуты в нужную сторону и надписи на них соответственно размещены). Но XVM почему-то не загружает второй атлас, хотя путь к нему в iconset.xc прописан. Загружается только первый атлас (для союзников), соперникам грузится он же.
До 0.9.17.0 все работало.
я все понял .. просто в этом патче в XVM не работает страница загрузки (((
-
Не получается изменить иконки на начальном экране. Подскажите в чём беда.
Атласы находятся по адресу: C:\Games\World_of_Tanks\res_mods\mods\icons\atlases
можно вылечить этим файлом +
конечно зеркалить не будет , но и такой шляпы не будет ))))
просто в этом патче в xvm не работает страница загрузки ...
-
можно вылечить этим файлом +
конечно зеркалить не будет , но и такой шляпы не будет ))))
-
поменял бы ... но я уже писал что не разбираюсь в этом , не мастер в этом как некоторые ... и поэтому нужна помощь!!!
я пробовал на примерах что нашел ,
код1
[Files] Source: "MODS\WOT_TWEAKER\Отключения тумана\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(1); Source: "MODS\WOT_TWEAKER\Отключить облака\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(2); Source: "MODS\WOT_TWEAKER\Отключить тень под танками\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(3); Source: "MODS\WOT_TWEAKER\Отключить эффект движения деревьев\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(4); Source: "MODS\WOT_TWEAKER\Отключить эффекты разрушения объектов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(5); Source: "MODS\WOT_TWEAKER\Отключить эффект взрыва снарядов и попадания в объекты\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(6); Source: "MODS\WOT_TWEAKER\Отключить эффекты уничтожения танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(7); Source: "MODS\WOT_TWEAKER\Отключить эффекты попадания по танкам\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(8); Source: "MODS\WOT_TWEAKER\Отключить эффекты проявления погоды и дым от объектов на картах\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(9); Source: "MODS\WOT_TWEAKER\Отключить дым и пламя от выстрелов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(10); Source: "MODS\WOT_TWEAKER\Отключить дым от уничтоженных танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(11); Source: "MODS\WOT_TWEAKER\Отключить дым из выхлопных труб танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(12); [code] var Tweaker: TNewCheckListBox; Procedure InitializeWizard1(); begin Tweaker:=TNewCheckListBox.Create(WizardForm); Tweaker.Parent:=WizardForm.SelectTasksPage; Tweaker.Left:=ScaleX(32); Tweaker.Top:=ScaleY(21); Tweaker.Width:=ScaleX(729); Tweaker.Height:=ScaleY(248); Tweaker.Cursor:=crHand; Tweaker.BorderStyle:=bsSingle; Tweaker.Color:=clWindow; Tweaker.DragCursor:=crHand; Tweaker.DragMode:=dmAutomatic; Tweaker.Flat:=True; Tweaker.Font.Color:=clBlue; Tweaker.Font.Height:=-12; Tweaker.Font.Name:='@Arial Unicode MS'; Tweaker.ParentFont:=False; Tweaker.ShowLines:=True; Tweaker.TreeViewStyle:=True; Tweaker.ItemHeightFixed:=True; //**************************************************************************// Tweaker.AddCheckBox('<<WoT Tweaker Plus>>', '', 0, True, True, True, False, nil); //0 Tweaker.AddCheckBox('Отключить туман', '0.1 Мб', 1, True, True, False, True, nil); //1 Tweaker.AddCheckBox('Отключить отображение облаков', '0.1 Мб', 1, True, True, False, True, nil); //2 Tweaker.AddCheckBox('Отключить тень под танками', '0.1 Мб', 1, True, True, False, True, nil); //3 Tweaker.AddCheckBox('Отключить эффект движения деревьев', '0.1 Мб', 1, True, True, False, True, nil); //4 Tweaker.AddCheckBox('Отключить эффекты разрушения объектов', '0.1 Мб', 1, True, True, False, True, nil); //5 Tweaker.AddCheckBox('Отключить эффект взрыва снарядов и попадания в объекты', '0.1 Мб', 1, True, True, False, True, nil); //6 Tweaker.AddCheckBox('Отключить эффекты уничтожения танков', '0.1 Мб', 1, True, True, False, True, nil); //7 Tweaker.AddCheckBox('Отключить эффекты попадания по танкам', '0.1 Мб', 1, True, True, False, True, nil); //8 Tweaker.AddCheckBox('Отключить эффекты проявления погоды и дым от объектов на картах', '0.1 Мб', 1, True, True, False, True, nil); //9 Tweaker.AddCheckBox('Отключить дым и пламя от выстрелов', '0.1 Мб', 1, True, True, False, True, nil); //10 Tweaker.AddCheckBox('Отключить дым от уничтоженных танков', '0.1 Мб', 1, True, True, False, True, nil); //11 Tweaker.AddCheckBox('Отключить дым из выхлопных труб танков', '0.1 Мб', 1, True, True, False, True, nil); //12 end; //**************************************************************************// Function CheckBoxChecked(Idx: Integer): Boolean; begin case Idx of 0: Result := Tweaker.Checked[0]; 1: Result := Tweaker.Checked[1]; 2: Result := Tweaker.Checked[2]; 3: Result := Tweaker.Checked[3]; 4: Result := Tweaker.Checked[4]; 5: Result := Tweaker.Checked[5]; 6: Result := Tweaker.Checked[6]; 7: Result := Tweaker.Checked[7]; 8: Result := Tweaker.Checked[8]; 9: Result := Tweaker.Checked[9]; 10: Result := Tweaker.Checked[10]; 11: Result := Tweaker.Checked[11]; 12: Result := Tweaker.Checked[12]; end; end;
код2
[Tasks] Name: "Tweaker"; Description: "<<WoT Tweaker Plus>>"; Name: "Tweaker\1"; Description: "Отключить туман"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\2"; Description: "Отключить отображение облаков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\3"; Description: "Отключить тень под танками"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\4"; Description: "Отключить эффект движения деревьев"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\5"; Description: "Отключить эффекты разрушения объектов"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\6"; Description: "Отключить эффект взрыва снарядов и попадания в объекты"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\7"; Description: "Отключить эффекты уничтожения танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\8"; Description: "Отключить эффекты попадания по танкам"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\9"; Description: "Отключить эффекты проявления погоды и дым от объектов на картах"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\10"; Description: "Отключить дым и пламя от выстрелов"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\11"; Description: "Отключить дым от уничтоженных танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\12"; Description: "Отключить дым из выхлопных труб танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; [Files] Source: "MODS\WOT_TWEAKER\Отключения тумана\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\1; Source: "MODS\WOT_TWEAKER\Отключить облака\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\2; Source: "MODS\WOT_TWEAKER\Отключить тень под танками\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\3; Source: "MODS\WOT_TWEAKER\Отключить эффект движения деревьев\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\4; Source: "MODS\WOT_TWEAKER\Отключить эффекты разрушения объектов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\5; Source: "MODS\WOT_TWEAKER\Отключить эффект взрыва снарядов и попадания в объекты\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\6; Source: "MODS\WOT_TWEAKER\Отключить эффекты уничтожения танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\7; Source: "MODS\WOT_TWEAKER\Отключить эффекты попадания по танкам\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\8; Source: "MODS\WOT_TWEAKER\Отключить эффекты проявления погоды и дым от объектов на картах\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\9; Source: "MODS\WOT_TWEAKER\Отключить дым и пламя от выстрелов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\10; Source: "MODS\WOT_TWEAKER\Отключить дым от уничтоженных танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\11; Source: "MODS\WOT_TWEAKER\Отключить дым из выхлопных труб танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\12;
были и другие варианты , но увы то получается ...
-
Посмотри здесь если сам не воспользовался поиском по теме... http://www.koreanran...паков/?p=287645
Увы не работает .... там в окне Components, а у меня идет после Components ...
-
....
Не клянчи, а учи тут помогают только тому кто хоть что-то учит и понимает, а за тебя никто ничего делать не будет.... есть раздел форума платных услуг там и спрашивай после оплаты...
И сделают все за тебя.....
когда просил помощи , я имел ввиду что мне нужна помощь !!! а не то что клянчил, и что бы за меня все сделали....
Я уже сам пробовал сделать, но увы у меня не получилось ...
мой код
[Files] Source: "MODS\WOT_TWEAKER\Отключения тумана\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\1; Source: "MODS\WOT_TWEAKER\Отключить облака\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\2; Source: "MODS\WOT_TWEAKER\Отключить тень под танками\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\3; Source: "MODS\WOT_TWEAKER\Отключить эффект движения деревьев\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\4; Source: "MODS\WOT_TWEAKER\Отключить эффекты разрушения объектов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\5; Source: "MODS\WOT_TWEAKER\Отключить эффект взрыва снарядов и попадания в объекты\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\6; Source: "MODS\WOT_TWEAKER\Отключить эффекты уничтожения танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\7; Source: "MODS\WOT_TWEAKER\Отключить эффекты попадания по танкам\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\8; Source: "MODS\WOT_TWEAKER\Отключить эффекты проявления погоды и дым от объектов на картах\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\9; Source: "MODS\WOT_TWEAKER\Отключить дым и пламя от выстрелов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\10; Source: "MODS\WOT_TWEAKER\Отключить дым от уничтоженных танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\11; Source: "MODS\WOT_TWEAKER\Отключить дым из выхлопных труб танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\12; [Tasks] Name: "Tweaker"; Description: "<<WoT Tweaker>>"; Name: "Tweaker\1"; Description: "Отключить туман"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\2"; Description: "Отключить отображение облаков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\3"; Description: "Отключить тень под танками"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\4"; Description: "Отключить эффект движения деревьев"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\5"; Description: "Отключить эффекты разрушения объектов"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\6"; Description: "Отключить эффект взрыва снарядов и попадания в объекты"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\7"; Description: "Отключить эффекты уничтожения танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\8"; Description: "Отключить эффекты попадания по танкам"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\9"; Description: "Отключить эффекты проявления погоды и дым от объектов на картах"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\10"; Description: "Отключить дым и пламя от выстрелов"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\11"; Description: "Отключить дым от уничтоженных танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked; Name: "Tweaker\12"; Description: "Отключить дым из выхлопных труб танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
нужно убрать ползунок (полосу прокрутки) или увеличить "окно" где пишутся чекбоксы.... (если не понятно написал сори)
на скрине видно надеюсь
-
извините, но я плохо разбираюсь в этом . .. но путь файла куда
может кто может помочь ! хочу создать отдельную страничку которая будет после выбора модов с выбором чебоксов отключения различных эффектов для повышения FPS (т.е. страницу WoT Tweaker) -
Всем Привет
искал в теме не нашел увы ...
может кто может помочь !
хочу создать отдельную страничку которая будет после выбора модов с выбором чебоксов отключения различных эффектов для повышения FPS (т.е. страницу WoT Tweaker)
-
писать бла бла бла лень
'скриншоты'
'info'
'beta'
'update'
'actual'
'мелкое описание'
Cостав мода:
mod_updater.pyc - непосредственно сам мод.
mod_updater.json - локальный файл настроек, его им¤ зависит от имени мода
Содержит текущую установленную версию модпака и ссылку на серверный конфиг
server.json - файл настроек, который должен находится на вашем сервере
Содержит новую версию модпака, ссылку для скачивания новой версии, заголовок окон и содержание сообщений
// макросы: {localVer} - текуща¤ верси¤ модпака
// макросы: {servVer} - нова¤ верси¤ модпака
// макросы: {author} - автор модпака
// макросы: {wotVer} - верси¤ игры
"icon": "", // иконка
"bgIcon": "", // фоновое изображение
"lifeTime": 6, // время показа сообщения (в секундах)
"hidingAnimationSpeed": 4, // время затухания сообщения (в секундах)
"typeUrl": "http://goo.gl/yA2LUZ",// ссылка
// openPopUp - открыть диалоговое окно
// openClose - больше не показывать сообщение
// openUrlUp - открыть ссылку typeUrl
v1 содержит: новую версию модпака, бета версию модпака, актуальную версию модпака и окно для информации
v2 содержит: новую версию модпака
появилась проблема (((
- не принимаются приглашения во взводы, КБ, трени и т.д.
- результаты боя не доступны
Т.е при нажатии на "принять" (приглос) или "подробнее" (результат боя) просто ничего не происходит....
-
ВСЕМ Привет!
а можно сделать чтобы Лог Урона (damageLog) переносился в право при включении "детального и суммарного урона" от WG?
если нет пока такой возможности может в будущем разработчики сделают, буду рад ...
и еще можно как можно сделать отображение заблокированного и засвеченного урона как DamageLog от GambitER ???
-
update 9.16 клик
после обновления игры сообщения появляются в центре уведомлений в закладке "Личные уведомления" увы это мало заметно((( можно как нибудь сделать чтобы они появлялись в закладке "Информационные уведомления" ?
-
И каждый бой приходиться ее увеличивать. Как сделать так что бы не дрочить плюсик каждый бой)))
Версия сегодняшняя.
версия 6567 тоже такая же история, как решается ?
-
можно
[Setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf}\My Application [code] { RedesignWizardFormBegin } // Не удалять эту строку! // Не изменять эту секцию. Она создана автоматически. var NewCheckBox1: TNewCheckBox; procedure NewCheckBox1Click(Sender: TObject); forward; procedure RedesignWizardForm; begin { NewCheckBox1 } NewCheckBox1 := TNewCheckBox.Create(WizardForm); with NewCheckBox1 do begin Parent := WizardForm.InstallingPage; Left := ScaleX(32); Top := ScaleY(88); Width := ScaleX(97); Height := ScaleY(17); Caption := 'NewCheckBox1'; OnClick := @NewCheckBox1Click; end; NewCheckBox1.TabOrder := 3; { ReservationBegin } // Вы можете добавить ваш код здесь. { ReservationEnd } end; // Не изменять эту секцию. Она создана автоматически. { RedesignWizardFormEnd } // Не удалять эту строку! procedure NewCheckBox1Click(Sender: TObject); var ErrorCode: Integer; begin ShellExec('open', 'http://aces.gg/', '', '', SW_SHOW, ewNoWait, ErrorCode); end; procedure InitializeWizard(); begin RedesignWizardForm; end;
блин я так и не понял что и как сделать ((( как результат у меня просто происходит ошибка.
- может кто подскажет как сделать этот код
[Tasks] Name: "gotositexvm"; Description: "Перейти на сайт XVM`а"; GroupDescription: "Дополнительные задачи" Name: "gotositeauthor"; Description: "Перейти на сайт автора модпака"; GroupDescription: "Дополнительные задачи" [Run] Filename: "http://www.modxvm.com/"; Flags: shellexec; Tasks: gotositexvm Filename: "http://..."; Flags: shellexec; Tasks: gotositeautor
в отдельном, всплывающем окне. как на скрине в посте http://www.koreanrandom.com/forum/topic/9050-инсталлятор-для-модпаков/?p=351950
просто меня выходит, что в центре портиться фон.
-
если подумать, то, думаю, можно это сделать, но самый лучший пример:
а можно его на страницу "распаковки файлов" поставить?
если нет то буду надеяться, что кто нибудь с выводов на отдельное окно в концу установки поможет
- 1
-
Тогда попробуйте этот вариант:
Код
[Tasks] Name: "gotositexvm"; Description: "Перейти на сайт XVM`а"; GroupDescription: "Дополнительные задачи" Name: "gotositeauthor"; Description: "Перейти на сайт автора модпака"; GroupDescription: "Дополнительные задачи" [Run] Filename: "http://www.modxvm.com/"; Flags: shellexec; Tasks: gotositexvm Filename: "http://..."; Flags: shellexec; Tasks: gotositeautor
ошибку выдает ;( скрин прикрепил .....
UPD: все нашел ошибку ! ... спасибо
gad_575__2 , Большое Спасибо тебе!
сори, я наверное не правильно объяснил !
можно сделать чтобы это сообщение выходило в ОТДЕЛЬНОМ маленьком окне или в голове возник 2 вариант - странице распаковки файлов / модов
скрины примеров выложил
-
Попробуйте этот вариант:
Код
[Run] Filename: "http://www.modxvm.com/"; Description: "Перейти на сайт XVM`а"; Flags: postinstall shellexec Filename: "http://..."; Description: "Перейти на сайт автора модпака"; Flags: postinstall shellexec
спасибо работает! только увы фон портит ...
а можно сделать так чтобы это сообщение выходило в отдельном окне?
-
подскажите код, чтобы в конце установки можно было при желании перейти на сайт активации XVMа и на сайт "автора пака"
-
Без использования кастомного сохранения - нет.
а как это реализовать ?
[1.0.2.1/8445] [Superseded] Вылеты
in Testing, Bug Reports
Posted
Привет всем. Увы у меня вылеты при загрузке в бой остались которые шли с версии 7.6.3 ... на версии 7.6.2 их не было.
стоит ночник 8427