Kotyarko_O Posted May 21, 2014 Share Posted May 21, 2014 @ventura69, неплохо. Вот только картинки-то бывают разные, и большинство придётся подгонять по размерам. @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted May 21, 2014 Share Posted May 21, 2014 ventura69, э-э-э-э... А это кому? @ Quote Link to comment Short link Share on other sites More sharing options...
ventura69 Posted May 21, 2014 Share Posted May 21, 2014 (edited) @ventura69, неплохо. Вот только картинки-то бывают разные, и большинство придётся подгонять по размерам. Естественно. Я ж их сам и делаю. Подгоняю в ПэйтНете. Я себе все модели так подогнал на работе. ventura69, э-э-э-э... А это кому? post-11632-0-21296000-1400692191.jpg А можно попонятнее? Картинку сверху убрать можно так ВzardForm.ВizardSmallBitmapImage.Вidth := ScaleX(0) (исковеркал надпись, а то не грузит). А чем кнопочки вперед/назад не угодили? Я не понял Вас. Edited May 21, 2014 by ventura69 @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 21, 2014 Share Posted May 21, 2014 Картинку сверху убрать можно так ВzardForm.ВizardSmallBitmapImage.Вidth := ScaleX(0) Лучше так: WizardForm.WizardSmallBitmapImage.Visible:=False; @ Quote Link to comment Short link Share on other sites More sharing options...
ventura69 Posted May 21, 2014 Share Posted May 21, 2014 Лучше так: WizardForm.WizardSmallBitmapImage.Visible:=False; Согласен. А вот, как переименовать кнопочку "Далее" - самому интересно стало. :-) @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 21, 2014 Share Posted May 21, 2014 Согласен. А вот, как переименовать кнопочку "Далее" - самому интересно стало. :-) [Messages] russian.ButtonBack=< Назад russian.ButtonNext=Далее > russian.ButtonInstall=Установить russian.ButtonFinish=Завершить @ Quote Link to comment Short link Share on other sites More sharing options...
ventura69 Posted May 21, 2014 Share Posted May 21, 2014 [Messages] russian.ButtonBack=< Назад russian.ButtonNext=Далее > russian.ButtonInstall=Установить russian.ButtonFinish=Завершить Хехе... А я первый это в справке нашел, только зачитался и Вы опередили! :-) @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted May 21, 2014 Share Posted May 21, 2014 ventura69, я о том, что нужно ещё "продлить" MainPanel, Bevel и Bevel1. Да и кнопки рациональнее располагать группой, а не в разнобой. @ Quote Link to comment Short link Share on other sites More sharing options...
ventura69 Posted May 21, 2014 Share Posted May 21, 2014 (edited) ventura69, я о том, что нужно ещё "продлить" MainPanel, Bevel и Bevel1. Да и кнопки рациональнее располагать группой, а не в разнобой. Понял Вас. Это все в процессе. Вся беда в том, что из-за травмы глаз у меня проблемы со зрением и, соответственно, чувство прекрасного у меня отмерло еще в 7 лет (когда получил травму)... Внешний вид - для меня всегда была БААААЛШАЯ беда :-) Я думал не продлевать Bevel, а присобачить к ним еще одну (вертикальную) Bevel2 := TBevel.Create(WizardForm);with Bevel2 do begin Parent := WizardForm; Left := ScaleX(536); Top := ScaleY(0); Width := ScaleX(5); Height := ScaleY(350); end; чтобы область картинок визуально отделить Edited May 21, 2014 by ventura69 @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted May 22, 2014 Share Posted May 22, 2014 ventura69, можно ещё поместить их в TPanel. @ Quote Link to comment Short link Share on other sites More sharing options...
ventura69 Posted May 22, 2014 Share Posted May 22, 2014 ventura69, можно ещё поместить их в TPanel. Спасибо за идею. Покумекаю на эту тему. @ Quote Link to comment Short link Share on other sites More sharing options...
Ckaym Posted May 22, 2014 Share Posted May 22, 2014 'Хелп !' Нужна помощь профи если тут есть такие ссылка @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 22, 2014 Share Posted May 22, 2014 (edited) @Ckaym, хм, уголка не наблюдаю. UPD: Минутка урока русского языка.. "Вернуться" (что делать?) UPDUPD: с положением элементов не заморачивался, сам решишь, что и куда переместить. Наброски.rar Edited May 22, 2014 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
Ckaym Posted May 22, 2014 Share Posted May 22, 2014 Спасибо за помощь уголок появляется сразу как только загружается до того как мышкой начинаешь шарить еще как инстолятор выкатить на центр! @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 22, 2014 Share Posted May 22, 2014 как инстолятор выкатить на центр! procedure InitializeWizard(); begin WizardForm.Position:=poScreenCenter; end; @ Quote Link to comment Short link Share on other sites More sharing options...
liked Posted May 23, 2014 Share Posted May 23, 2014 (edited) liked, разве это было так сложно? BigMusic_1.rar Для других страниц по аналогии. Открываешь редактор форм, выбираешь нужное на странице и копируешь его имя в столбце справа, после изменяешь положение. чё та не понял как добавить правильно для других страниц содержимое данных страниц не растягивается по размеру окна [code] function WindowResize(): Boolean; var HeightOffset, WidthOffset: Integer; begin HeightOffset:=174; WidthOffset:=206; WizardForm.Height:=WizardForm.Height + HeightOffset; WizardForm.Width:=WizardForm.Width + WidthOffset; WizardForm.NextButton.Top:=WizardForm.NextButton.Top + HeightOffset; WizardForm.BackButton.Top:=WizardForm.BackButton.Top + HeightOffset; WizardForm.CancelButton.Top:=WizardForm.CancelButton.Top + HeightOffset; WizardForm.NextButton.Left:=WizardForm.NextButton.Left + WidthOffset; WizardForm.BackButton.Left:=WizardForm.BackButton.Left + WidthOffset; WizardForm.CancelButton.Left:=WizardForm.CancelButton.Left + WidthOffset; WizardForm.OuterNotebook.Height:=WizardForm.OuterNotebook.Height + HeightOffset; WizardForm.InnerNotebook.Height:=WizardForm.InnerNotebook.Height + HeightOffset; WizardForm.OuterNotebook.Width:=WizardForm.OuterNotebook.Width + WidthOffset; WizardForm.InnerNotebook.Width:=WizardForm.InnerNotebook.Width + WidthOffset; WizardForm.WizardSmallBitmapImage.Left:= WizardForm.WizardSmallBitmapImage.Left + WidthOffset; WizardForm.Bevel.Top:=WizardForm.Bevel.Top + HeightOffset; WizardForm.BeveledLabel.Top:=WizardForm.BeveledLabel.Top + HeightOffset; WizardForm.Bevel.Width:=WizardForm.Bevel.Width + WidthOffset; WizardForm.Bevel1.Width:=WizardForm.Bevel1.Width + WidthOffset; WizardForm.MainPanel.Width:=WizardForm.MainPanel.Width + WidthOffset; WizardForm.BeveledLabel.Width:=WizardForm.BeveledLabel.Width + WidthOffset; WizardForm.Center; { /// --- Раскомментировать при желании ---- /// WizardForm.WelcomeLabel1.Hide; WizardForm.WelcomeLabel2.Hide; WizardForm.FinishedLabel.Hide; WizardForm.FinishedHeadingLabel.Hide; WizardForm.WizardBitmapImage.Width:=600; WizardForm.WizardBitmapImage.Height:=400; WizardForm.WizardBitmapImage2.Width:=600; WizardForm.WizardBitmapImage2.Height:=400; WizardForm.PageNameLabel.Hide; WizardForm.PageDescriptionLabel.Hide; WizardForm.WizardSmallBitmapImage.Top:=0; WizardForm.WizardSmallBitmapImage.Left:=0; WizardForm.WizardSmallBitmapImage.Width:=WizardForm.Width; WizardForm.WizardSmallBitmapImage.Height:=58; /// --- Конец ---- /// } WizardForm.LicenseLabel1.Width:=WizardForm.LicenseLabel1.Width + WidthOffset; WizardForm.LicenseMemo.Height:=WizardForm.LicenseMemo.Height + HeightOffset; WizardForm.LicenseMemo.Width:=WizardForm.LicenseMemo.Width + WidthOffset; WizardForm.LicenseNotAcceptedRadio.Top:=WizardForm.LicenseNotAcceptedRadio.Top + HeightOffset; WizardForm.LicenseAcceptedRadio.Top:=WizardForm.LicenseAcceptedRadio.Top + HeightOffset; WizardForm.InfoBeforeClickLabel.Width:=WizardForm.InfoBeforeClickLabel.Width + WidthOffset; WizardForm.InfoBeforeMemo.Height:=WizardForm.InfoBeforeMemo.Height + HeightOffset; WizardForm.InfoBeforeMemo.Width:=WizardForm.InfoBeforeMemo.Width + WidthOffset; WizardForm.SelectDirLabel.Width:=WizardForm.SelectDirLabel.Width + WidthOffset; WizardForm.SelectDirBrowseLabel.Width:=WizardForm.SelectDirBrowseLabel.Width + WidthOffset; WizardForm.DiskSpaceLabel.Top:=WizardForm.DiskSpaceLabel.Top + HeightOffset; WizardForm.DirBrowseButton.Left:=WizardForm.DirBrowseButton.Left + HeightOffset; WizardForm.DirEdit.Width:=WizardForm.DirEdit.Width + HeightOffset; WizardForm.ComponentsDiskSpaceLabel.Top:=WizardForm.ComponentsDiskSpaceLabel.Top + HeightOffset; WizardForm.SelectComponentsLabel.Width:=WizardForm.SelectComponentsLabel.Width + WidthOffset; WizardForm.ComponentsList.Height:=WizardForm.ComponentsList.Height + HeightOffset; WizardForm.ComponentsList.Width:=WizardForm.ComponentsList.Width + WidthOffset; WizardForm.ReadyLabel.Width:=WizardForm.ReadyLabel.Width + WidthOffset; WizardForm.ReadyMemo.Height:=WizardForm.ReadyMemo.Height + HeightOffset; WizardForm.ReadyMemo.Width:=WizardForm.ReadyMemo.Width + WidthOffset; WizardForm.ProgressGauge.Width:=WizardForm.ProgressGauge.Width + HeightOffset; WizardForm.FilenameLabel.Width:=WizardForm.FilenameLabel.Width + HeightOffset; WizardForm.StatusLabel.Width:=WizardForm.StatusLabel.Width + HeightOffset; end; procedure InitializeWizard(); begin InitializeWizard1(); {из BackUpPage.iss, если что} begin WindowResize(); end; end; не получается выравнить страницу Welcome и страницу InitializeWizard1 Edited May 23, 2014 by liked @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 23, 2014 Share Posted May 23, 2014 чё та не понял как добавить правильно для других страниц И почему я не удивлён.. Открываешь редактор форм, выбираешь нужное на странице и копируешь его имя в столбце справа, после изменяешь положение. @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted May 23, 2014 Share Posted May 23, 2014 liked, уйди из этой темы, удали Inno Setup и забудь про эту затею. Прожевали всё и положили в рот уже, но нет - всё равно не дошло. 2 @ Quote Link to comment Short link Share on other sites More sharing options...
liked Posted May 23, 2014 Share Posted May 23, 2014 (edited) И почему я не удивлён.. Вот и я не понял какой столбец с права? имя я нашёл и так куда копировать я не понял liked, уйди из этой темы, удали Inno Setup и забудь про эту затею. Прожевали всё и положили в рот уже, но нет - всё равно не дошло. Если бы всё прожували я бы не спрашивал, имя страницы я вижу, куда копировать? вижу управление элементами страницы типа WizardForm.WelcomeLabel1.Hide; Удаляет элемент label1 как заставить растянутся данный элемент, порпорцеонально WizardForm или растянуть можно только таким методом WizardForm.WelcomeLabel1.Width:=600; WizardForm.WelcomeLabel1.Height:=400; или есть другие варианты? Edited May 23, 2014 by liked @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 23, 2014 Share Posted May 23, 2014 или есть другие варианты? А зачем тебе ещё другие варианты знать? Этого хватит. @ 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.