1. Уважаемые гости и пользователи форума.
    Администрация настоятельно рекомендует не регистрировать несколько аккаунтов для одного пользователя. При выявлении наличия мультиаккаунтов будут заблокированы все учетные записи данного пользователя.
    Аккаунты, зарегистрированные на временную почту будут также заблокированы.

Вопрос Съезжает кнопка в диалоге

Тема в разделе "Inno Setup", создана пользователем alexalsp, 27 авг 2019.

  1. Пользователь

    Регистрация:
    12 сен 2014
    Сообщения:
    7
    Симпатии:
    0
    Пол:
    Мужской
    Подскажите кто знает, 5 версия IS ? на больших экранах, свыше 1920х1080 смещается кнопка включения / отключения музыки в диалоговом окне во время установки. Почти на половину вылазит за диалог, такое впечатление, как будто диалоговое окно центрируется на экнане , а кнопка сама по себе в стороне.

    Может что то надо где то прописать ?


    Код (Text):
    1.  PlayButton:=TButton.Create(WizardForm)
    2.   with PlayButton do begin
    3.  
    4.     Parent:=WizardForm
    5.     Left:=0 //320 положение кнопки       -1
    6.     Top:=449 // 327       308
    7.     Width:=733  //размер кнопки       499
    8.     Height:=20 //
    9.     Cursor:=crHand
    10.     OnClick:=@PlayButtonOnClick
    11.     Caption:= 'O N   M U S I C    ======    ВКЛЮЧИТЬ МУЗЫКУ';  //надпись на кнопке  Включить музыку
    12.     Hint := 'Воспроизвести музыку';
    13.     ShowHint := True;
    14.  
    15.   PauseButton:=TButton.Create(WizardForm)
    16.   with PauseButton do begin
    17.     Parent:=WizardForm
    18.     Left:=0 //320 положение кнопки          -1
    19.     Top:=449 //                      308
    20.     Width:=733  //размер кнопки               499
    21.     Height:=20 //
    22.     Cursor:=crHand
    23.     OnClick:=@PauseButtonOnClick
    24.     Caption:= 'O F F   M U S I C    ======    ВЫКЛЮЧИТЬ МУЗЫКУ';  //надпись на кнопке     Выключить музыку
    25.     Hint := 'Приостановить музыку';
    26.     ShowHint := True;
    27.    end;
    28. end;
    29. end;
     
    Последнее редактирование: 28 авг 2019
  2. Ветеран Модератор

    Регистрация:
    26 июн 2011
    Сообщения:
    1.322
    Симпатии:
    860
  3. Old Men Проверенный

    Регистрация:
    17 июн 2011
    Сообщения:
    467
    Симпатии:
    444
    Пол:
    Мужской
    Ну, и по идее, для экономии места :) - SetBounds.
    Код (Inno):
    1. PlayButton:= TButton.Create(WizardForm);
    2. with PlayButton do begin
    3.   Parent:= WizardForm;
    4.   SetBounds(ScaleX(0),ScaleY(449),ScaleX(733),ScaleY(20));
    5.   Cursor:= crHand;
    6.   OnClick:= @PlayButtonOnClick;
    7.   Caption:= 'O N M U S I C ====== ВКЛЮЧИТЬ МУЗЫКУ'; //надпись на кнопке Включить музыку
    8.   Hint:= 'Воспроизвести музыку';
    9.   ShowHint:= True;
    10. end;
    11.  
    12. PauseButton:= TButton.Create(WizardForm);
    13. with PauseButton do begin
    14.   Parent:= WizardForm;
    15.   SetBounds(ScaleX(0),ScaleY(449),ScaleX(733),ScaleY(20));
    16.   Cursor:= crHand;
    17.   OnClick:= @PauseButtonOnClick;
    18.   Caption:= 'O F F M U S I C ====== ВЫКЛЮЧИТЬ МУЗЫКУ'; //надпись на кнопке Выключить музыку
    19.   Hint:= 'Приостановить музыку';
    20.   ShowHint:= True;
    21. end;
     
  4. Пользователь

    Регистрация:
    12 сен 2014
    Сообщения:
    7
    Симпатии:
    0
    Пол:
    Мужской
    sergey3695,

    Спасибо за подсказку

    nik1967,

    спасибо за полный код

    К сожалению, мало в инете осталось отзывчивых людей, аж обидно за человечество.

    Спасибо.
     
  5. Новичок

    Регистрация:
    19 мар 2019
    Сообщения:
    24
    Симпатии:
    1
    ну та
    ну так правильно это дело такое для программистов...делать репаки и.т.д. сам ты если не владеешь никакими знаниями..ты можешь только только выклянчивать у репакеров их шаблоны и по их шаблонам делать...я в том числе такой же...так что да спасибо им за это)))) раньше я даже представления даже не имел как сделать репак...а щас сам себе штопаю один за одним...в свою колеекцию. :drinks:
     

Поделиться этой страницей