liked Posted May 28, 2014 Share Posted May 28, 2014 Вот ещё проблема SoundCtrlButton.Top := WizardForm.ClientHeight -Насколько я понял это положение кнопки по вертикале если меняю на SoundCtrlButton.Top := 300выдаёт ошибку @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 28, 2014 Share Posted May 28, 2014 (edited) выдаёт ошибку скрин ошибки сделай. Я не могу угадывать.. Edited May 28, 2014 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
ventura69 Posted May 28, 2014 Share Posted May 28, 2014 А почему нельзя Top := ScaleY(300); как и всякие координаты? @ Quote Link to comment Short link Share on other sites More sharing options...
-zav- Posted May 28, 2014 Share Posted May 28, 2014 думаю там просто точки с запятой не хватает ;делаем ставки :) @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted May 28, 2014 Share Posted May 28, 2014 (edited) -zav-, ну если Unicode, то возможно. В ANSI можно и без них обходится. З.Ы. Unicode конечно хорошо, но всё же я советовал бы писать на ANSI-версии. Edited May 28, 2014 by AtotIK @ Quote Link to comment Short link Share on other sites More sharing options...
liked Posted May 28, 2014 Share Posted May 28, 2014 (edited) скрин ошибки сделай. Я не могу угадывать.. 'Music.iss' [Music] [Files] Source: "Bass.dll"; Flags: dontcopy nocompression noencryption Source: "AudioFile.mp3"; Flags: dontcopy [CustomMessages] SoundCtrlButtonCaptionSoundOn=Music on SoundCtrlButtonCaptionSoundOff=Music off constBASS_SAMPLE_LOOP = 4;BASS_ACTIVE_STOPPED = 0;BASS_ACTIVE_PLAYING = 1;BASS_ACTIVE_STALLED = 2;BASS_ACTIVE_PAUSED = 3;BASS_UNICODE = $80000000;BASS_CONFIG_GVOL_STREAM = 9;const#ifndef UNICODEEncodingFlag = 0;#elseEncodingFlag = BASS_UNICODE;#endiftypeHSTREAM = DWORD; function BASS_Init(device: LongInt; freq, flags: DWORD;win: HWND; clsid: Cardinal): BOOL;external 'BASS_Init@files:bass.dll stdcall';function BASS_StreamCreateFile(mem: BOOL; f: string; offset1: DWORD;offset2: DWORD; length1: DWORD; length2: DWORD; flags: DWORD): HSTREAM;external 'BASS_StreamCreateFile@files:bass.dll stdcall';function BASS_Start: BOOL;external 'BASS_Start@files:bass.dll stdcall';function BASS_Pause: BOOL;external 'BASS_Pause@files:bass.dll stdcall';function BASS_ChannelPlay(handle: DWORD; restart: BOOL): BOOL;external 'BASS_ChannelPlay@files:bass.dll stdcall';function BASS_SetConfig(option: DWORD; value: DWORD ): BOOL;external 'BASS_SetConfig@files:bass.dll stdcall';function BASS_ChannelIsActive(handle: DWORD): DWORD;external 'BASS_ChannelIsActive@files:bass.dll stdcall';function BASS_Free: BOOL;external 'BASS_Free@files:bass.dll stdcall'; varSoundStream: HSTREAM;SoundCtrlButton: TNewButton; procedure SoundCtrlButtonClick(Sender: TObject);begincase BASS_ChannelIsActive(SoundStream) ofBASS_ACTIVE_PLAYING:beginif BASS_Pause thenSoundCtrlButton.Caption :=ExpandConstant('{cm:SoundCtrlButtonCaptionSoundOn}');end;BASS_ACTIVE_PAUSED:beginif BASS_Start thenSoundCtrlButton.Caption :=ExpandConstant('{cm:SoundCtrlButtonCaptionSoundOff}');end;end;end; procedure InitializeWizard2;beginExtractTemporaryFile('AudioFile.mp3');if BASS_Init(-1, 44100, 0, 0, 0) thenbeginSoundStream := BASS_StreamCreateFile(False,ExpandConstant('{tmp}\AudioFile.mp3'), 0, 0, 0, 0,EncodingFlag or BASS_SAMPLE_LOOP);BASS_SetConfig(BASS_CONFIG_GVOL_STREAM, 2500);BASS_ChannelPlay(SoundStream, False); SoundCtrlButton := TNewButton.Create(WizardForm);SoundCtrlButton.Parent := WizardForm;SoundCtrlButton.Left := 8;SoundCtrlButton.Top := 300;SoundCtrlButton.Height - 8;SoundCtrlButton.Width := 155;SoundCtrlButton.Caption :=ExpandConstant('{cm:SoundCtrlButtonCaptionSoundOff}');SoundCtrlButton.OnClick := @SoundCtrlButtonClick;end;end; procedure DeinitializeSetup;beginBASS_Free;end; А почему нельзя Top := ScaleY(300); как и всякие координаты?Пробывал и так и эток не получается ( Edited May 28, 2014 by liked @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted May 28, 2014 Share Posted May 28, 2014 (edited) SoundCtrlButton.Height - 8; Чего-чего? З.Ы. Facepalm.jpg Edited May 28, 2014 by AtotIK @ Quote Link to comment Short link Share on other sites More sharing options...
-zav- Posted May 28, 2014 Share Posted May 28, 2014 уж это сам бы мог найти, в самом сообщении об ошибке подсказка где искатьстрока 85колонка 31 @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 28, 2014 Share Posted May 28, 2014 (edited) @liked, в строке, на которую ругается компилятор, прописано вот такое: SoundCtrlButton.Height - 8; А должно быть: SoundCtrlButton.Height:=SoundCtrlButton.Height - 8; Прежде чем писать сюда о какой-то ошибке, сначала сам найди её в коде (компилятор так и тычет туда пальцем), и подумай, что же может быть не так.. Edited May 28, 2014 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
liked Posted May 28, 2014 Share Posted May 28, 2014 Чего-чего? З.Ы. Facepalm.jpg Оригинал такой, это не я писал ) я сам удивился думал грань 0 -1 уже нету а тут есть) @liked, в строке, на которую ругается компилятор, прописано вот такое: SoundCtrlButton.Height - 8; А должно быть: SoundCtrlButton.Height:=SoundCtrlButton.Height - 8; Прежде чем писать сюда о какой-то ошибке, сначала сам найди её в коде (компилятор так и тычет туда пальцем), и подумай, что же может быть не так.. Вопрос зачем SoundCtrlButton.Height:=SoundCtrlButton.Height - 8; SoundCtrlButton.Height:= 8; всё работает) спасибо да не в внимательный я видать @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 28, 2014 Share Posted May 28, 2014 Вопрос зачем SoundCtrlButton.Height:=SoundCtrlButton.Height - 8;SoundCtrlButton.Height:= 8; всё работает) Ну, я же не знаю, что ты хотел сделать.. общую высоту формы равную 8, или высоту формы, меньше стандартной на 8. @ Quote Link to comment Short link Share on other sites More sharing options...
liked Posted May 28, 2014 Share Posted May 28, 2014 (edited) Ну, я же не знаю, что ты хотел сделать.. общую высоту формы равную 8, или высоту формы, меньше стандартной на 8. Всё получилось спасибо :) вот думаю чёб ещё прикрутить прикольного Edited May 28, 2014 by liked @ Quote Link to comment Short link Share on other sites More sharing options...
ventura69 Posted May 29, 2014 Share Posted May 29, 2014 Уважаемые, я тут порылся в паутине, но не увидел ответа на интересующий вопрос. А вопрос такой: прикрутили мы картинку (кнопку), задали процедуру на ее тык - перейти по урл-ссылке. Все замечательно, но! Эта гадость (установщик) все время подсовывает Эксплорер. А есть возможность указать, чтобы вызывался браузер, заданный в системе по умолчанию (хром, опера или еще что, стоящее у конечного пользователя)? procedure NewButton1Click(Sender: TObject);var ResCode: Integer;beginShellExec('', 'http://всякая фигня', '' , '', SW_SHOW, ewNoWait, ResCode)end; Все пишут о "браузере по умолчанию" и указывают эту процедуру. У меня по умолчанию гугль-хром, но открывается ссылка в Эксплорере. На работе, на другом компе, та же история. Что я не так прописал? @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 29, 2014 Share Posted May 29, 2014 Что я не так прописал? Всё так. Странно. @ Quote Link to comment Short link Share on other sites More sharing options...
ventura69 Posted May 30, 2014 Share Posted May 30, 2014 Всё так. Странно. Вот и я удивляюсь. Скорее всего это связано с Вин8.1 (дома стоит у меня и на рабочем компе). Только что проверил свои рабочие програмки на втором рабочем компе (там у меня Вин7 стоит) - открывает ссылку нормально в Хроме. @ Quote Link to comment Short link Share on other sites More sharing options...
liked Posted May 30, 2014 Share Posted May 30, 2014 (edited) Столкнулся с такой вот проблемой когда много модов и весят много доходит до окна выбора модов и виснет... удаляю тяжёлые моды с сборки всё ок, повисание 1-2 сек потом норм. Если пути до папок модов не прописывать! инсталлятор литает. только добавляешь пути к папкам подвисает Вот ссылка на инсталятор http://yadi.sk/d/2bACYQDLRfZWb Edited May 30, 2014 by liked @ Quote Link to comment Short link Share on other sites More sharing options...
StranikS_Scan Posted May 30, 2014 Share Posted May 30, 2014 (edited) Вот и я удивляюсь. Скорее всего это связано с Вин8.1 (дома стоит у меня и на рабочем компе). Только что проверил свои рабочие програмки на втором рабочем компе (там у меня Вин7 стоит) - открывает ссылку нормально в Хроме. Это самое, в программе твоей вызов приложения идёт через встроенную виндовскую функцию через стандартные dll-библиотеки винды. Эта функция как-то определяет какой у тебя сейчас по умолчанию браузер стоит и его и запускает. Раз она не запускает хром, значит тут два варианта, либо та функция , которую использует инно-сетап в винде устаревшая, т.е. из старых, оставленных только для совместимости винды со старыми программами и потому она уже кривая, либо в 8-ке у тебя хром как-то криво зарегистрировался в системе и не везде себя прописал браузером по умолчанию. Думаю надо сначала проверить, а как будет работать на другом компе с 8-ой и если тот же косяк, то поискать в тырнете другой вариант реализации ссылки в инно. Edited May 30, 2014 by StranikS_Scan @ Quote Link to comment Short link Share on other sites More sharing options...
liked Posted May 30, 2014 Share Posted May 30, 2014 Вот не пойму почему при наличии файлов он начинает подвисать, а когда нету файлов всё ок работает :( @ Quote Link to comment Short link Share on other sites More sharing options...
ventura69 Posted May 30, 2014 Share Posted May 30, 2014 Думаю надо сначала проверить, а как будет работать на другом компе с 8-ой и если тот же косяк, то поискать в тырнете другой вариант реализации ссылки в инно. Оки. Спасибо за инфу. Нечто подобное я и предполагал. У меня две 8.1 и на обеих такая фиговина. В восьмерке вообще проблема с администрированием, так что склонен предположить, что это персональная бяка Вин8. Если найду решение - обязательно отпишусь. Потомкам в назидание :-) @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 30, 2014 Share Posted May 30, 2014 Вот не пойму почему при наличии файлов он начинает подвисать, а когда нету файлов всё ок работает :( Какое у тебя сжатие стоит? попробуй поставить полегче. @ 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.