Dadil 37 #462560 Posted June 22, 2019 Привет друзья Я должен объединить два сценария "inno setup": один со звуком компонента, другой с предварительным просмотром компонента. Могут ли эти два сценария быть объединены ??? Я верю, что могу найти помощь здесь. С уважением, Дадил MyProgram : MyProgram.zip Quote Share this post Link to post Short link Share on other sites
Dadil 37 #462742 Posted June 25, 2019 Одна хорошая новость ..... Наконец, мне удалось получить еще одну комбинацию предварительного просмотра и звука, пометив компонент (нажав на компонент). Было бы лучше поместить мышь над компонентом = начать воспроизведение. Отодвиньте мышь = конец воспроизведения. Тем не менее, я также рад за эту возможность. Я дам вам рабочий скрипт для скачивания. Может быть, кто-то рад за нее ...... preview+sound click for component !!!!.iss 2 Quote Share this post Link to post Short link Share on other sites
hevi 1 #462887 Posted June 29, 2019 (edited) здравствуйте а можно заменить иконку ноты милодии заменить на другую #define USE_BASS [Files] #ifdef USE_BASS Source: {#Way}\bass.dll; flags: dontcopy; #endif [Code] const LB_ITEMFROMPOINT = $01A9; #ifdef UNICODE #define A "W" #define Phrase "#$266B" #else #define A "A" #define Phrase "'(пример)'" #endif type TComponentSound = record SoundName: String; Index: Integer; end; HSTREAM = Longword; var iSound: array of TComponentSound; sndCompOldProc: TNotifyEvent; #ifdef USE_BASS BASS_Handle: HWND; #endif function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall'; function MapWindowPoints(hWndFrom, hWndTo: HWND; var lpPoints: TPoint; cPoints: UINT): Integer; external '[email protected] stdcall'; #ifdef USE_BASS function BASS_Init(device: LongInt; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean; external 'BASS_Init@files:BASS.dll stdcall delayload'; function BASS_StreamCreateFile(mem: BOOL; f: PAnsiChar; offset1, offset2, length1, length2: DWORD; flags: DWORD): HSTREAM; external 'BASS_StreamCreateFile@files:BASS.dll stdcall delayload'; function BASS_StreamFree(handle: HSTREAM): BOOL; external 'BASS_StreamFree@files:BASS.dll stdcall delayload'; function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean; external 'BASS_ChannelPlay@files:BASS.dll stdcall delayload'; function BASS_Start(): Boolean; external 'BASS_Start@files:BASS.dll stdcall delayload'; function BASS_Stop(): Boolean; external 'BASS_Stop@files:BASS.dll stdcall delayload'; function BASS_Free(): Boolean; external 'BASS_Free@files:BASS.dll stdcall delayload'; #else function sndPlaySound(lpszSoundName: String; fuSound: UINT): BOOL; external 'sndPlaySound{#A}@winmm.dll stdcall'; #endif #ifdef USE_BASS procedure bassPlaySound(Filename: AnsiString); begin if (BASS_Handle <> -1) then begin BASS_Stop(); BASS_StreamFree(BASS_Handle); BASS_Handle:= -1; end; BASS_Handle:= BASS_StreamCreateFile(false, PAnsiChar(Filename), 0, 0, 0, 0, 0); BASS_Start(); BASS_ChannelPlay(BASS_Handle, false); end; #endif procedure PlaySound(Sender: TObject); var i, f, lParam, ids: Integer; p: TPoint; s: String; box: TNewCheckListBox; begin box:= TNewCheckListBox(Sender); GetCursorPos(p); MapWindowPoints(0, box.Handle, p, 1); lParam:= p.x or (p.y shl 16); i:= SendMessage(WizardForm.ComponentsList.Handle, LB_ITEMFROMPOINT, 0, lParam); if ((i shr 16) = 1) or ((i and $FFFF) < 0) then Exit; i:= i and $FFFF; if (i < 0) or (i >= box.Items.Count) then Exit; ids:= i; f:= -1; for i:= 0 to GetArrayLength(iSound)-1 do begin if (ids = iSound[i].Index) then begin f:= i; Break; end; end; if (f < 0) then Exit; s:= box.ItemCaption[ids]; if (Pos({#Phrase}, s) <= 0) then Exit; if FileExists(iSound[f].SoundName) then #ifdef USE_BASS bassPlaySound(iSound[f].SoundName); #else sndPlaySound(iSound[f].SoundName, 0); #endif if (sndCompOldProc <> nil) then sndCompOldProc(Sender); end; procedure AddItemSound(AIndex: Integer; AFilename: String); var i: Integer; begin i:= GetArrayLength(iSound); SetArrayLength(iSound, i+1); iSound[i].Index:= AIndex-1; iSound[i].SoundName:= ExpandConstant(AFilename); WizardForm.ComponentsList.ItemCaption[AIndex-1]:= WizardForm.ComponentsList.ItemCaption[AIndex-1] + ' '+{#Phrase}; end; procedure InitializeWizard10(); begin #ifdef USE_BASS BASS_Init(-1, 44100, 0, 0, 0); BASS_Start(); BASS_Handle:= -1; #endif WizardForm.ComponentsList.Width := ScaleX(483); WizardForm.ComponentsList.Height := ScaleY(270); sndCompOldProc:= WizardForm.ComponentsList.OnClick; WizardForm.ComponentsList.OnClick:= @PlaySound; ExtractTemporaryFile('Озвучка Фрагов в бою.mp3'); AddItemSound(2, '{tmp}\Озвучка Фрагов в бою.mp3'); end; #ifdef USE_BASS procedure DeinitializeSetup(); begin BASS_Stop(); BASS_Free(); end; #endif Edited June 29, 2019 by hevi Quote Share this post Link to post Short link Share on other sites
hevi 1 #463117 Posted June 30, 2019 (edited) 03.04.2019 в 15:13, Draugd сказал: можно ли сделать чтоб картинки формата пнг или джепег отображались в установщике при наведении? а то .BMP весят каждая как мр3 ((( и можно ли как нибудь исправить такие жуткие подвисания установщика при выборе модов? ((( D Mod White v.5.2.exe 24 MB · 6 скачиваний #include "Addons\botva2.iss" #include "Addons\BASS_Module.iss" [Code] #ifdef UNICODE #define A "W" #else #define A "A" #endif const UNDEF_INDEX = -777; ALPHA_BLEND_LEVEL = 255; // max=Byte=255 WS_EX_LAYERED = $80000; WS_EX_TRANSPARENT = $20; LWA_COLORKEY = 1; LWA_ALPHA = 2; GWL_EXSTYLE = (-20); var InfoPic: TBitmapImage; LastIndex: Integer; TempPath: String; PicForm: TForm; type COLORREF = DWORD; function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall'; function SetLayeredWindowAttributes(Hwnd: THandle; crKey: COLORREF; bAlpha: Byte; dwFlags: DWORD): Boolean; external '[email protected] stdcall'; function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLong{#A}@user32.dll stdcall'; function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall'; function SetFocus(hWnd: HWND): HWND; external '[email protected] stdcall'; function WOT_GetClientsCount(): Integer; external 'WOT_GetClientsCount@files:FindWot.dll cdecl'; function WOT_GetClientBranch(ClientIndex: Integer): Integer; external 'WOT_GetClientBranch@files:FindWot.dll cdecl'; procedure WOT_GetClientPathW(Buffer: String; BufferSize: Integer; ClientIndex: Integer); external 'WOT_GetClientPathW@files:FindWot.dll cdecl'; function DefaultDirName(Param: String): String; var ClientsCount, Index: Integer; FoundDir: String; begin SetLength(FoundDir, 1024); ClientsCount:=WOT_GetClientsCount(); if ClientsCount > 0 then begin for Index:=0 to ClientsCount-1 do begin if WOT_GetClientBranch(Index) = 1 then begin WOT_GetClientPathW(FoundDir, Length(FoundDir)-1, Index); Result:=ExpandConstant(FoundDir); end; end; end else Result:=ExpandConstant('{sd}\Games\World_of_Tanks'); end; procedure ShowPicHint(const PicFilePath: String); var pt: TPoint; begin if not GetCursorPos(pt) then Exit; InfoPic.Bitmap.LoadFromFile(PicFilePath); try with PicForm do begin SetBounds(ScaleX(WizardForm.Left + 509), ScaleY(WizardForm.Top + 80), InfoPic.Width, InfoPic.Height); Show; end; finally SetFocus(WizardForm.Handle); end; 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 '1.Командирская камера.': UndefPic := 'KK.bmp'; '2.Винтик.': UndefPic := 'VNT.bmp'; '3.Панель урона.': UndefPic := 'PY.bmp'; '4.AutoEquip авто установка/снятие оборудования.': UndefPic := 'AO.bmp'; '5.Калькулятор эффективности в бою.': UndefPic := 'KEB.bmp'; '6.Таймер сведения орудия в бою.': UndefPic := 'TS.bmp'; '7.Увеличенное время лампы засвета.': UndefPic := 'LZ.bmp'; '8.Статистика за сессию YasenKrasen Vanilla.': UndefPic := 'SS.bmp'; '9.Шанс на победу + хп команд.': UndefPic := 'SHP.bmp'; '10.Рейтинг отметок на стволе.': UndefPic := 'ML.bmp'; '11.Углы горизонтальной наводки.': UndefPic := 'YGN.bmp'; '12.Радар.': UndefPic := 'TLS.bmp'; '1.Гарпун мини + сведение Fatality.': UndefPic := 'PGM.bmp'; '2.Прицел Taipan (мини) настройка Draug.': UndefPic := 'TS.bmp'; '3.Прицел OverCross + сведение MeltyMaps.': UndefPic := 'OC.bmp'; '4.Прицел Гарпун Lite.': UndefPic := 'PGL.bmp'; '5.Улучшенный прицел J1mb0 мини.': UndefPic := 'PJ.bmp'; '6.Прицел Ахиллес.': UndefPic := 'PAH.bmp'; '7.Прицел минималистичный.': UndefPic := 'PMI.bmp'; '1.Минималистичный лог.': UndefPic := 'ML.bmp'; '2.Подробный лог.': UndefPic := 'PL.bmp'; '1.Стволик хаоса.': UndefPic := 'SH.bmp'; '2.Блокировка выстрела по союзникам и трупам.': UndefPic := 'BV.bmp'; '3.Зум х30 старт х2 + улучшенная видимость.': UndefPic := 'YGN.bmp'; '4.Пересадка экипажа.': UndefPic := 'AVE.bmp'; '5.Направление стволов на миникарте.': UndefPic := 'NSM.bmp'; '6.Калькулятор бронепробития.': UndefPic := 'KB.bmp'; '7.Мульти клиент.': UndefPic := 'MK.bmp'; '8.Отключение тумана.': UndefPic := 'OT.bmp'; '9.Засвет в ушах.': UndefPic := 'ZY.bmp'; '10.Места пассивного засвета (Spoter).': UndefPic := 'MZ.bmp'; '11.ЛБЗ в бою.': UndefPic := 'LBZ.bmp'; '12.Рейтинг игроков в бою.': UndefPic := 'RI.bmp'; '13.Сумарный WN8 комманд (Ekspoint).': UndefPic := 'PPB.bmp'; '14.ХП противников в ушах.': UndefPic := 'HP.bmp'; '15.Информатор засвета.': UndefPic := 'IZ.bmp'; '16.Информационная панель.': UndefPic := 'IP.bmp'; '17.Маркер автоприцела.': UndefPic := 'IA.bmp'; '18.Оповещения союзников о засвете.': UndefPic := 'OZ.bmp'; '1.Свободное вращение камеры.': UndefPic := 'RK.bmp'; '2.Полное отключение ручника.': UndefPic := 'RK.bmp'; else begin LastIndex := UNDEF_INDEX; PicForm.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 PicForm.Hide; LastIndex := -1; end; procedure InitInfo(); begin WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove; WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave; TempPath := AddBackslash(ExpandConstant('{tmp}')); LastIndex := UNDEF_INDEX; PicForm := TForm.Create(WizardForm) with PicForm do begin BorderStyle := bsNone; FormStyle := fsStayOnTop; InfoPic := TBitmapImage.Create(PicForm) with InfoPic do begin Parent := PicForm; AutoSize := True; end; end; SetWindowLong(PicForm.Handle, GWL_EXSTYLE, GetWindowLong(PicForm.Handle, GWL_EXSTYLE) or WS_EX_LAYERED); SetLayeredWindowAttributes(PicForm.Handle, 0, ALPHA_BLEND_LEVEL, LWA_ALPHA); end; procedure InitializeWizard1(); begin InitInfo(); end; function NextButtonclick(CurPageID: Integer): Boolean; begin Result := True; case CurPageID of wpSelectDir: if not FileExists(ExpandConstant('{app}\WorldOfTanks.exe')) then begin MsgBox('Не верно указана папка World of Tanks!', mbError, MB_OK); Result := False; end; end; end; Попробуй вот это Desktop.rar Edited June 30, 2019 by hevi Quote Share this post Link to post Short link Share on other sites
Dadil 37 #463240 Posted July 3, 2019 On 30. 6. 2019 at 22:21, hevi said: Zkuste to Desktop.rar 678.02 kB · 5 stažení Привет, Хороший вариант, большое спасибо ... Я обязательно попробую ..... Quote Share this post Link to post Short link Share on other sites
Dadil 37 #463463 Posted July 8, 2019 Привет друзья Мне нужен совет о том, как центрировать увеличенное окно инсталлятора Inno. Заранее спасибо ... И я желаю вам здоровья и благополучия. Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #463464 Posted July 8, 2019 5 minutes ago, Dadil said: Мне нужен совет о том, как центрировать увеличенное окно инсталлятора Inno. Для расширенной версии компилятора: WizardForm.Center(); Для стандартной: WizardForm.Position := poDesktopCenter; 2 Quote Share this post Link to post Short link Share on other sites
Dadil 37 #463483 Posted July 8, 2019 2 hours ago, Kotyarko_O said: Для расширенной версии компилятора: Для стандартной: Спасибо большое.... Теперь все хорошо Хороший совет больше, чем золото ... Храни вас бог ..... Quote Share this post Link to post Short link Share on other sites
P.S.Enot 416 #463504 Posted July 8, 2019 (edited) Доброго времени суток. Может кому то пригодится настройка регулятора в 30 процентов звука изначальна с ползунком bass.zip Edited July 8, 2019 by P.S.Enot 2 Quote Share this post Link to post Short link Share on other sites
Lom 48 #467140 Posted September 14, 2019 всем приветы. подскажите как в этот код добавить чтобы и на странице таска тоже картинку показывало при наведении? [Code] function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall'; var InfoPic: TBitmapImage; TempPath: String; procedure ShowPicHint(const PicFilePath: String); var pt: TPoint; begin if not GetCursorPos(pt) then Exit; InfoPic.Bitmap.LoadFromFile(PicFilePath); InfoPic.SetBounds(ScaleX(521), ScaleY(100), ScaleX(500), ScaleY(350)); // 1-двигает саму картинку лево-право 2-вверх-вниз // 3-вширь окно картинки... 4-в высоту окно картинки InfoPic.Show; end; procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea); var UndefPic: String; begin if Index = -1 then Exit; try case TNewCheckListBox(Sender).ItemCaption[Index] of '. Анимированная лампочка 10сек.': UndefPic := 'анимированная лампочка.bmp'; '. Белые трупы танков и белые гусеницы': UndefPic := 'белые трупы.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; else begin InfoPic.Hide; Exit; end; end; if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic); ShowPicHint(TempPath + UndefPic); finally end; end; procedure CompOnMouseLeave(Sender: TObject); begin InfoPic.Hide; end; procedure InitInfo(); begin WizardForm.TypesCombo.Hide; WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(20), ScaleX(520), ScaleY(505)); WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove; WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave; TempPath := AddBackslash(ExpandConstant('{tmp}')); with TBevel.Create(WizardForm) do begin Parent := WizardForm.SelectComponentsPage; SetBounds(ScaleX(434), ScaleY(20), ScaleX(590), ScaleY(505)); // 1-двигает само окно картинки лево-право 2-вверх-вниз // 3-вширь окно картинки... 4-в высоту окно картинки Shape := bsFrame; end; InfoPic := TBitmapImage.Create(WizardForm) with InfoPic do begin Parent := WizardForm.SelectComponentsPage; AutoSize := True; end; end; 2 Quote Share this post Link to post Short link Share on other sites
hevi 1 #467770 Posted September 25, 2019 14.09.2019 в 14:08, Lom сказал: всем приветы. подскажите как в этот код добавить чтобы и на странице таска тоже картинку показывало при наведении? [Code] function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall'; var InfoPic: TBitmapImage; TempPath: String; procedure ShowPicHint(const PicFilePath: String); var pt: TPoint; begin if not GetCursorPos(pt) then Exit; InfoPic.Bitmap.LoadFromFile(PicFilePath); InfoPic.SetBounds(ScaleX(521), ScaleY(100), ScaleX(500), ScaleY(350)); // 1-двигает саму картинку лево-право 2-вверх-вниз // 3-вширь окно картинки... 4-в высоту окно картинки InfoPic.Show; end; procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea); var UndefPic: String; begin if Index = -1 then Exit; try case TNewCheckListBox(Sender).ItemCaption[Index] of '. Анимированная лампочка 10сек.': UndefPic := 'анимированная лампочка.bmp'; '. Белые трупы танков и белые гусеницы': UndefPic := 'белые трупы.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; '. НАЗВАНИЕ МОДА': UndefPic := 'НАЗВАНИЕ КАРТИНКИ.bmp'; else begin InfoPic.Hide; Exit; end; end; if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic); ShowPicHint(TempPath + UndefPic); finally end; end; procedure CompOnMouseLeave(Sender: TObject); begin InfoPic.Hide; end; procedure InitInfo(); begin WizardForm.TypesCombo.Hide; WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(20), ScaleX(520), ScaleY(505)); WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove; WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave; TempPath := AddBackslash(ExpandConstant('{tmp}')); with TBevel.Create(WizardForm) do begin Parent := WizardForm.SelectComponentsPage; SetBounds(ScaleX(434), ScaleY(20), ScaleX(590), ScaleY(505)); // 1-двигает само окно картинки лево-право 2-вверх-вниз // 3-вширь окно картинки... 4-в высоту окно картинки Shape := bsFrame; end; InfoPic := TBitmapImage.Create(WizardForm) with InfoPic do begin Parent := WizardForm.SelectComponentsPage; AutoSize := True; end; end; Афигеть ты даже самое элементарное не можешь сделать, просто поменять слова на те которые нужно, лентяй и даже помогать тебе не буду,за тебя тут модпак собрали а ты так и не вник в суть 1 Quote Share this post Link to post Short link Share on other sites
Lom 48 #467774 Posted September 25, 2019 51 минуту назад, hevi сказал: Афигеть ты даже самое элементарное не можешь сделать, просто поменять слова на те которые нужно, лентяй и даже помогать тебе не буду,за тебя тут модпак собрали а ты так и не вник в суть а я что просил тебя о помощи? кому не лень и кому в масть помогут и помогали уже. не все же тут такие АФИГИТЕЛЬНЫЕ как ты. 3 Quote Share this post Link to post Short link Share on other sites
hevi 1 #467785 Posted September 25, 2019 (edited) 6 часов назад, Lom сказал: а я что просил тебя о помощи? кому не лень и кому в масть помогут и помогали уже. не все же тут такие АФИГИТЕЛЬНЫЕ как ты. подсказка загадка два слова поменяй где видишь ........... на .................. , по этому за 3 года ты лентяй и даже такой простой язык не можешь выучить, а лучше почитай последние 50 а может и по больше страниц там всё найдёшь 22 минуты назад, hevi сказал: подсказка загадка два слова поменяй где видишь ........... на .................. , по этому за 3 года ты лентяй и даже такой простой язык не можешь выучить, а лучше почитай последние 50 а может и по больше страниц там всё найдёшь в причём я выше кидал там по новей код картинок чем у тебя с фризами, а самое главное если ты сделаешь у тебя будет вопрос как два одинаковых скрипта что в компонентах работали и не выдавали дубликат с таксом)))))) Edited September 25, 2019 by hevi 1 1 Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #467794 Posted September 26, 2019 Лом, копни в сторону Parent := WizardForm.SelectComponentsPage; 1 Quote Share this post Link to post Short link Share on other sites
hevi 1 #467796 Posted September 26, 2019 (edited) теплее))))) да что ты , ты думаешь он будет думать, он будет лежать и ждать пока ему на блюдечке всё сделают и выложат. Edited September 26, 2019 by hevi 2 3 Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #467798 Posted September 26, 2019 1 час назад, hevi сказал: теплее))))) да что ты , ты думаешь он будет думать, он будет лежать и ждать пока ему на блюдечке всё сделают и выложат. Да я то понимаю, но тема то создана для помощи, раз не хочется писать сразу ответ, это одно, но волшебного пинка хотя бы надо дать, а вдруг догадается как сделать, и станет новым гуру в области модпакомейкерства:) Все мы когда-то задаём идиотские вопросы, но я считаю что лучше 100 раз спросить и выглядеть глупым, чем 1 раз не спросить и быть тупым всегда. 2 1 Quote Share this post Link to post Short link Share on other sites
hevi 1 #468058 Posted October 2, 2019 26.09.2019 в 12:51, Andrew_Dark сказал: Да я то понимаю, но тема то создана для помощи, раз не хочется писать сразу ответ, это одно, но волшебного пинка хотя бы надо дать, а вдруг догадается как сделать, и станет новым гуру в области модпакомейкерства:) Все мы когда-то задаём идиотские вопросы, но я считаю что лучше 100 раз спросить и выглядеть глупым, чем 1 раз не спросить и быть тупым всегда. я же говорил, что он лентяй, за неделю он даже носом не повёл 50 страниц почитать, котярко читает и правильно что не подсказывает тугадуму лому, не забываем мне за правду минусы ставить 2 2 Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #468059 Posted October 2, 2019 А как ты это узнал? Что именно он ставит. 33 минуты назад, hevi сказал: я же говорил, что он лентяй, за неделю он даже носом не повёл 50 страниц почитать, котярко читает и правильно что не подсказывает тугадуму лому, не забываем мне за правду минусы ставить Quote Share this post Link to post Short link Share on other sites
hevi 1 #468064 Posted October 2, 2019 53 минуты назад, Andrew_Dark сказал: А как ты это узнал? Что именно он ставит. а где я написал что он минусует, не забываем опять минус поставить 2 Quote Share this post Link to post Short link Share on other sites
Lom 48 #468066 Posted October 2, 2019 19 минут назад, hevi сказал: а где я написал что он минусует, не забываем опять минус поставить а не с твинка писать смелости не хватает? или рефлекс шлюхи даже тут в инете срабатывает? 1 2 Quote Share this post Link to post Short link Share on other sites