Andrew_Dark Posted November 22, 2014 Share Posted November 22, 2014 ты мне? ты мне? ты мне? Угу 1 @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted November 22, 2014 Share Posted November 22, 2014 На флаге external не работает: [Setup] AppName=MyApp AppVerName=MyApp DefaultDirName={pf}\MyApp Compression=none [Files] Source: C:\Windows\Fonts\*; DestDir: {app}; BeforeInstall: AddToMemo; [```Code```] var DetailsButton: TNewButton; FilesMemo: TNewMemo; Flag: Boolean; procedure AddToMemo(); var AFile: String; begin AFile:=ExpandConstant(CurrentFilename); If ExtractFileExt(AFile)='' then FilesMemo.Lines.Add('CreateFolder: '+RemoveBackslash(AFile)) else FilesMemo.Lines.Add('Extract: '+AFile); end; procedure HideShow(Sender: TObject); begin If not Flag then begin FilesMemo.Hide; DetailsButton.Caption:='Детали...'; Flag:=True; end else begin FilesMemo.Show; DetailsButton.Caption:='Скрыть'; Flag:=False; end; end; procedure InitializeWizard(); begin WizardForm.ProgressGauge.Top:=ScaleY(34); FilesMemo:=TNewMemo.Create(WizardForm); with FilesMemo do begin SetBounds(WizardForm.InstallingPage.Left, ScaleY(88), WizardForm.ProgressGauge.Width, ScaleY(145)); Parent:=WizardForm.InstallingPage; WordWrap:=True; ScrollBars:=ssVertical; ReadOnly:=True; Visible:=false; Clear; end; DetailsButton:=TNewButton.Create(WizardForm); with DetailsButton do begin Parent:=WizardForm.InstallingPage; SetBounds(ScaleX(334), ScaleY(60), ScaleX(75), ScaleY(25)); Caption:='Детали'; OnClick:=@HideShow end; Flag:=True; end; @ Quote Link to comment Short link Share on other sites More sharing options...
Andrew_Dark Posted November 22, 2014 Share Posted November 22, 2014 О, прикольно, отдельный установщик шрифтов получился:) 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted November 22, 2014 Share Posted November 22, 2014 На флаге external не работает: [Setup] AppName=MyApp AppVerName=MyApp DefaultDirName={pf}\MyApp Compression=none [Files] Source: C:\Windows\Fonts\*; DestDir: {app}; BeforeInstall: AddToMemo; [```Code```] var DetailsButton: TNewButton; FilesMemo: TNewMemo; Flag: Boolean; procedure AddToMemo(); var AFile: String; begin AFile:=ExpandConstant(CurrentFilename); If ExtractFileExt(AFile)='' then FilesMemo.Lines.Add('CreateFolder: '+RemoveBackslash(AFile)) else FilesMemo.Lines.Add('Extract: '+AFile); end; procedure HideShow(Sender: TObject); begin If not Flag then begin FilesMemo.Hide; DetailsButton.Caption:='Детали...'; Flag:=True; end else begin FilesMemo.Show; DetailsButton.Caption:='Скрыть'; Flag:=False; end; end; procedure InitializeWizard(); begin WizardForm.ProgressGauge.Top:=ScaleY(34); FilesMemo:=TNewMemo.Create(WizardForm); with FilesMemo do begin SetBounds(WizardForm.InstallingPage.Left, ScaleY(88), WizardForm.ProgressGauge.Width, ScaleY(145)); Parent:=WizardForm.InstallingPage; WordWrap:=True; ScrollBars:=ssVertical; ReadOnly:=True; Visible:=false; Clear; end; DetailsButton:=TNewButton.Create(WizardForm); with DetailsButton do begin Parent:=WizardForm.InstallingPage; SetBounds(ScaleX(334), ScaleY(60), ScaleX(75), ScaleY(25)); Caption:='Детали'; OnClick:=@HideShow end; Flag:=True; end; спасибо На флаге external не работает: [Setup] AppName=MyApp AppVerName=MyApp DefaultDirName={pf}\MyApp Compression=none [Files] Source: C:\Windows\Fonts\*; DestDir: {app}; BeforeInstall: AddToMemo; [```Code```] var DetailsButton: TNewButton; FilesMemo: TNewMemo; Flag: Boolean; procedure AddToMemo(); var AFile: String; begin AFile:=ExpandConstant(CurrentFilename); If ExtractFileExt(AFile)='' then FilesMemo.Lines.Add('CreateFolder: '+RemoveBackslash(AFile)) else FilesMemo.Lines.Add('Extract: '+AFile); end; procedure HideShow(Sender: TObject); begin If not Flag then begin FilesMemo.Hide; DetailsButton.Caption:='Детали...'; Flag:=True; end else begin FilesMemo.Show; DetailsButton.Caption:='Скрыть'; Flag:=False; end; end; procedure InitializeWizard(); begin WizardForm.ProgressGauge.Top:=ScaleY(34); FilesMemo:=TNewMemo.Create(WizardForm); with FilesMemo do begin SetBounds(WizardForm.InstallingPage.Left, ScaleY(88), WizardForm.ProgressGauge.Width, ScaleY(145)); Parent:=WizardForm.InstallingPage; WordWrap:=True; ScrollBars:=ssVertical; ReadOnly:=True; Visible:=false; Clear; end; DetailsButton:=TNewButton.Create(WizardForm); with DetailsButton do begin Parent:=WizardForm.InstallingPage; SetBounds(ScaleX(334), ScaleY(60), ScaleX(75), ScaleY(25)); Caption:='Детали'; OnClick:=@HideShow end; Flag:=True; end; а можно BeforeInstall: AddToMemo; написать один раз как нибудь чтоб не прописывать к каждому Source ? @ Quote Link to comment Short link Share on other sites More sharing options...
Andrew_Dark Posted November 22, 2014 Share Posted November 22, 2014 Кстати, а как пофиксить для винды 8.1 отображение скроллбара, видел фикс на ос зоне, но не помню где. 1 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted November 22, 2014 Share Posted November 22, 2014 (edited) Теперь всё заработало, но картинки не показывает. В чём проблема? Могу скинуть скрипт в лч Просто добавив этот код картинок не будет. Впрочем, вон вам уже рвутся помогать. почему у меня звук лезет на нижний компонент тоже который не прописан? Компонент - дочерний? это хрень не рабочая,я прошу рабочий!! Попробовал, поле пустое, текста 0 Проблемы с вашей стороны. Инициализацию хотя бы объединяли?.. 'Пруф.' а можно BeforeInstall: AddToMemo; написать один раз как нибудь чтоб не прописывать к каждому Source ? Неа. Edited November 22, 2014 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
Prost Posted November 22, 2014 Share Posted November 22, 2014 Просто добавив этот код картинок не будет. Впрочем, вон вам уже рвутся помогать. От него нет помощи) Я вставил код и немного изменил в тех строчках где нужно написать название картинок, но перед этим добавил их в Files. Но когда делаю модпак есть 2 окна но картинки нет что делать? @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted November 22, 2014 Share Posted November 22, 2014 (edited) От него нет помощи) Не сомневался. что делать? Прикрепите скрипт. Edited November 22, 2014 by Kotyarko_O 1 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Prost Posted November 22, 2014 Share Posted November 22, 2014 Просто добавив этот код картинок не будет. Впрочем, вон вам уже рвутся помогать. Если что, вот скрипт. Посмотри что не так? Модпак2.zip @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted November 22, 2014 Share Posted November 22, 2014 Если что, вот скрипт. Ага, и только он. Желательно всё, что от него есть (можно без самих модов). @ Quote Link to comment Short link Share on other sites More sharing options...
Prost Posted November 22, 2014 Share Posted November 22, 2014 Ага, и только он. Желательно всё, что от него есть (можно без самих модов). Модпак2 (2).zip @ Quote Link to comment Short link Share on other sites More sharing options...
Andrew_Dark Posted November 22, 2014 Share Posted November 22, 2014 Просто добавив этот код картинок не будет. Впрочем, вон вам уже рвутся помогать. Компонент - дочерний? Проблемы с вашей стороны. Инициализацию хотя бы объединяли?.. 'Пруф.' 22.11.png Неа. С нашей? Котярко, я знал, что ты *****, но не настолько же;) Не сомневался. Прикрепите скрипт. Слушай, ты бы сопляк [мат] свой на привязи держал, ок? Держите Ваше мнение при себе, уважаемый;) 1 3 @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted November 22, 2014 Share Posted November 22, 2014 (edited) Кому-то не нравлюсь? - Застрелитесь, не исправлюсь @Prost, "Архив повреждён или имеет неизвестный формат". Edited November 22, 2014 by Kotyarko_O 1 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Andrew_Dark Posted November 22, 2014 Share Posted November 22, 2014 Улыбнуло :) @Prost, "Архив повреждён или имеет неизвестный формат". Долго вы думали, чтобы минус поставить и написать это:) 1 3 @ Quote Link to comment Short link Share on other sites More sharing options...
Prost Posted November 22, 2014 Share Posted November 22, 2014 Улыбнуло :) @Prost, "Архив повреждён или имеет неизвестный формат". Модпак2 (2).zip @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted November 22, 2014 Share Posted November 22, 2014 Prost,прочитай всю тему и все поймешь!!! @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted November 22, 2014 Share Posted November 22, 2014 @Prost, 'Прицел от Jove.': UndefPic := 'F:\СЮДА СКАЧИВАЕТСЯ ВСЁ ЧТО С ЯНДЕКСА КАЧАЮ\New Script\5.bmp'; // пишем точно так же, как прописано в компонентах 'Дамаг панель от GambitER.': UndefPic := 'F:\СЮДА СКАЧИВАЕТСЯ ВСЁ ЧТО С ЯНДЕКСА КАЧАЮ\New Script\25.bmp'; UndefPic должен содержать имя изображения, без пути. Описание компонента должно быть в точности такое, как и прописано в секции [Components]. Или уберите точки из кода, приведённого выше, или добавьте их к описанию компонентов в одноимённой секции ([Components]). 2 @ Quote Link to comment Short link Share on other sites More sharing options...
Prost Posted November 22, 2014 Share Posted November 22, 2014 @Prost, 'Прицел от Jove.': UndefPic := 'F:\СЮДА СКАЧИВАЕТСЯ ВСЁ ЧТО С ЯНДЕКСА КАЧАЮ\New Script\5.bmp'; // пишем точно так же, как прописано в компонентах 'Дамаг панель от GambitER.': UndefPic := 'F:\СЮДА СКАЧИВАЕТСЯ ВСЁ ЧТО С ЯНДЕКСА КАЧАЮ\New Script\25.bmp'; UndefPic должен содержать имя изображения, без пути. Описание компонента должно быть в точности такое, как и прописано в секции [Components]. Или уберите точки из кода, приведённого выше, или добавьте их к описанию компонентов в одноимённой секции ([Components]). Спс теперь работает @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted November 23, 2014 Share Posted November 23, 2014 наверно тупой вопрос,как прикрутить скин при удалении модпака? @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted November 23, 2014 Share Posted November 23, 2014 (edited) наверно тупой вопрос,как прикрутить скин при удалении модпака? При установке используется: Procedure InitializeSetup(): Boolean; или InitializeWizard(): Boolean; ... Procedure DeinitializeSetup(): Boolean; или DeinitializeWizard(): Boolean; А при удалении нужно: Procedure InitializeUninstall(): Boolean; и DeinitializeUninstall(): Boolean; Edited November 23, 2014 by Kotyarko_O @ 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.