MEDNIKs 2 #199367 Posted July 13, 2014 С сылкой на сайт! Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #199369 Posted July 13, 2014 MEDNIKs, держи: [~~~~~~~~~~Code~~~~~~~~~~] var FAQButton: TButton; procedure FAQButtonClick(Sender: TObject); var ResultCode: Integer; begin ShellExec('open', 'http://google.ru/', '', '', SW_SHOWNORMAL, ewNoWait, ResultCode); end; procedure FAQButtonCreate(); begin FAQButton:=TButton.Create(WizardForm); FAQButton.SetBounds(ScaleX(10), WizardForm.CancelButton.Top, WizardForm.CancelButton.Width, WizardForm.CancelButton.Height); FAQButton.Caption:='F.A.Q.'; FAQButton.OnClick:=@FAQButtonClick; FAQButton.Parent:=WizardForm; end; procedure InitializeWizard(); begin FAQButtonCreate(); end; Quote Share this post Link to post Short link Share on other sites
MEDNIKs 2 #199374 Posted July 13, 2014 MEDNIKs, держи: [~~~~~~~~~~Code~~~~~~~~~~] var FAQButton: TButton; procedure FAQButtonClick(Sender: TObject); var ResultCode: Integer; begin ShellExec('open', 'http://google.ru/', '', '', SW_SHOWNORMAL, ewNoWait, ResultCode); end; procedure FAQButtonCreate(); begin FAQButton:=TButton.Create(WizardForm); FAQButton.SetBounds(ScaleX(10), WizardForm.CancelButton.Top, WizardForm.CancelButton.Width, WizardForm.CancelButton.Height); FAQButton.Caption:='F.A.Q.'; FAQButton.OnClick:=@FAQButtonClick; FAQButton.Parent:=WizardForm; end; procedure InitializeWizard(); begin FAQButtonCreate(); end; СПАСИБО!А вставлять в любом месте можно?А то чёт ругается! Quote Share this post Link to post Short link Share on other sites
liked 19 #199377 Posted July 13, 2014 MEDNIKs, держи: [~~~~~~~~~~Code~~~~~~~~~~] var FAQButton: TButton; procedure FAQButtonClick(Sender: TObject); var ResultCode: Integer; begin ShellExec('open', 'http://google.ru/', '', '', SW_SHOWNORMAL, ewNoWait, ResultCode); end; procedure FAQButtonCreate(); begin FAQButton:=TButton.Create(WizardForm); FAQButton.SetBounds(ScaleX(10), WizardForm.CancelButton.Top, WizardForm.CancelButton.Width, WizardForm.CancelButton.Height); FAQButton.Caption:='F.A.Q.'; FAQButton.OnClick:=@FAQButtonClick; FAQButton.Parent:=WizardForm; end; procedure InitializeWizard(); begin FAQButtonCreate(); end; Давай харе отлынивать помоги осилить скрипт, нужно запилить страницу компонентов и бекапа, тут не могу не как понять как заставить их отображаться Скрипт - BigMusic_v2.rar вот хочу так в этом скрипте - BigMusic_v2.rar Quote Share this post Link to post Short link Share on other sites
MEDNIKs 2 #199389 Posted July 13, 2014 Парни как сделать ,что бы кнопка появлялась только на определённой странице, например на странице с выбором дериктории,а по нажатию кнопки далее она исчезала? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #199416 Posted July 13, 2014 Парни как сделать ,что бы кнопка появлялась только на определённой странице, например на странице с выбором дериктории,а по нажатию кнопки далее она исчезала? Вот так: procedure MyButtonClick(Sender: TObject); begin MsgBoxEx(WizardForm.Handle, 'Ты меня не послушал!'#13'Нажмёшь теперь "Ок" - твой комп рванёт.', mb_OK or mb_ICONINFORMATION, 0, 0); end; procedure InitializeWizard(); var MyButton: TButton; begin MyButton := TButton.Create(WizardForm.SelectDirPage.Parent); MyButton.Parent := WizardForm.SelectDirPage; MyButton.Top := 150; MyButton.Left := 130; MyButton.Width := 100; MyButton.Height := 25; MyButton.Caption := 'Не нажимать'; MyButton.onClick := @MyButtonClick; end; Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #199420 Posted July 13, 2014 (edited) MEDNIKs, FAQButton.Parent:=WizardForm; меняешь на нужное. Edited July 13, 2014 by AtotIK Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #199535 Posted July 14, 2014 (edited) Где и как задать цвет текста для ComponentsInfo и ComponentsImgInfo??? Edited July 14, 2014 by Darksoul 1 Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #199540 Posted July 14, 2014 такой же вопрос Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #199555 Posted July 14, 2014 Где и как задать цвет текста для ComponentsInfo и ComponentsImgInfo??? такой же вопрос Не припомню такого компонента в стандартной форме. Это что, из скрипта, который выделяет определённые области под картинку для компонента и описания к нему? - В таком случае мне надо видеть скрипт. Скиньте этот кусок кода или целый код, посмотрю. Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #199560 Posted July 14, 2014 Не припомню такого компонента в стандартной форме. Это что, из скрипта, который выделяет определённые области под картинку для компонента и описания к нему? - В таком случае мне надо видеть скрипт. Скиньте этот кусок кода или целый код, посмотрю. вот весь код https://yadi.sk/d/2umvVwjmWbr4y Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #199562 Posted July 14, 2014 @Ekspoint, 'этот текст?' Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #199564 Posted July 14, 2014 @Ekspoint, 'этот текст?' 14.07.jpg да и название модов Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #199569 Posted July 14, 2014 да и название модов Нельзя указывать цвет для компонентов, вообще. Вид компонентов можно изменить только на это: fsBold, fsItalic, fsUnderline, fsStrikeOut. Знаешь, что это такое? А для надписей в рамках ща посмотрю. Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #199570 Posted July 14, 2014 Нельзя указывать цвет для компонентов, вообще. Вид компонентов можно изменить только на это: fsBold, fsItalic, fsUnderline, fsStrikeOut. Знаешь, что это такое? А для надписей в рамках ща посмотрю. нет не знаю спасибо Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #199571 Posted July 14, 2014 (edited) нет не знаю fsBold - Жирный текст. fsItaliс - Наклонный текст. fsUnderline - Подчёркнутый текст. fsStrikeOut - Перечёркнутый текст. Edited July 14, 2014 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #199573 Posted July 14, 2014 (edited) fsBold - Жирный текст. fsItaliс - Наклонный текст. fsUnderline - Подчёркнутый текст. fsStrikeOut - Перечёркнутый текст. а как менять то где Edited July 14, 2014 by Ekspoint Quote Share this post Link to post Short link Share on other sites
liked 19 #199575 Posted July 14, 2014 Видать такие скрипты не кто не умеет разбирать! только стандартные Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #199577 Posted July 14, 2014 (edited) @Ekspoint, так, ок, увидел 2 положения для всего: курсор не наведён на компонент, курсор наведён на компонент. В каком случае менять цвет текста? Видать такие скрипты не кто не умеет разбирать! только стандартные Какие скрипты? Edited July 14, 2014 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #199581 Posted July 14, 2014 @Ekspoint, так, ок, увидел 2 положения для всего: курсор не наведён на компонент, курсор наведён на компонент. В каком случае менять цвет текста? Какие скрипты? который наведен на компонент Quote Share this post Link to post Short link Share on other sites