Kotyarko_O 1,906 #297915 Posted November 7, 2015 (edited) @lexx7205, у тебя в скрипте две одноимённые процедуры, такого быть не должно. Переименуй одну из них. Edited November 7, 2015 by Kotyarko_O 1 Quote Share this post Link to post Short link Share on other sites
lexx7205 0 #297917 Posted November 7, 2015 большое человеческое спасибо вы очень помогли всё работает Quote Share this post Link to post Short link Share on other sites
lexx7205 0 #298109 Posted November 8, 2015 @lexx7205, у тебя в скрипте две одноимённые процедуры, такого быть не должно. Переименуй одну из них. кто может подсказать на что можно Переименовать процедуру чтобы всё работало а то возникают иногда конфликты Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #298110 Posted November 8, 2015 на что можно Переименовать процедуру чтобы всё работало а то возникают иногда конфликты На что угодно. Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #298111 Posted November 8, 2015 @lexx7205 ты издеваешься? сколько стр ты прочитал? 1 Quote Share this post Link to post Short link Share on other sites
lexx7205 0 #298134 Posted November 9, 2015 На что угодно. извините меня пожалуйста может я и чайник но не тупой издеваться не над кем я не собирался просто происходит интересный факт сборка работает нормально , но стоит поменять что ничуть например новый мод и всё перестаёт показывать то картинки или меню от Дистолятора поэтому я подумал может я неправильно меняю название. Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #298136 Posted November 9, 2015 @lexx7205, помимо того, что ты меняешь имя самой процедуры, нужно прописывать её новое имя ещё в месте её инициализации.Полагаю, что сейчас у тебя так: Procedure RedesignWizardForm(); begin ... end; Procedure RedesignWizardForm(); begin ... end; Procedure InitializeWizard(); begin RedesignWizardForm(); ... end; А нужно, например, так: Procedure RedesignWizardForm(); begin ... end; Procedure RedesignWizardForm1(); begin ... end; Procedure InitializeWizard(); begin RedesignWizardForm(); RedesignWizardForm1(); ... end; P.s. изучай основы языка, просматривай примеры, прочитай эту тему. Quote Share this post Link to post Short link Share on other sites
lexx7205 0 #298168 Posted November 9, 2015 @lexx7205, помимо того, что ты меняешь имя самой процедуры, нужно прописывать её новое имя ещё в месте её инициализации. Полагаю, что сейчас у тебя так: Procedure RedesignWizardForm(); begin ... end; Procedure RedesignWizardForm(); begin ... end; Procedure InitializeWizard(); begin RedesignWizardForm(); ... end; А нужно, например, так: Procedure RedesignWizardForm(); begin ... end; Procedure RedesignWizardForm1(); begin ... end; Procedure InitializeWizard(); begin RedesignWizardForm(); RedesignWizardForm1(); ... end; P.s. изучай основы языка, просматривай примеры, прочитай эту тему. спасибо за подсказку пришлось немного по потеть с этими двумя содами и простите меня чайника за назойливость Quote Share this post Link to post Short link Share on other sites
yatank5 5 #298311 Posted November 10, 2015 Делаю установщик для теста, ввожу ключ для поиска папки теста {1EAC1D02-C6AC-4FA6-9A44-96258C37C812CT}_is1, но папку не находит. Помогите с рабочим ключем. Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #298312 Posted November 10, 2015 Делаю установщик для теста, ввожу ключ для поиска папки теста {1EAC1D02-C6AC-4FA6-9A44-96258C37C812CT}_is1, но папку не находит. Помогите с рабочим ключем. http://www.koreanrandom.com/forum/topic/9050-инсталлятор-для-модпаков/?p=297878 тут смотри Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #298314 Posted November 10, 2015 Делаю установщик для теста, ввожу ключ для поиска папки теста {1EAC1D02-C6AC-4FA6-9A44-96258C37C812CT}_is1, но папку не находит. Помогите с рабочим ключем. С ключём всё в порядке. Проверяйте код. Понадобится пример, можете посмотреть здесь, где {#ClientReg} и есть ключ. Quote Share this post Link to post Short link Share on other sites
yatank5 5 #298315 Posted November 10, 2015 Посмотрел, у меня на компе этого ключа нет по адресу SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\, но тест установлен. SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1 работает. SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812CT}_is1 не работает, но где то 7 обнов назад работало,. Проверти, работает ли у вас, а то у меня раньше же работало, ничего не менял, или скиньте код на проверку для теста, где у вас работает. Скачал код на первой странице темы, вставил ключ, но папку не находит. Так что проблема скорее всего в ключе. Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #298319 Posted November 10, 2015 (edited) или скиньте код на проверку для теста, где у вас работает. В тестах не участвую и не загружаю их. Так что и проверить возможности нет. Вспоминайте, после установки клиента, систему переустанавливали? Или может папку перемещали? Если да, то выхода два: переустановить игру или создать ветку вручную. Edited November 10, 2015 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
asterix93 9 #298483 Posted November 13, 2015 Privet vsem! pamaghite pajalusta pacemu daiot ata asibka ransa u minea bil UNICODE a siceas ea stavil ANSI!!! Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #298500 Posted November 13, 2015 @asterix93, если вы уже залезли в программирование без знаний английского языка, то потрудитесь хотя бы самостоятельно пользоваться переводчиком. Проблема в изображении(ях), с расширением *.bmp. Quote Share this post Link to post Short link Share on other sites
lexx7205 0 #298574 Posted November 14, 2015 привет всем какое расширение должно быть у картинок и кокой программой лучше редактировать картинки Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #298578 Posted November 14, 2015 (edited) привет всем какое расширение должно быть у картинок и кокой программой лучше редактировать картинки Если не используешь сторонних библиотек, то BMP. Если botva2 & etc., то jpg, png или gif. Если нужно просто подрезать/изменить размер и т.п., то с головой хватит ACDSee.А так конечно только Photoshop. У меня связка Photoshop + ACDSee. Всё находится на трекерах прекрасно. З.Ы. Да, для Алёшек выше. Разрешение файла не означает, что формат файла именно такой. Потрудитесь переконвертировать его перед этим (JPG --> BMP), а не просто изменить расширение как "тру-пасаны". ACDSee прекрасно конвертирует файлы "из коробки", например. Edited November 14, 2015 by AtotIK Quote Share this post Link to post Short link Share on other sites
lexx7205 0 #298606 Posted November 14, 2015 всем привет у меня просто проблема картинки видны на половину хоть и меняю разрешение Если не используешь сторонних библиотек, то BMP. Если botva2 & etc., то jpg, png или gif. Если нужно просто подрезать/изменить размер и т.п., то с головой хватит ACDSee.А так конечно только Photoshop. У меня связка Photoshop + ACDSee. Всё находится на трекерах прекрасно. З.Ы. Да, для Алёшек выше. Разрешение файла не означает, что формат файла именно такой. Потрудитесь переконвертировать его перед этим (JPG --> BMP), а не просто изменить расширение как "тру-пасаны". ACDSee прекрасно конвертирует файлы "из коробки", например. всем привет у меня просто проблема картинки видны на половину хоть и меняю разрешение Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #298607 Posted November 14, 2015 А в коде что написано? Туда и смотри. Где-то не те размеры указаны. Quote Share this post Link to post Short link Share on other sites
lexx7205 0 #298615 Posted November 14, 2015 А в коде что написано? Туда и смотри. Где-то не те размеры указаны. var InfoPic: TBitmapImage; LastIndex: Integer; TempPath: String; procedure ShowPicHint(const PicFilePath: String); var pt: TPoint; begin if not GetCursorPos(pt) then Exit; InfoPic.Bitmap.LoadFromFile(PicFilePath); InfoPic.SetBounds(ScaleX(360), ScaleY(40), ScaleX(290), ScaleY(278)); InfoPic.Show; end; Quote Share this post Link to post Short link Share on other sites