Kotyarko_O 1,906 #235085 Posted December 9, 2014 (edited) как переместить в новое окно по кнопке? Называй вещи своими именами. В созданную форму. Берёшь и перемещаешь. Все элементы от визарда удаляешь (т.к. на форме их нет), а парентам назначаешь новое место. Edited December 9, 2014 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #235126 Posted December 9, 2014 Называй вещи своими именами. В созданную форму. Берёшь и перемещаешь. Все элементы от визарда удаляешь (т.к. на форме их нет), а парентам назначаешь новое место. ага Quote Share this post Link to post Short link Share on other sites
woole 5 #235174 Posted December 10, 2014 ???На твоих скринах вместо кавычек везде << и >>, которые выглядят отвратительно. Я безвозмездно подарил тебе нормальные кавычки, которые ты можешь спокойной копировать в скрипт Quote Share this post Link to post Short link Share on other sites
MEDNIKs 2 #235193 Posted December 10, 2014 На твоих скринах вместо кавычек везде << и >>, которые выглядят отвратительно. Я безвозмездно подарил тебе нормальные кавычки, которые ты можешь спокойной копировать в скрипт Спасибо,а я чет даже и внимание не обращал! Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #235234 Posted December 10, 2014 как изменить формат картинки на ipg в этом коде+ ботву к нему? можно ли так вообще сделать для этого кода? procedure RedesignWizardForm1; begin with WizardForm do begin AutoScroll := False; end; end; const UNDEF_INDEX = -777; function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall'; 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.Left := ScaleX(490); // размер картинки 323X279 InfoPic.Top := ScaleY(28); InfoPic.Width := ScaleX(323); InfoPic.Height := ScaleY(279); InfoPic.Show; end; procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea); var UndefPic: String; begin if Index = -1 then Exit; if Index = LastIndex then Exit; try case TNewCheckListBox(Sender).ItemCaption[Index] of //-----------------------КАРТИНКИ----------------------------\\ 'OverCross от zayaz': UndefPic := 'OverCross от zayaz.bmp'; 'Корейский прицел (Deegie Sights)': UndefPic := 'Корейский прицел (Deegie Sights).bmp'; 'Прицел J1mB0': UndefPic := 'Прицел J1mB0.bmp'; 'Прицел от Орешкина (Зеленый)': UndefPic := 'Прицел от Орешкина (Зеленый).bmp'; 'Прицел от Орешкина (Синий)': UndefPic := 'Прицел от Орешкина (Синий).bmp'; //************************************************************\\ else begin LastIndex := UNDEF_INDEX; InfoPic.Hide; Exit; end; end; if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic); ShowPicHint(TempPath + UndefPic); finally LastIndex := Index; end; end; procedure CompOnMouseLeave(Sender: TObject); begin InfoPic.Hide; LastIndex := -1; end; procedure InitializeWizard1(); begin with WizardForm.ComponentsList do //рамка компонентов begin Top := ScaleY(26); Width := ScaleX(473); Height := ScaleY(284); Offset := 0; WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove; WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave; TempPath := AddBackslash(ExpandConstant('{tmp}')); LastIndex := UNDEF_INDEX; end; with TBevel.Create(WizardForm) do begin Parent := WizardForm.SelectComponentsPage; Left := ScaleX(488); //рамка картинки Top := ScaleY(26); Width := ScaleX(329); Height := ScaleY(284); Shape := bsFrame; end; InfoPic := TBitmapImage.Create(WizardForm) with InfoPic do begin Parent := WizardForm.SelectComponentsPage; Left := ScaleX(490); Top := ScaleY(28); Width := ScaleX(323); Height := ScaleY(279); AutoSize := true; ExtractTemporaryFile('WizardForm.BitmapImage1.bmp'); Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp')); end; end; Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #235479 Posted December 12, 2014 почему ошибка BeforeInstall: AddToMemo UpdateFile; Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #235488 Posted December 12, 2014 почему ошибка Потому что разрешается только одну функцию\процедуру туда пихать. Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #235490 Posted December 12, 2014 Потому что разрешается только одну функцию\процедуру туда пихать. а как вместе объединить? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #235491 Posted December 12, 2014 а как вместе объединить? Руками. Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #235492 Posted December 12, 2014 Засунуть одну в другую как вариант. Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #235494 Posted December 12, 2014 Засунуть одну в другую как вариант. можно,но желательно отдельно Руками. и как же Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #235508 Posted December 12, 2014 (edited) желательно отдельно Какая разница? Функцию\процедуру можно выполнить из-под другой функции\процедуры. Edited December 12, 2014 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #235509 Posted December 12, 2014 Какая разница? мне так проще будет,одна чать для бекапа а другая лог установки Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #235511 Posted December 12, 2014 мне так проще будет,одна чать для бекапа а другая лог установки И что, в чём-то одном это будет тяжело отличить? Там кода на пару строк.. что одного, что второго. Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #235517 Posted December 12, 2014 И что, в чём-то одном это будет тяжело отличить? Там кода на пару строк.. что одного, что второго. ок Quote Share this post Link to post Short link Share on other sites
Prost 1 #235567 Posted December 13, 2014 А как сделать что бы файл например качался из интернета? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #235568 Posted December 13, 2014 (edited) А как сделать что бы файл например качался из интернета? InnoTools Downloader, Inno Download Plugin. Edited December 13, 2014 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
MEDNIKs 2 #235573 Posted December 13, 2014 @Kotyarko_O,Будь добр,растолкуй за что отвечает procedure CreateWizardImage, а за ,что procedure RedesignWizardForm ? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #235578 Posted December 13, 2014 procedure RedesignWizardForm Это название по-умолчанию присваивает Редактор форм. Вместо "RedesignWizardForm" может быть (почти) любое слово\группа слов. Эта процедура для перестроения некоторых элементов визарда (где-то что-то увеличить, убрать, уменьшить; из уже существующих элементов). procedure CreateWizardImage С названием та же история, только пошло с примеров ботвы. Процедура создания элементов с помощью ботвы. 1 Quote Share this post Link to post Short link Share on other sites
MEDNIKs 2 #235579 Posted December 13, 2014 Это название по-умолчанию присваивает Редактор форм. Вместо "RedesignWizardForm" может быть (почти) любое слово\группа слов. Эта процедура для перестроения некоторых элементов визарда (где-то что-то увеличить, убрать, уменьшить; из уже существующих элементов). С названием та же история, только пошло с примеров ботвы. Процедура создания элементов с помощью ботвы. Спасибо! Quote Share this post Link to post Short link Share on other sites