Ekspoint 2,122 #243370 Posted January 12, 2015 А кто будет угадывать, где это изображение должно отображаться? вот так Parent := WizardForm.NextButton; Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #243371 Posted January 12, 2015 (edited) , вообще, лучше сначала создать панель, а на ней уже построить изображение. Edited January 12, 2015 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #243372 Posted January 12, 2015 , вообще, лучше сначала создать панель, а на ней уже построить изображение. ой,тупанул а для кнопки установить и завершить как сделать Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #243373 Posted January 12, 2015 (edited) а для кнопки установить и завершить как сделать По такому же принципу. 'Вот рабочий пример для кнопки "Далее":' [Files] Source: WizardForm.MyImage.bmp; Flags: dontcopy [Code] Var MyImage: TBitmapImage; MyImagePanel: TPanel; Procedure OrigNextButtonClick(Sender: TObject); begin WizardForm.NextButton.OnClick(nil); end; Procedure InitializeWizard(); begin ExtractTemporaryFile('WizardForm.MyImage.bmp'); MyImagePanel := TPanel.Create(WizardForm); MyImagePanel.Parent := WizardForm; //Где-то видел более компактный способ, не смог вспомнить\\ MyImagePanel.SetBounds(WizardForm.NextButton.Left, WizardForm.NextButton.Top, WizardForm.NextButton.Width, WizardForm.NextButton.Height); MyImage := TBitmapImage.Create(MyImagePanel); MyImage.Parent := MyImagePanel; MyImage.Enabled := True MyImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.MyImage.bmp')); MyImage.OnClick := @OrigNextButtonClick; WizardForm.NextButton.Hide; MyImage.Show; end; Edited January 12, 2015 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #243377 Posted January 12, 2015 По такому же принципу. 'Вот рабочий пример для кнопки "Далее":' [Files] Source: WizardForm.MyImage.bmp; Flags: dontcopy [Code] Var MyImage: TBitmapImage; MyImagePanel: TPanel; Procedure OrigNextButtonClick(Sender: TObject); begin WizardForm.NextButton.OnClick(nil); end; Procedure InitializeWizard(); begin ExtractTemporaryFile('WizardForm.MyImage.bmp'); MyImagePanel := TPanel.Create(WizardForm); MyImagePanel.Parent := WizardForm; //Где-то видел более компактный способ, не смог вспомнить\\ MyImagePanel.SetBounds(WizardForm.NextButton.Left, WizardForm.NextButton.Top, WizardForm.NextButton.Width, WizardForm.NextButton.Height); MyImage := TBitmapImage.Create(MyImagePanel); MyImage.Parent := MyImagePanel; MyImage.Enabled := True MyImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.MyImage.bmp')); MyImage.OnClick := @OrigNextButtonClick; WizardForm.NextButton.Hide; MyImage.Show; end; а панель для чего? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #243378 Posted January 12, 2015 а панель для чего? Без него изображение не отобразится, визард может перекрыть. Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #243379 Posted January 12, 2015 Без него изображение не отобразится, визард может перекрыть. ах да,точно как называется кнопка установки? я написал instalButton но ошибка Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #243380 Posted January 12, 2015 (edited) как называется кнопка установки? я написал instalButton но ошибка Ты с потолка это всё берёшь, я не пойму? Ведь есть справка, редактор.. NextButton, так и называется. Для манипуляций с ней на страницах, где она изменяется программой, нужно применять процедуру CurPageChanged. Edited January 12, 2015 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #243381 Posted January 12, 2015 Ты с потолка это всё берёшь, я не пойму? Ведь есть справка, редактор.. NextButton, так и называется. Для манипуляций с ней на страницах, где она изменяется программой, нужно применять процедуру CurPageChanged. я справку не смотрел Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #243382 Posted January 12, 2015 я справку не смотрел Это первое, что надо смотреть. Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #243383 Posted January 12, 2015 Это первое, что надо смотреть. за все время одни раз смотрел) Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #243384 Posted January 12, 2015 за все время одни раз смотрел) Я бы по этому поводу не радовался. Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #243395 Posted January 12, 2015 Ботва же есть. И скрывать ничего не надо, и крутить с панелями. Quote Share this post Link to post Short link Share on other sites
Kurzdor 460 #243608 Posted January 13, 2015 (edited) del Edited November 19, 2020 by Kurzdor clean up Quote Share this post Link to post Short link Share on other sites
-zav- 188 #243614 Posted January 13, 2015 Как сделать чтобы не было файлов удаления модпака? Тоесть файлы unistall.exe и т.д? видимо так: [setup]// Не создавать деинсталлятор.Uninstallable=no // не показывать диалог выбора языка ShowLanguageDialog=no // НЕ добавлять папку World_of_Tanks. AppendDefaultDirName = no // не выводить сообщение "такая папка уже существует" DirExistsWarning=no // Сворачивание компонентов в главную строку ;ComponentsListTVStyle=yes // Отключение страниц. DisableProgramGroupPage=yes // Выводит сообщение об авторских правах в правом нижнем углу фонового окна инсталятора ;AppCopyright=Copyright © 2014 ZAV, Inc. // Не создавать запись в меню Установка и удаление программ Панели управления. ;CreateUninstallRegKey=yes //Создание ключа деинсталляции в зависимости от выбранного компонента ;CreateUninstallRegKey=not IsComponentSelected('portable') //Или так, если деинсталятор не нужен совсем ;Uninstallable=not IsComponentSelected('portable') // Не создавать деинсталлятор. Uninstallable=no Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #243641 Posted January 13, 2015 Всем добрый вечер. Как сделать чтобы не было файлов удаления модпака? Тоесть файлы unistall.exe и т.д? а зачем их убирать,как удалять то потом? Quote Share this post Link to post Short link Share on other sites
-zav- 188 #243656 Posted January 13, 2015 а зачем их убирать,как удалять то потом? если модпак никуда не устанавливается то и удалять не надо.А что касается модов то тут палка о двух концах. Например поставил прицел из модпака, потом не понравился поставил прицел левый не из модпака.Но после деинсталяции модпак удалит такие файлы которые используют многие прицелы ( CameraNode.pyc, __init__.pyc, sights.pyc, sights.xml ) Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #243659 Posted January 13, 2015 если модпак никуда не устанавливается то и удалять не надо. а если установил,то как потом удалить Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #243663 Posted January 13, 2015 (edited) Но после деинсталяции модпак удалит такие файлы которые используют многие прицелы ( CameraNode.pyc, __init__.pyc, sights.pyc, sights.xml ) Вернее удалит все файлы, которые совпадают по имени и расположению с теми, которые были установлены этим модПаком и занесены в список деинсталлятора. Но возможно и не только по этим атрибутам. Манифест компилятора записывает и размер, и суммы, и версию файлов. А что записывается в деинсталлятор кроме имени и расположения мне пока не известно. Edited January 13, 2015 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #243798 Posted January 14, 2015 А можно в деинсталляцию реализовать музыку? Типо такого "не удаляй меня!!:)" Quote Share this post Link to post Short link Share on other sites