MEDNIKs Posted May 28, 2015 Share Posted May 28, 2015 Какой язык программирования использует Инно? Pascal @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 28, 2015 Share Posted May 28, 2015 Pascal objPascal. Можно сказать и Делфи. @ Quote Link to comment Short link Share on other sites More sharing options...
Yusha Posted May 29, 2015 Share Posted May 29, 2015 (edited) Несколько вопросов. 2. Какой язык программирования использует Инно? Делфи? Pascal Ап. Ха. Уже ответили...странно тема загрузилась :) Несколько вопросов. 1. Подскажите пожалуйста, как прописать гет запрос. А то по разному пробовал, не получается. Либо я туплю, либо вопрос мне действительно непонятен... напишите, что конкретно вы хотите получить? Edited May 29, 2015 by Yusha @ Quote Link to comment Short link Share on other sites More sharing options...
guceds Posted May 29, 2015 Share Posted May 29, 2015 С запросом разобрался, не нужно. Подскажите, исходник почти такой же как в первом посте. Как изменить размеры SelectDirPage ? А то находися слево, вообще никак не смотрится. Нужно либо передвинуть правей, либо расширить. Но кодов с размерами не нашел @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted May 29, 2015 Share Posted May 29, 2015 С запросом разобрался, не нужно. Подскажите, исходник почти такой же как в первом посте. Как изменить размеры SelectDirPage ? А то находися слево, вообще никак не смотрится. Нужно либо передвинуть правей, либо расширить. Но кодов с размерами не нашел А вкладку формы не открыть чтоль @ Quote Link to comment Short link Share on other sites More sharing options...
guceds Posted May 29, 2015 Share Posted May 29, 2015 (edited) Открыл. И забагал установщик Он внес свои изменения и все слетело Так же нужно изменить размеры странички, где прогресс установки Был бы крайне благодарен за помощь. Edited May 29, 2015 by guceds @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted May 29, 2015 Share Posted May 29, 2015 Код скинь @ Quote Link to comment Short link Share on other sites More sharing options...
guceds Posted May 29, 2015 Share Posted May 29, 2015 (edited) Код скинь Скинул. Проблема еще актуальна. Кто поможет, буду благодарен. Edited May 29, 2015 by guceds @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 29, 2015 Share Posted May 29, 2015 Как изменить размеры SelectDirPage ? А то находися слево, вообще никак не смотрится. Нужно либо передвинуть правей, либо расширить. Я не совсем понял, что же там такое.. Скрин? @ Quote Link to comment Short link Share on other sites More sharing options...
guceds Posted May 29, 2015 Share Posted May 29, 2015 Я не совсем понял, что же там такое.. Скрин? Вот. Картинкой я могу управлять, а как эту форму передвинуть я не знаю. @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 29, 2015 Share Posted May 29, 2015 @guceds, указать соответствующим параметрам этих объектов нужные вам значения: WizardForm.SelectDirLabel.Width := WizardForm.SelectDirBrowseLabel.Width := WizardForm.DirEdit.Width := WizardForm.DirBrowseButton.Left := WizardForm.DiskSpaceLabel.Width := Вроде, ничего не забыл. 1 @ Quote Link to comment Short link Share on other sites More sharing options...
МаксNK_42 Posted May 30, 2015 Share Posted May 30, 2015 (edited) Помогите разобраться с ошибкой: в конце компиляции выскакивает вот такое Пишет: Процесс не может получить доступ к файлу, так как этот файл открыт в другом приложении. блин какой файл в каком приложении?:??? Подскажите хоты бы примерно где искать причину Комп перезагружал, скрипт перебирал, нечччче непойму, раньше все работало Edited May 30, 2015 by МаксNK_42 @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 30, 2015 Share Posted May 30, 2015 @МаксNK_42, такой скрин нет смысла вообще прикреплять, не читабелен. Смотрите внизу лог компиляции. На каком файле крашится - в нём и проблема. @ Quote Link to comment Short link Share on other sites More sharing options...
licimer Posted May 30, 2015 Share Posted May 30, 2015 Всем привет. Возникла необходимость разделить типы модов по страницам как это реализовано у протанки шаг 1,2,3, и т.д. Подскажите как реализовать? В теме что то не нашел. Может плохо смотрел. 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 30, 2015 Share Posted May 30, 2015 (edited) Подскажите как реализовать? В теме что то не нашел. Где-то было что-то такое. Вам нужно создать страницу, элементы на них. А дальше, исходя из того, какой у вас способ вывода изображений, адаптировать это под новую страницу. Самый удобный способ, кмк, этот (просто сделать не плавающую форму, а фиксированную, в каком-либо месте). Для расширения его действия на две страницы достаточно всего от 3-х строк. Как прикрепить файлы к компонентам на созданной странице здесь точно есть (точно помню, что давал пример). Ничего сложного, в принципе, нет. Edited May 30, 2015 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted May 30, 2015 Share Posted May 30, 2015 Это запарно :) Запутаешься Но не сложно, примеры новых стр 100 раз выкладывали @ Quote Link to comment Short link Share on other sites More sharing options...
licimer Posted May 30, 2015 Share Posted May 30, 2015 Это запарно :) Запутаешься Но не сложно, примеры новых стр 100 раз выкладывали поиск выдал не более 10 вариантов со словосочетаниями новая страница. да и то что нашел относилось лишь к страницам типа фак, редми... а мне нужно сделать несколько страниц компонентов. при чем не взаимоисключающих. ну как у про танки например. выбор прицелов далее например ангаров и далее например иконки. @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 30, 2015 Share Posted May 30, 2015 поиск выдал не более 10 вариантов со словосочетаниями новая страница. Искать нужно обширнее и конкретнее. Например "TWizardPage". @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted May 30, 2015 Share Posted May 30, 2015 (edited) поиск выдал не более 10 вариантов со словосочетаниями новая страница. да и то что нашел относилось лишь к страницам типа фак, редми... а мне нужно сделать несколько страниц компонентов. при чем не взаимоисключающих. ну как у про танки например. выбор прицелов далее например ангаров и далее например иконки. [Setup] AppName=Моя программа AppVersion=1.5 DefaultDirName={pf}\Моя программа DirExistsWarning=no AppendDefaultDirName=no [CustomMessages] CompName1=Компонент 1 CompName2=Компонент 2 CompSubtitlesLng=Язык субтитров CompVoiceLng=Язык озвучки CompRussian=Русский CompEnglish=Английский [Components] Name: comp1; Description: "{cm:CompName1}"; Name: comp2; Description: "{cm:CompName2}"; Name: comp3; Description: "{cm:CompName1}"; Name: comp4; Description: "{cm:CompName2}"; Name: comp5; Description: "{cm:CompName1}"; Name: comp6; Description: "{cm:CompName2}"; [Files] //===========================ПЕРВАЯ СТРАНИЦА ПОСЛЕ КОМПОНЕНТОВ================================\\ Source: "compiler:Languages\Russian.isl"; DestDir: "{app}"; DestName: "TextRussian.isl"; Check: IsComponentsForm1(1) Source: "compiler:Default.isl"; DestDir: "{app}"; DestName: "TextEnglish.isl"; Check: IsComponentsForm1(2) Source: "compiler:Languages\Russian.isl"; DestDir: "{app}"; DestName: "VoiceRussian.isl"; Check: IsComponentsForm1(4) Source: "compiler:Default.isl"; DestDir: "{app}"; DestName: "VoiceEnglish.isl"; Check: IsComponentsForm1(5) //===========================ВТОРАЯ СТРАНИЦА ПОСЛЕ КОМПОНЕНТОВ================================\\ Source: "compiler:Languages\Russian.isl"; DestDir: "{app}"; DestName: "TextRussian.isl"; Check: IsComponentsForm2(1) Source: "compiler:Default.isl"; DestDir: "{app}"; DestName: "TextEnglish.isl"; Check: IsComponentsForm2(2) Source: "compiler:Languages\Russian.isl"; DestDir: "{app}"; DestName: "VoiceRussian.isl"; Check: IsComponentsForm2(4) Source: "compiler:Default.isl"; DestDir: "{app}"; DestName: "VoiceEnglish.isl"; Check: IsComponentsForm2(5) //===========================ТРЕТЬЯ СТРАНИЦА ПОСЛЕ КОМПОНЕНТОВ================================\\ Source: "compiler:Languages\Russian.isl"; DestDir: "{app}"; DestName: "TextRussian.isl"; Check: IsComponentsForm3(1) Source: "compiler:Default.isl"; DestDir: "{app}"; DestName: "TextEnglish.isl"; Check: IsComponentsForm3(2) Source: "compiler:Languages\Russian.isl"; DestDir: "{app}"; DestName: "VoiceRussian.isl"; Check: IsComponentsForm3(4) Source: "compiler:Default.isl"; DestDir: "{app}"; DestName: "VoiceEnglish.isl"; Check: IsComponentsForm3(5) [Code] var ComponentsPage1,ComponentsPage2,ComponentsPage3: TWizardPage; SelectComponentsLabel1,SelectComponentsLabel2,SelectComponentsLabel3: TNewStaticText; ComponentsList1,ComponentsList2,ComponentsList3: TNewCheckListBox; procedure ComponentsForm1; begin ComponentsPage1 := CreateCustomPage(wpSelectComponents, 'ПЕРВАЯ СТРАНИЦА ПОСЛЕ КОМПОНЕНТОВ', SetupMessage(msgSelectComponentsDesc)); //========================================================================\\ SelectComponentsLabel1 := TNewStaticText.Create(WizardForm); with SelectComponentsLabel1 do begin Parent := ComponentsPage1.Surface; SetBounds(ScaleX(0), ScaleY(0), ScaleX(417), ScaleY(42)); AutoSize := False; WordWrap := True; Caption := SetupMessage(msgSelectComponentsLabel2); end; //========================================================================\\ ComponentsList1 := TNewCheckListBox.Create(WizardForm); with ComponentsList1 do begin Parent := ComponentsPage1.Surface; SetBounds(ScaleX(0), ScaleY(61), ScaleX(417), ScaleY(169)); AddCheckBox(CustomMessage('CompSubtitlesLng'), '', 0, True, False, False, True, nil); //0 AddRadioButton(CustomMessage('CompRussian'), '', 1, True, True, nil); //1 AddRadioButton(CustomMessage('CompEnglish'), '', 1, False, True, nil); //2 AddCheckBox(CustomMessage('CompVoiceLng'), '', 0, True, False, False, True, nil); //3 AddRadioButton(CustomMessage('CompRussian'), '', 1, True, True, nil); //4 AddRadioButton(CustomMessage('CompEnglish'), '', 1, False, True, nil); //5 end; end; procedure ComponentsForm2; begin ComponentsPage2 := CreateCustomPage(ComponentsPage1.ID, 'ВТОРАЯ СТРАНИЦА ПОСЛЕ КОМПОНЕНТОВ', SetupMessage(msgSelectComponentsDesc)); //========================================================================\\ SelectComponentsLabel2 := TNewStaticText.Create(WizardForm); with SelectComponentsLabel2 do begin Parent := ComponentsPage2.Surface; SetBounds(ScaleX(0), ScaleY(0), ScaleX(417), ScaleY(42)); AutoSize := False; WordWrap := True; Caption := SetupMessage(msgSelectComponentsLabel2); end; //========================================================================\\ ComponentsList2 := TNewCheckListBox.Create(WizardForm); with ComponentsList2 do begin Parent := ComponentsPage2.Surface; SetBounds(ScaleX(0), ScaleY(61), ScaleX(417), ScaleY(169)); AddCheckBox(CustomMessage('CompSubtitlesLng'), '', 0, True, False, False, True, nil); //0 AddRadioButton(CustomMessage('CompRussian'), '', 1, True, True, nil); //1 AddRadioButton(CustomMessage('CompEnglish'), '', 1, False, True, nil); //2 AddCheckBox(CustomMessage('CompVoiceLng'), '', 0, True, False, False, True, nil); //3 AddRadioButton(CustomMessage('CompRussian'), '', 1, True, True, nil); //4 AddRadioButton(CustomMessage('CompEnglish'), '', 1, False, True, nil); //5 end; end; procedure ComponentsForm3; begin ComponentsPage3 := CreateCustomPage(ComponentsPage2.ID, 'ТРЕТЬЯ СТРАНИЦА ПОСЛЕ КОМПОНЕНТОВ', SetupMessage(msgSelectComponentsDesc)); //========================================================================\\ SelectComponentsLabel3 := TNewStaticText.Create(WizardForm); with SelectComponentsLabel3 do begin Parent := ComponentsPage3.Surface; SetBounds(ScaleX(0), ScaleY(0), ScaleX(417), ScaleY(42)); AutoSize := False; WordWrap := True; Caption := SetupMessage(msgSelectComponentsLabel2); end; //========================================================================\\ ComponentsList3 := TNewCheckListBox.Create(WizardForm); with ComponentsList3 do begin Parent := ComponentsPage3.Surface; SetBounds(ScaleX(0), ScaleY(61), ScaleX(417), ScaleY(169)); AddCheckBox(CustomMessage('CompSubtitlesLng'), '', 0, True, False, False, True, nil); //0 AddRadioButton(CustomMessage('CompRussian'), '', 1, True, True, nil); //1 AddRadioButton(CustomMessage('CompEnglish'), '', 1, False, True, nil); //2 AddCheckBox(CustomMessage('CompVoiceLng'), '', 0, True, False, False, True, nil); //3 AddRadioButton(CustomMessage('CompRussian'), '', 1, True, True, nil); //4 AddRadioButton(CustomMessage('CompEnglish'), '', 1, False, True, nil); //5 end; end; function IsComponentsForm1(CompIndex: Integer): Boolean; var i: Integer; begin Result := False; for i := 0 to ComponentsList1.ItemCount - 1 do begin if CompIndex <= (ComponentsList1.ItemCount - 1) then Result := ComponentsList1.Checked[CompIndex]; end; end; //========================================================================\\ function IsComponentsForm2(CompIndex: Integer): Boolean; var i: Integer; begin Result := False; for i := 0 to ComponentsList2.ItemCount - 1 do begin if CompIndex <= (ComponentsList2.ItemCount - 1) then Result := ComponentsList2.Checked[CompIndex]; end; end; //========================================================================\\ function IsComponentsForm3(CompIndex: Integer): Boolean; var i: Integer; begin Result := False; for i := 0 to ComponentsList3.ItemCount - 1 do begin if CompIndex <= (ComponentsList3.ItemCount - 1) then Result := ComponentsList3.Checked[CompIndex]; end; end; procedure InitializeWizard(); begin ComponentsForm1; ComponentsForm2; ComponentsForm3; end; Edited May 30, 2015 by Dark_Knight_MiX 1 @ Quote Link to comment Short link Share on other sites More sharing options...
guceds Posted May 31, 2015 Share Posted May 31, 2015 Ребята, а как можно защитить свой инсталлятор от копирования и декомпиляции ? @ 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.