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

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

Тема в разделе "Общий", создана пользователем alexalsp, 27 авг 2019.

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

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

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


    Код (Text):
     PlayButton:=TButton.Create(WizardForm)
      with PlayButton do begin
     
        Parent:=WizardForm
        Left:=0 //320 положение кнопки       -1
        Top:=449 // 327       308
        Width:=733  //размер кнопки       499
        Height:=20 //
        Cursor:=crHand
        OnClick:=@PlayButtonOnClick
        Caption:= 'O N   M U S I C    ======    ВКЛЮЧИТЬ МУЗЫКУ';  //надпись на кнопке  Включить музыку
        Hint := 'Воспроизвести музыку';
        ShowHint := True;

      PauseButton:=TButton.Create(WizardForm)
      with PauseButton do begin
        Parent:=WizardForm
        Left:=0 //320 положение кнопки          -1
        Top:=449 //                      308
        Width:=733  //размер кнопки               499
        Height:=20 //
        Cursor:=crHand
        OnClick:=@PauseButtonOnClick
        Caption:= 'O F F   M U S I C    ======    ВЫКЛЮЧИТЬ МУЗЫКУ';  //надпись на кнопке     Выключить музыку
        Hint := 'Приостановить музыку';
        ShowHint := True;
       end;
    end;
    end;
     
    Последнее редактирование: 28 авг 2019
  2. Ветеран Модератор

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

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

    PauseButton:= TButton.Create(WizardForm);
    with PauseButton do begin
      Parent:= WizardForm;
      SetBounds(ScaleX(0),ScaleY(449),ScaleX(733),ScaleY(20));
      Cursor:= crHand;
      OnClick:= @PauseButtonOnClick;
      Caption:= 'O F F M U S I C ====== ВЫКЛЮЧИТЬ МУЗЫКУ'; //надпись на кнопке Выключить музыку
      Hint:= 'Приостановить музыку';
      ShowHint:= True;
    end;
     
  4. Пользователь

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

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

    nik1967,

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

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

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

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

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