Jump to content
Korean Random

Andrew_Dark

User
  • Content Count

    398
  • Joined

  • Last visited

  • Days Won

    2

Everything posted by Andrew_Dark

  1. Данные вроде не воруют, бан только по глупости душевной;)
  2. Скинь ссылку на ваш клановый, я поржу тоже;) Кстати, вопрос: Есть страница, фоном которой является картинка в png формате. На этой картинке размещёно название чекбоксов для бекапа, сами чекбоксы отрисовываются скриптом из примеров в этой теме, вопрос состоит в том, как убрать фоновую часть, которая была изначально фоном для текста, тоесть чтобы чекбоксы остались активными на определённой странице, и текста возле них небыло, так как он уже написан на ранее приготовленной фоновой странице? Вот изначальный код бекапа: #include "SHFileOperation.iss" [code] var DarksoulBox:TListBox; DeleteRadioButton, MoveRadioButton, NoneRadioButton: TNewRadioButton; const DarksoulDescText = 'Во избежание проблем и конфликтов между модификациями, рекомендуется удалить все установленные на данный момент модификации клиента.'; DeleteDescText = 'Установщик очистит папку res_mods и установит новые модификации.'; MoveDescText = 'Установщик сделает резервную копию всех файлов в папке res_mods.'; NoneDescText = 'Установщик установит новые моды поверх старых.'; function BackupCheck_1(): Boolean; var Darksoul, BackupDescLabel, DeleteDescLabel, MoveDescLabel, NoneDescLabel: TLabel; begin Darksoul:=TLabel.Create(WizardForm.SelectDirPage); Darksoul.Parent:=WizardForm.SelectDirPage; Darksoul.Left:=ScaleX(5); Darksoul.Top:=ScaleY(145); Darksoul.Width:=ScaleX(715); Darksoul.Height:=ScaleY(45); Darksoul.AutoSize:=False; Darksoul.Wordwrap:=True; Darksoul.Caption:=DarksoulDescText; Darksoul.Font.Style:=[fsBold]; Darksoul.Font.Color:=clBlack; Darksoul.Font.Size:=9; //////////hfvrf djrheu////// DarksoulBox:=TListBox.Create(WizardForm.SelectDirPage); DarksoulBox.Parent:=WizardForm; DarksoulBox.Left:=ScaleX(0); DarksoulBox.Top:=ScaleY(210); DarksoulBox.Width:=ScaleX(715); DarksoulBox.Height:=ScaleY(300); DarksoulBox.Color:=$e9e9e9; /////////rjytw hfvrb/////////// /////////////////*****конец описания вверху бекапа******//////////////// DeleteRadioButton:=TNewRadioButton.Create(WizardForm.SelectDirPage); DeleteRadioButton.Parent:=WizardForm; DeleteRadioButton.Checked:=True; DeleteRadioButton.Top:=ScaleY(220); DeleteRadioButton.Left:=ScaleX(5); DeleteRadioButton.Width:=ScaleX(400); DeleteRadioButton.Font.Style:=[fsBold]; DeleteRadioButton.Font.Size:=9; DeleteRadioButton.Caption:='Удалить моды' DeleteDescLabel:=TLabel.Create(DarksoulBox); DeleteDescLabel.Parent:=DarksoulBox; DeleteDescLabel.Left:=ScaleX(15); DeleteDescLabel.Top:=ScaleY(40); DeleteDescLabel.Width:=ScaleX(400); DeleteDescLabel.Height:=ScaleY(20); DeleteDescLabel.AutoSize:=False; DeleteDescLabel.Wordwrap:=True; DeleteDescLabel.Caption:=DeleteDescText; DeleteDescLabel.Transparent:=True; MoveRadioButton:=TNewRadioButton.Create(WizardForm.SelectDirPage); MoveRadioButton.Parent:=WizardForm; MoveRadioButton.Checked:=False; MoveRadioButton.Top:=ScaleY(290); MoveRadioButton.Left:=ScaleX(5); MoveRadioButton.Width:=ScaleX(400); MoveRadioButton.Font.Style:=[fsBold]; MoveRadioButton.Font.Size:=9; MoveRadioButton.Caption:='Сделать резервную копию всех модов' MoveDescLabel:=TLabel.Create(DarksoulBox); MoveDescLabel.Parent:=DarksoulBox; MoveDescLabel.Left:=ScaleX(15); MoveDescLabel.Top:=ScaleY(115); MoveDescLabel.Width:=ScaleX(400); MoveDescLabel.Height:=ScaleY(40); MoveDescLabel.AutoSize:=False; MoveDescLabel.Wordwrap:=True; MoveDescLabel.Caption:=MoveDescText; MoveDescLabel.Transparent:=True; NoneRadioButton:=TNewRadioButton.Create(WizardForm.SelectDirPage); NoneRadioButton.Parent:=WizardForm; NoneRadioButton.Checked:=False; NoneRadioButton.Top:=ScaleY(365); NoneRadioButton.Left:=ScaleX(5); NoneRadioButton.Width:=ScaleX(400); NoneRadioButton.Font.Style:=[fsBold]; NoneRadioButton.Font.Size:=9; NoneRadioButton.Caption:='Ничего не трогать' NoneDescLabel:=TLabel.Create(DarksoulBox); NoneDescLabel.Parent:=DarksoulBox; NoneDescLabel.Left:=ScaleX(15); NoneDescLabel.Top:=ScaleY(185); NoneDescLabel.Width:=ScaleX(400); NoneDescLabel.Height:=ScaleY(40); NoneDescLabel.AutoSize:=False; NoneDescLabel.Wordwrap:=True; NoneDescLabel.Caption:=NoneDescText; NoneDescLabel.Transparent:=True; end; function BackupCheck_2(): Boolean; begin If DeleteRadioButton.Checked then begin DelTree(ExpandConstant('{app}\res_mods'), True, True, True); CreateDir(ExpandConstant('{app}\res_mods\{#Patch}')); end; end; function BackupCheck_3(): Boolean; begin If MoveRadioButton.Checked then begin MoveDir(ExpandConstant('{app}\res_mods\{#Patch}\'),ExpandConstant('{app}\Darksoul Modpack\Backup\{#Patch}')); MoveDir(ExpandConstant('{app}\res_mods\xvm\'),ExpandConstant('{app}\Darksoul Modpack\Backup\xvm')); CreateDir(ExpandConstant('{app}\res_mods\{#Patch}')); end; end; procedure InitializeWizard1(); begin BackupCheck_1(); end; P.S. BackupCheck_2(); и BackupCheck_3(); прописаны в Curstep, если что.
  3. Не застявляй меня тебе повторно говорить одно и тоже, потом не плачь, мол я ему сделал, а он меня кинул, ок? А нотации пусть тебе мамка читает;)
  4. А ведь я говорил ему забей, он не послушал, чуствую, это надолго... А ты чего злой такой, Что случилось? Может прописать ему на выходных сразу всё как надо и пусть не мучается? Делов то на пол часа с модами:) ты как считаешь?
  5. Долго вы думали, чтобы минус поставить и написать это:)
  6. С нашей? Котярко, я знал, что ты *****, но не настолько же;) Слушай, ты бы сопляк [мат] свой на привязи держал, ок? Держите Ваше мнение при себе, уважаемый;)
  7. Кстати, а как пофиксить для винды 8.1 отображение скроллбара, видел фикс на ос зоне, но не помню где.
  8. О, прикольно, отдельный установщик шрифтов получился:)
  9. Скинь код в лс, гляну Кстати, напомните кто либо склеротику как в форме что открывается кнопкой скроллбар прописать:)
  10. Обновил сборку, исправил невозможность загрузки инсталлятором озвучки "Сюрпрайз", изменил и дополнил интерфейс установщика, исправил прицел Келлерман, а также добавил для него вариант арт прицела.
  11. Ахах, вот где заковыка то была, спасибо, всё работатет:)
  12. Это ты про лог со страницы 11? У меня тоже самое происходит.
  13. не работает даже с темы автора, нифига не пишет, а ваш пишет что конфиг файл миссинг:(
  14. Ты сначала измени то убожество, что клану сотворил, не дизайн, а убожество, очки чтоли купи, кто тебя учил на тёмном цвете кривить текст темно-зелёным? Не видно почти даже что написано... Ты там маты написал, и боишься чтобы мамка не читанула?
  15. Исправил, работает, а тебе ржать никто не разрешал, "мастер"
×
×
  • Create New...