Kotyarko_O Posted July 14, 2014 Share Posted July 14, 2014 который наведен на компонент Смотри 373 строку. Ekspoint.rar @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted July 14, 2014 Share Posted July 14, 2014 Смотри 373 строку. Ekspoint.rar спасибо @ Quote Link to comment Short link Share on other sites More sharing options...
liked Posted July 15, 2014 Share Posted July 15, 2014 @Ekspoint, так, ок, увидел 2 положения для всего: курсор не наведён на компонент, курсор наведён на компонент. В каком случае менять цвет текста? Какие скрипты? я же писал выше Давай харе отлынивать помоги осилить скрипт, нужно запилить страницу компонентов и бекапа, тут не могу не как понять как заставить их отображаться Скрипт - BigMusic_v2.rar вот хочу так в этом скрипте - 122877a4.jpg @ Quote Link to comment Short link Share on other sites More sharing options...
Andrew_Dark Posted July 15, 2014 Share Posted July 15, 2014 а мне наоборот, который отображается,когда мышь не наведена на компонент. И ещё, как заменить кнопки далее, назад, установить и тд на свою картинку кнопки??? @ Quote Link to comment Short link Share on other sites More sharing options...
MEDNIKs Posted July 15, 2014 Share Posted July 15, 2014 Парни можно ли скрыть форму OuterNotebook ,если да то как это сделать? @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted July 15, 2014 Share 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 Link to comment Short link Share on other sites More sharing options...
MEDNIKs Posted July 15, 2014 Share Posted July 15, 2014 Сомневаюсь, что тебе это нужно. ты прав! Напишите плиз код на очистку папки рес модс! @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted July 15, 2014 Share 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 Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted July 15, 2014 Share Posted July 15, 2014 @MEDNIKs, http://www.koreanrandom.com/forum/topic/9050-инсталлятор-для-модпаков/?p=157502 @Ekspoint, под спойлер длинные кода прячь. @ Quote Link to comment Short link Share on other sites More sharing options...
MEDNIKs Posted July 15, 2014 Share Posted July 15, 2014 (edited) Спасибо парни но не получается его в свой код внедрить! Вернее в скрипт! Edited July 15, 2014 by MEDNIKs @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted July 15, 2014 Share Posted July 15, 2014 Спасибо парни но не получается его в свой код внедрить! Вернее в скрипт! 100% неправильно совмещаешь процедуры InitializeWizard, CurStepChanged. @ Quote Link to comment Short link Share on other sites More sharing options...
MEDNIKs Posted July 15, 2014 Share Posted July 15, 2014 (edited) 100% неправильно совмещаешь процедуры InitializeWizard, CurStepChanged. Можешь поподробней описать? Или может можно прикрепить эти фунции к уже имеющимся NewRadioButton? Edited July 15, 2014 by MEDNIKs @ Quote Link to comment Short link Share on other sites More sharing options...
Andrew_Dark Posted July 15, 2014 Share Posted July 15, 2014 А как изменить кнопку назад, если на одних страницах она есмть а на других нет??? как сделать это и ещё как узнать название страниц? @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted July 15, 2014 Share 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 Link to comment Short link Share on other sites More sharing options...
MEDNIKs Posted July 15, 2014 Share Posted July 15, 2014 За что отвечает форма Bevel1? @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted July 15, 2014 Share Posted July 15, 2014 (edited) За что отвечает форма Bevel1? Горизонтальная линия, отделяющая нижнюю панель (где находятся кнопки "Далее", "Назад" и т.д.) от основы. 'Отметил на скрине:' Edited July 15, 2014 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
MEDNIKs Posted July 15, 2014 Share Posted July 15, 2014 Горизонтальная линия, отделяющая нижнюю панель (где находятся кнопки "Далее", "Назад" и т.д.) от основы. Спасибо! @ Quote Link to comment Short link Share on other sites More sharing options...
Andrew_Dark Posted July 15, 2014 Share Posted July 15, 2014 раздел Parent это там присваивается название страницы, на которой будет отображаться моя кнопка??? а как инстал будет знать, что именно эта кнопка и именно на этой странице будет заменена моей??? @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted July 15, 2014 Share Posted July 15, 2014 раздел Parent это там присваивается название страницы, на которой будет отображаться моя кнопка??? а как инстал будет знать, что именно эта кнопка и именно на этой странице будет заменена моей??? Башка у меня сейчас много в себе не держит. Напомни, о каком ты скрипте? p.s. Parent - это не раздел. @ Quote Link to comment Short link Share on other sites More sharing options...
MEDNIKs Posted July 15, 2014 Share Posted July 15, 2014 Ребята помогите создать новую страницу,не хватает тяму!Нужна страница между приветствием и выбором дериктории! скрипт.rar @ Quote Link to comment Short link Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.