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

alexalsp

Новичок
Подскажите кто знает, 5 версия IS ? на больших экранах, свыше 1920х1080 смещается кнопка включения / отключения музыки в диалоговом окне во время установки. Почти на половину вылазит за диалог, такое впечатление, как будто диалоговое окно центрируется на экнане , а кнопка сама по себе в стороне.

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


Код:
 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;
 
Последнее редактирование:

nik1967

Old Men
Проверенный
Ну, и по идее, для экономии места :) - SetBounds.
Код:
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;
 

alexalsp

Новичок
sergey3695,

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

nik1967,

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

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

Спасибо.
 

санчез

Новичок
ну та
sergey3695,

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

nik1967,

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

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

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