#ifdef IS_ENHANCED
TBrushKind = (bkNone, bkSolid, bkGradient, bkBitmap, bkResource);
#endif
#if VER < 0x06000000
#ifdef IS_ENHANCED
TBrushKind = (bkNone, bkSolid, bkGradient, bkBitmap, bkResource);
#endif
#endif
Под эту версию никто не подстраивался. Но она распознается как китайская из-за индификатора (но чего-то здесь нет как в китайской, а что-то работает иначе, а что-то работает также)Так я использовал не расширенную, а обычную 6.2.2 и всё работало.
в стандартной нет - IS_ENHANCEDПолучается, что стандартная 6.2.2 просто игнорировала этот фрагмент кода?
Заменил CenterInsideControl на FlipSizeAndCenterIfNeeded и компилятор выдаёт ошибку: Invalid number of parameters.в 6 версии данная функция заменена на FlipSizeAndCenterIfNeeded
procedure DirBrowseButtonClick(Sender: TObject); //
begin //
DirBrowseForm := CreateCustomForm(); // ФОРМА
with DirBrowseForm do begin //
ClientWidth := ScaleX(349); //
ClientHeight := ScaleY(337); //
BorderStyle := bsSingle; //
BorderIcons := [biSystemMenu]; //
FlipSizeAndCenterIfNeeded(WizardForm, False); //
Caption := CustomMessage('BrowseForFolder');
onClose :=@FormCloseDir; //
там используется на 1 дополнительно параметр большеFlipSizeAndCenterIfNeeded(WizardForm, False);
FlipSizeAndCenterIfNeeded(True, WizardForm, False);
Вот, это поворот. Работает. Спасибо!там используется на 1 дополнительно параметр больше
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure LangChange(Sender : TObject); //
var //
i : integer; //
//-------------------------------------------------------------------------------------------------------------//
begin //
i := SelectLanguageForm.LangCombo.ItemIndex; //
case TNewComboBox(Sender).ItemIndex of //
0: begin //
with SelectLanguageForm do begin //
SelectLabel.Caption := 'Select the language to use during the installation:'; //
CancelButton.Caption := 'Cancel'; //
Caption := 'Select Setup Language'; //
end; //
end; //
//-------------------------------------------------------------------------------------------------------------//
1: begin //
with SelectLanguageForm do begin //
SelectLabel.Caption := 'Выберите язык, который будет использован в процессе установки:'; //
CancelButton.Caption := 'Отмена'; //
Caption := 'Выберите язык установки'; //
end; //
end; //
end; //
end; //
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
можно ее не задействовать, а сделать иначе...С этим бы ещё "SelectLanguageForm" проблемка решилась и нормально бы было.
Вроде работает. Но там всё так понакручено. Не пойму что именно к форме окна там нужно, а что лишнее.можно ее не задействовать, а сделать иначе...
можно не использовать... А переделать на сам расширенный innoНу botva2.dll понятно нужна.
функционал можно перенести на сам Inno Setup, а если botva2.dll не используется то не нужен.А CallbackCtrl.dll
не нужно... отрабатывается самой расширенной Inno Setup читаем readme от автора в комплекте как задействовать.WinTBP.dll со скриптом
нужен для перезапуска.скрипт ExecAndWait.iss
да, отрабатывается самим расширенным innoVclStyles.dll лишнее.
вот к примеру так (все связанное с формой выбора перенесено в отдельный скрипт, чтобы вам видно было что адаптировать в своем скрипте):не висело подскажите пожалуйста
Спасибо. Так более менее понятней.вот к примеру так (все связанное с формой выбора перенесено в отдельный скрипт, чтобы вам видно было что адаптировать в своем скрипте):
на эту кнопку работает фокусировка, а то что эффект наведения и эффект выделения одно и тоже - это уже скин сам такой.то уже при наведении курсора кнопки Далее, Установить, Завершить...
В окошке выбора языка в левом верхнем углу отсутствует значок, название и версия программы.вот к примеру так (все связанное с формой выбора перенесено в отдельный скрипт, чтобы вам видно было что адаптировать в своем скрипте):
В окошке выбора языка в левом верхнем углу отсутствует значок, название и версия программы.
Подскажите пожалуйста как вернуть это всё обратно.
Теперь нормально. Спасибо.вот так, заменить файл LangForm.iss:
Хотел попросить ещё помочь с этими скинами.на эту кнопку работает фокусировка, а то что эффект наведения и эффект выделения одно и тоже - это уже скин сам такой.