Kotyarko_O 1,906 #199582 Posted July 14, 2014 который наведен на компонент Смотри 373 строку. Ekspoint.rar Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #199583 Posted July 14, 2014 Смотри 373 строку. Ekspoint.rar спасибо Quote Share this post Link to post Short link Share on other sites
liked 19 #199621 Posted July 15, 2014 @Ekspoint, так, ок, увидел 2 положения для всего: курсор не наведён на компонент, курсор наведён на компонент. В каком случае менять цвет текста? Какие скрипты? я же писал выше Давай харе отлынивать помоги осилить скрипт, нужно запилить страницу компонентов и бекапа, тут не могу не как понять как заставить их отображаться Скрипт - BigMusic_v2.rar вот хочу так в этом скрипте - 122877a4.jpg Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #199625 Posted July 15, 2014 а мне наоборот, который отображается,когда мышь не наведена на компонент. И ещё, как заменить кнопки далее, назад, установить и тд на свою картинку кнопки??? Quote Share this post Link to post Short link Share on other sites
MEDNIKs 2 #199639 Posted July 15, 2014 Парни можно ли скрыть форму OuterNotebook ,если да то как это сделать? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #199646 Posted July 15, 2014 И ещё, как заменить кнопки далее, назад, установить и тд на свою картинку кнопки??? 'Вот, на примере кнопки "обзор", изображение вставляется точно по тем же координатам, что и кнопка:' [Files] Source: myimage.bmp; DestDir: {tmp}; Flags: dontcopy [_Code] var MyImage: TBitmapImage; procedure InitializeWizard; begin ExtractTemporaryFile('myimage.bmp'); MyImage := TBitmapImage.Create(WizardForm); With MyImage do begin Top:=100; Left:=330; Width:=100; Height:=30; Parent:=WizardForm.SelectDirPage; Bitmap.LoadFromFile(ExpandConstant('{tmp}\myimage.bmp')); end; end; Вот ещё да примера: http://forum.ru-board.com/topic.cgi?forum=5&topic=30413&start=2562&limit=1&m=13#1 http://forum.ru-board.com/topic.cgi?forum=5&topic=35146&start=1299&limit=1&m=4#1 я же писал выше аа, тот. Я в него не хочу лезть) Парни можно ли скрыть форму OuterNotebook ,если да то как это сделать? Сомневаюсь, что тебе это нужно. WizardForm.OuterNotebook.Visible:=False; Quote Share this post Link to post Short link Share on other sites
MEDNIKs 2 #199661 Posted July 15, 2014 Сомневаюсь, что тебе это нужно. ты прав! Напишите плиз код на очистку папки рес модс! Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #199669 Posted July 15, 2014 ты прав! Напишите плиз код на очистку папки рес модс! #include "SHFileOperation.iss" var BackupPage: TWizardPage; DeleteRadioButton, MoveRadioButton, NoneRadioButton: TNewRadioButton;const BackupDescText = 'Во избежание проблем совместимости и конфликтов между модификациями, рекомендуется удалить все установленные на данный момент модификации клиента.'; DeleteDescText = 'Установщик удалит все файлы в папках.'; MoveDescText = 'Установщик сделает резервную копию всех файлов в папках.'; NoneDescText = 'Установщик оставит всё как есть.';function BackupCheck_1(): Boolean;var BackupDescLabel, DeleteDescLabel, MoveDescLabel, NoneDescLabel: TLabel;begin BackupPage:=CreateCustomPage(wpWelcome, 'Создание резервных копий файлов перед установкой', 'Пожалуйста, прочтите следующую важную информацию перед тем, как продолжить.'); BackupDescLabel:=TLabel.Create(WizardForm); BackupDescLabel.Parent:=BackupPage.Surface; BackupDescLabel.Left:=110; BackupDescLabel.Top:=10; BackupDescLabel.Width:=BackupPage.SurfaceWidth; BackupDescLabel.Height:=90; BackupDescLabel.AutoSize:=False; BackupDescLabel.Wordwrap:=True; BackupDescLabel.Caption:=BackupDescText; DeleteRadioButton:=TNewRadioButton.Create(WizardForm); DeleteRadioButton.Parent:=BackupPage.Surface; DeleteRadioButton.Checked:=True; DeleteRadioButton.Top:=105; DeleteRadioButton.Left:=110; DeleteRadioButton.Width:=BackupPage.SurfaceWidth; DeleteRadioButton.Font.Style:=[fsBold]; DeleteRadioButton.Font.Size:=9; DeleteRadioButton.Caption:='Удалить файлы' DeleteDescLabel:=TLabel.Create(WizardForm); DeleteDescLabel.Parent:=BackupPage.Surface; DeleteDescLabel.Left:=110; DeleteDescLabel.Top:=DeleteRadioButton.Top + DeleteRadioButton.Height + 4; DeleteDescLabel.Width:=BackupPage.SurfaceWidth; DeleteDescLabel.Height:=40; DeleteDescLabel.AutoSize:=False; DeleteDescLabel.Wordwrap:=True; DeleteDescLabel.Caption:=DeleteDescText; MoveRadioButton:=TNewRadioButton.Create(WizardForm); MoveRadioButton.Parent:=BackupPage.Surface; MoveRadioButton.Checked:=False; MoveRadioButton.Top:=180; MoveRadioButton.Left:=110; MoveRadioButton.Width:=BackupPage.SurfaceWidth; MoveRadioButton.Font.Style:=[fsBold]; MoveRadioButton.Font.Size:=9; MoveRadioButton.Caption:='Сделать резервную копию файлов' MoveDescLabel:=TLabel.Create(WizardForm); MoveDescLabel.Parent:=BackupPage.Surface; MoveDescLabel.Left:=110; MoveDescLabel.Top:=MoveRadioButton.Top + MoveRadioButton.Height + 4; MoveDescLabel.Width:=BackupPage.SurfaceWidth; MoveDescLabel.Height:=40; MoveDescLabel.AutoSize:=False; MoveDescLabel.Wordwrap:=True; MoveDescLabel.Caption:=MoveDescText; NoneRadioButton:=TNewRadioButton.Create(WizardForm); NoneRadioButton.Parent:=BackupPage.Surface; NoneRadioButton.Checked:=False; NoneRadioButton.Top:=255; NoneRadioButton.Left:=110; NoneRadioButton.Width:=BackupPage.SurfaceWidth; NoneRadioButton.Font.Style:=[fsBold]; NoneRadioButton.Font.Size:=9; NoneRadioButton.Caption:='Ничего не трогать' NoneDescLabel:=TLabel.Create(WizardForm); NoneDescLabel.Parent:=BackupPage.Surface; NoneDescLabel.Left:=110; NoneDescLabel.Top:=NoneRadioButton.Top + NoneRadioButton.Height + 4; NoneDescLabel.Width:=BackupPage.SurfaceWidth; NoneDescLabel.Height:=40; NoneDescLabel.AutoSize:=False; NoneDescLabel.Wordwrap:=True; NoneDescLabel.Caption:=NoneDescText;end;function BackupCheck_2(): Boolean;begin If DeleteRadioButton.Checked thenbegin DelTree(ExpandConstant('{app}\res_mods\{#Patch}'), True, True, True); DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True); CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));end;end;function BackupCheck_3(): Boolean;begin If MoveRadioButton.Checked thenbegin MoveDir(ExpandConstant('{app}\res_mods\{#Patch}\'),ExpandConstant('{app}\res_mods\backup\{#Patch}')); MoveDir(ExpandConstant('{app}\res_mods\xvm\'),ExpandConstant('{app}\res_mods\backup\xvm')); CreateDir(ExpandConstant('{app}\res_mods\{#Patch}')); DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);end;end;procedure CurStepChanged(CurStep: TSetupStep);begin If CurStep=ssInstall thenbegin BackupCheck_2(); BackupCheck_3();end;end;procedure InitializeWizard1();begin BackupCheck_1();end; Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #199670 Posted July 15, 2014 @MEDNIKs, http://www.koreanrandom.com/forum/topic/9050-инсталлятор-для-модпаков/?p=157502 @Ekspoint, под спойлер длинные кода прячь. Quote Share this post Link to post Short link Share on other sites
MEDNIKs 2 #199678 Posted July 15, 2014 (edited) Спасибо парни но не получается его в свой код внедрить! Вернее в скрипт! Edited July 15, 2014 by MEDNIKs Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #199679 Posted July 15, 2014 Спасибо парни но не получается его в свой код внедрить! Вернее в скрипт! 100% неправильно совмещаешь процедуры InitializeWizard, CurStepChanged. Quote Share this post Link to post Short link Share on other sites
MEDNIKs 2 #199681 Posted July 15, 2014 (edited) 100% неправильно совмещаешь процедуры InitializeWizard, CurStepChanged. Можешь поподробней описать? Или может можно прикрепить эти фунции к уже имеющимся NewRadioButton? Edited July 15, 2014 by MEDNIKs Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #199683 Posted July 15, 2014 А как изменить кнопку назад, если на одних страницах она есмть а на других нет??? как сделать это и ещё как узнать название страниц? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #199684 Posted July 15, 2014 (edited) как узнать название страниц? В справке есть, + можно посмотреть в редакторе форм. А как изменить кнопку назад, если на одних страницах она есмть а на других нет? Её нет только на первой странице и на странице окончания распаковки. Они там и не нужны. Можешь поподробней описать? 'Простое совмещение одноимённых процедур:' Procedure InitializeWizard1(); begin ... end; Procedure InitializeWizard(); begin ... InitializeWizard1(); end; @AtotIK, слушай, нужна твоя помощь. Сделал код, который создаёт кнопку, которая по нажатию открывает созданную форму (но не суть), мне нужно, чтобы эта кнопка показывалась на первой и последней странице. Дошёл до такого: procedure CurPageChanged(CurPage: Integer); begin case CurPage of wpWelcome: MyButton.Visible; wpFinished: MyButton.Visible; else MyButton.Hide; end; end; Но показывается только на первой странице. Вот весь скрипт: 1.rar Edited July 15, 2014 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
MEDNIKs 2 #199693 Posted July 15, 2014 За что отвечает форма Bevel1? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #199696 Posted July 15, 2014 (edited) За что отвечает форма Bevel1? Горизонтальная линия, отделяющая нижнюю панель (где находятся кнопки "Далее", "Назад" и т.д.) от основы. 'Отметил на скрине:' Edited July 15, 2014 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
MEDNIKs 2 #199697 Posted July 15, 2014 Горизонтальная линия, отделяющая нижнюю панель (где находятся кнопки "Далее", "Назад" и т.д.) от основы. Спасибо! Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #199709 Posted July 15, 2014 раздел Parent это там присваивается название страницы, на которой будет отображаться моя кнопка??? а как инстал будет знать, что именно эта кнопка и именно на этой странице будет заменена моей??? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #199710 Posted July 15, 2014 раздел Parent это там присваивается название страницы, на которой будет отображаться моя кнопка??? а как инстал будет знать, что именно эта кнопка и именно на этой странице будет заменена моей??? Башка у меня сейчас много в себе не держит. Напомни, о каком ты скрипте? p.s. Parent - это не раздел. Quote Share this post Link to post Short link Share on other sites
MEDNIKs 2 #199711 Posted July 15, 2014 Ребята помогите создать новую страницу,не хватает тяму!Нужна страница между приветствием и выбором дериктории! скрипт.rar Quote Share this post Link to post Short link Share on other sites