liked
-
Posts
170 -
Joined
-
Last visited
Posts posted by liked
-
-
как сделать чтоб картинка не пропадала когда наводят мышкой на оконо вот скрипт
InfoPic := TBitmapImage.Create(WizardForm)
with InfoPic do
begin
Parent := WizardForm.SelectComponentsPage;
SetBounds(ScaleX(0), ScaleY(0), ScaleX(100), ScaleY(100));
ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');
Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp'));
end;
end;где тут ошибка ?
-
ешё такой вопросик, как вставлять фон (картинку) например в списке выбора модов, чтоб не белый фон был а картинка
и как сделать прозрачный фон? чтоб видно было задний план а текст на переднем
-
Примерно разабрался, нужно было смотреть не основной скрипт а и менно скрипт страницы BackUpPage
-
и тишина) не подсказать не помочь не кому
-
А зачем тебе ещё другие варианты знать? Этого хватит.
думал можно сделать типа этого
WizardForm.WizardBitmapImage.Width:=WizardForm.WizardBitmapImage.Width + WidthOffset;
WizardForm.WizardBitmapImage.Height:=WizardForm.WizardBitmapImage.Height + HeightOffset;
WizardForm.WizardBitmapImage.Width:=WizardForm.WizardBitmapImage.Width + WidthOffset;
но у вы он не подгоняет под тип размер WizardForm
и как растянуть страницу BackUpPage я так же ещё не понял
-
И почему я не удивлён..
Вот и я не понял какой столбец с права? имя я нашёл и так куда копировать я не понял
liked, уйди из этой темы, удали Inno Setup и забудь про эту затею. Прожевали всё и положили в рот уже, но нет - всё равно не дошло.
Если бы всё прожували я бы не спрашивал, имя страницы я вижу, куда копировать? вижу управление элементами страницы типа WizardForm.WelcomeLabel1.Hide; Удаляет элемент label1
как заставить растянутся данный элемент, порпорцеонально WizardForm
или растянуть можно только таким методом
WizardForm.WelcomeLabel1.Width:=600;
WizardForm.WelcomeLabel1.Height:=400;
или есть другие варианты?
-
liked, разве это было так сложно?
Для других страниц по аналогии. Открываешь редактор форм, выбираешь нужное на странице и копируешь его имя в столбце справа, после изменяешь положение.
чё та не понял как добавить правильно для других страниц содержимое данных страниц не растягивается по размеру окна
[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
-
liked, разве это было так сложно?
Для других страниц по аналогии. Открываешь редактор форм, выбираешь нужное на странице и копируешь его имя в столбце справа, после изменяешь положение.
понятно спасибо дальше попробую сам картинки прикрутить
а я делал у меня почему то не получалась, оконо увеличивалась остальное нет оставалось прежним размером ешё раз спасибо
-
Святая корова, вы хоть что-нибудь сможете сделать без участия других? Проект в архиве сюда кидай и ничего пока не меняй. Посмотрю по-быстрому, раз обещал.
Да сам делал, а вот картинки победить не могу вот проэкт без картинок BigMusic.rar хочу чтоб было примерно так
Зарание спасибо
-
Пример
[code] Procedure InitializeWizard(); var HOffset, WOffset: Integer; begin HOffset:=30; WOffset:=30; WizardForm.Height:=WizardForm.Height + HOffset; WizardForm.Width:=WizardForm.Width + WOffset; WizardForm.NextButton.Top:=WizardForm.NextButton.Top + HOffset; WizardForm.BackButton.Top:=WizardForm.BackButton.Top + HOffset; WizardForm.CancelButton.Top:=WizardForm.CancelButton.Top + HOffset; WizardForm.NextButton.Left:=WizardForm.NextButton.Left + WOffset; WizardForm.BackButton.Left:=WizardForm.BackButton.Left + WOffset; WizardForm.CancelButton.Left:=WizardForm.CancelButton.Left + WOffset; WizardForm.ComponentsList.Height:=WizardForm.ComponentsList.Height + HOffset; WizardForm.OuterNotebook.Height:=WizardForm.OuterNotebook.Height + HOffset; WizardForm.InnerNotebook.Height:=WizardForm.InnerNotebook.Height + HOffset; WizardForm.ComponentsList.Width:=WizardForm.ComponentsList.Width + WOffset; WizardForm.OuterNotebook.Width:=WizardForm.OuterNotebook.Width + WOffset; WizardForm.InnerNotebook.Width:=WizardForm.InnerNotebook.Width + WOffset; WizardForm.Bevel.Top:=WizardForm.Bevel.Top + HOffset; WizardForm.BeveledLabel.Top:=WizardForm.BeveledLabel.Top + HOffset; WizardForm.ComponentsDiskSpaceLabel.Top:=WizardForm.ComponentsDiskSpaceLabel.Top + HOffset; WizardForm.Bevel.Width:=WizardForm.Bevel.Width + WOffset; WizardForm.Bevel1.Width:=WizardForm.Bevel1.Width + WOffset; WizardForm.MainPanel.Width:=WizardForm.MainPanel.Width + WOffset; WizardForm.BeveledLabel.Width:=WizardForm.BeveledLabel.Width + WOffset; WizardForm.Bevel.Width:=WizardForm.Bevel.Width + WOffset; WizardForm.BeveledLabel.Width:=WizardForm.BeveledLabel.Width + WOffset; WizardForm.ComponentsDiskSpaceLabel.Width:=WizardForm.ComponentsDiskSpaceLabel.Width + WOffset; WizardForm.PageNameLabel.Width:=WizardForm.PageNameLabel.Width + WOffset; WizardForm.PageDescriptionLabel.Width:=WizardForm.PageDescriptionLabel.Width + WOffset; WizardForm.WizardSmallBitmapImage.Left:= WizardForm.WizardSmallBitmapImage.Left + WOffset; WizardForm.Center; end;
© @AtotIK
это то что я пробывал, но тем что ты дал скриптом тоже самое нужно чтоб он всё увеличил а не только окно а содержимое того же размера остаётся
-
-
Вот с моего пака, начал пользоваться этим методом задолго до появления папкожовотвикера. Естественно, что с каждым патчем файлы дополняются/изменяются/удаляются.
Name: "AtotIK\Other\Tweaker_Fog"; Description: "Удалить туман на картах и увеличить дальность видимости"; Name: "AtotIK\Other\Tweaker_Tank_Smoke"; Description: "Удалить дым из выхлопной трубы"; Types: full; Name: "AtotIK\Other\Tweaker_Tank_Destroy_Smoke"; Description: "Удалить дым от уничтоженных танков"; Types: full; Name: "AtotIK\Other\Tweaker_Tank_Shoot_Smoke"; Description: "Удалить дым и пламя от выстрела"; Types: full; Name: "AtotIK\Other\Tweaker_Tank_Hit"; Description: "Удалить эффект попадания в танк"; Name: "AtotIK\Other\Tweaker_Tank_Destroy"; Description: "Удалить эффект уничтожения танка"; Name: "AtotIK\Other\Tweaker_Shells"; Description: "Удалить эффект взрыва снарядов и попадания в объекты"; Name: "AtotIK\Other\Tweaker_Environment"; Description: "Удалить эффекты разрушения объектов"; Name: "AtotIK\Other\Tweaker_Trees"; Description: "Удалить эффект движения деревьев и проявления погоды"; Types: full; Name: "AtotIK\Other\Tweaker_Skyboxes"; Description: "Удалить облака";
Кто та обишал помочь :) с картинками в мод-паке
-
Посмотри в сообщении 538 там решили эту ошибку! #538
но у меня и так работает.
понятно спасибо
Кто поможет, не как не могу осилить вот такое вроде не чего сложного а не получается
-
Парни вот что я наковырял может как можно всё это упростить или сделать лучше.
Скачать архив весит 18.9 МБ с рисунками и музыкой.
-
Чтоб было понятно и ясно вот выложу полный инсталятор + моды BigMusic.rar
Самые тяжёлые моды убрал с сборки
- 1
-
А, спс , уже разобрался, вопрос №2: видел в примерах что некоторые папки не соответствуют папкам с заготовками модов, а как бы укорочены. Вопрос, почему, и какая тут зависимость???
Name: KMP\XVM; Description: 1. Комплексный мод XVM v2.1; > Source: "MODS\XVM\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\XVM;
Вот как он ищет папки, если я правильно понял вопрос шас выложу полный конфиг своего мод пака с модами
-
liked, мой пак считай один из старейших, т.к. делать я его начал больше 2-х лет назад. Естественно, что у меня уже есть постоянные пользователи, которым не жалко что-то скинуть.
Код в личку скинь, посмотрю.
Да ладно так кину, в друг пригодится кому, да и он совсем простенький BigMusic.rar
-
Мой код должен быть вставлен в код AtotIK.
Я не могу это объяснить в двух словах.
Просто посмотрите на ссылки.
Дал бы ссылку или код AtotIK в который нужно вставить...
я лично так и не разобрался выбивает постоянно ошибку
Для невнимательных: там есть файлик, в котором реквизиты указаны + в установщике они тоже есть.
Увы, указаны мне не чего не кинули за пол года...
если тебе кидали я только рад,
ты с кодом помоги) с этими картинками, ну не настолько мы тут шарим в этом по этому и сидим тут.
Проблема лично с размерами окон, то что дали скрипт выше, на размеры там ошибку выдаёт, вот объясни в чём там проблема, ещё лучше конечно если уже готовый чтоб меньше вопросов было, всё работает а вот с этими картинками у меня беда
-
Поставил liked и Darksoul по плюсику. Молодцы, разоблачили меня.
Воспитание не позволило бы это написать, а так это только боязнь получить РО.
Видимо Вы вообще не в курсе текущей ситуации с модпаками, а то так бы не говорили.
"Почитерить" любите?
З.Ы. Вы хоть на работе ЗП получаете? А то по вашим словам складывается ощущение, что нет. Готовы задарма работать.
З.Ы.Ы. Хоть бы один обратился в ЛС, помог бы точно чем смог. В паблик код модов тоже нынче не сливают (накручивают разнообразных защит), но "бурлений" это не вызывает же...
Ну даром и работает) сборки делаем!!! ты так же на сколько я увидел на оф форуме танков
-
За "бабло" помогу, но не обращаетесь же!
Вот ваше и нутро и вылезло!!!!
Такое ощущение что за мод-паки, которые мы делаем нам платят деньги
Я готов поделится бубликом (нулём) тебе какую сторону левую или правую?
- 4
-
Я смотрю все боятся или жадничают, выкладывать готовые скрипты, не вижу тогда актуальности этой темы если тут не помогают
Больше информации на посторонних сайтах и форумах включая скриптов только не под мод-паки
-
И тоже этот.
В этом коде он не работает!
-
liked, он выложил готовый инсталлятор. Скачивай в теме по ссылке. Изучай, кто тебе мешает?
Не вижу ссылку на скачивание скрипта от mpmp, покажи где найти не могу
Смотрится такое лого?
Да прикольно!
Мой код должен быть вставлен в код AtotIK.
Я не могу это объяснить в двух словах.
Просто посмотрите на ссылки.
Ну так проше скинуть скрипт) и будет меньше вопросов)
AtotIK ты хоть сайти подскажи где есть много готовых скриптов (скинов) и т.д раз говоришь в нете много, я на хожу но ссылки на скачивание все устарели.
-
Нет никакое хвастовство:
Опять, я про одно ты про другое, нам не интересны скрины, интересен скрипт, я не говорю что ты не указал тех кто тебе помогал, а то что ты показываешь (хвастаешся) нет чтобы помочь выложить готовый инсталятор чтоб люди глянули и поняли как это выглядит, и уже от этого отталкиваясь делали свои.
Создание инсталляторов для модпаков на базе Inno Setup
in Modding General Discussion
Posted · Edited by liked
Вот скрипт : BigMusic (liked).rar
при наведении на моды (там где ставить голочки надо картинка пропадает (нижния картинка)
а я хотел бы чтоб она всегда вот так была
или как вариант чтоб за место картинки выскакивало там описание к каждому моду, вобще было бы супер
на сколько я понял проблема где то тут
procedure InitInfo();
begin
WizardForm.TypesCombo.Hide;
WizardForm.ComponentsList.SetBounds(ScaleX(260), ScaleY(40), ScaleX(155), ScaleY(153));
WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove;
WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave;
TempPath := AddBackslash(ExpandConstant('{tmp}'));
LastIndex := UNDEF_INDEX;
Вот что нарыл
'код'
AppName=Моя программа
AppVersion=1.5
AppPublisher=YURSHAT
AppPublisherURL=
DefaultDirName={pf}\Моя программа
[Languages]
Name: "RU"; MessagesFile: "compiler:Languages\Russian.isl"
[CustomMessages]
RU.CompName1=Компонент 1
RU.CompName2=Компонент 2
RU.ComponentsInfo=Наведите курсор мыши на компонент, чтобы прочитать его описание.
RU.ComponentsImgInfo=Наведите курсор мыши на компонент, чтобы посмотреть его превью.
RU.CompDesc1=Описание первого компонента
RU.CompDesc2=Описание второго компонента
[Files]
Source: "compiler:WizModernImage.bmp"; DestName: "CompDescImg1.bmp"; Flags: dontcopy
Source: "compiler:WizModernImage-IS.bmp"; DestName: "CompDescImg2.bmp"; Flags: dontcopy
[Types]
Name: full; Description: Full installation; Flags: iscustom
[Components]
Name: comp1; Description: "{cm:CompName1}"; Types: full
Name: comp2; Description: "{cm:CompName2}"; Types: full
type
TComponentDesc = record
Description: String;
ImageName: String;
Index: Integer;
end;
var
CompDescs: array of TComponentDesc;
CompDescPanel, CompDescImgPanel: TPanel;
CompDescText: array[1..2] of TLabel;
CompIndex, LastIndex: Integer;
CompDescImg: TBitmapImage;
procedure ShowCompDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea);
var
i: Integer;
begin
if Index = LastIndex then Exit;
CompIndex := -1;
for i := 0 to GetArrayLength(CompDescs) -1 do
begin
if (CompDescs[i].Index = Index) then
begin
CompIndex := i;
Break;
end;
end;
if (CompIndex >= 0) and (Area = iaItem) then
begin
if not FileExists(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName) then
ExtractTemporaryFile(CompDescs[CompIndex].ImageName);
CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName);
CompDescImg.Show;
CompDescText[2].Caption := CompDescs[CompIndex].Description;
CompDescText[2].Enabled := True;
end else
begin
CompDescText[2].Caption := CustomMessage('ComponentsInfo');
CompDescText[2].Enabled := False;
CompDescImg.Hide;
end;
LastIndex := Index;
end;
procedure CompListMouseLeave(Sender: TObject);
begin
CompDescImg.Hide;
CompDescText[2].Caption := CustomMessage('ComponentsInfo');
CompDescText[2].Enabled := False;
LastIndex := -1;
end;
procedure AddCompDescription(AIndex: Integer; ADescription: String; AImageName: String);
var
i: Integer;
begin
i := GetArrayLength(CompDescs);
SetArrayLength(CompDescs, i + 1);
CompDescs[i].Description := ADescription;
CompDescs[i].ImageName := AImageName;
CompDescs[i].Index := AIndex - 1
end;
procedure InitializeWizard();
begin
WizardForm.SelectComponentsLabel.Hide;
WizardForm.TypesCombo.Hide;
WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(0), ScaleX(184), ScaleY(205));
WizardForm.ComponentsList.OnItemMouseMove:= @ShowCompDescription;
WizardForm.ComponentsList.OnMouseLeave := @CompListMouseLeave;
CompDescImgPanel := TPanel.Create(WizardForm);
with CompDescImgPanel do
begin
Parent := WizardForm.SelectComponentsPage;
SetBounds(ScaleX(192), ScaleY(0), ScaleX(225), ScaleY(120));
BevelInner := bvLowered;
end;
CompDescText[1] := TLabel.Create(WizardForm);
with CompDescText[1] do
begin
Parent := CompDescImgPanel;
SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));
AutoSize := False;
WordWrap := True;
Enabled := False;
Caption := CustomMessage('ComponentsImgInfo');
end;
CompDescImg := TBitmapImage.Create(WizardForm);
with CompDescImg do
begin
Parent := CompDescImgPanel;
SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));
Stretch := True;
Hide;
end;
CompDescPanel := TPanel.Create(WizardForm);
with CompDescPanel do
begin
Parent := WizardForm.SelectComponentsPage;
SetBounds(ScaleX(192), ScaleY(125), ScaleX(225), ScaleY(80));
BevelInner := bvLowered;
end;
CompDescText[2] := TLabel.Create(WizardForm);
with CompDescText[2] do
begin
Parent := CompDescPanel;
SetBounds(ScaleX(5), ScaleY(5), CompDescPanel.Width - ScaleX(10), CompDescPanel.Height - ScaleY(10));
AutoSize := False;
WordWrap := True;
Enabled := False;
Caption := CustomMessage('ComponentsInfo');
end;
AddCompDescription(1, CustomMessage('CompDesc1'), 'CompDescImg1.bmp');
AddCompDescription(2, CustomMessage('CompDesc2'), 'CompDescImg2.bmp');
end;