Проблема Кнопка отмены при масштабировании(выше 100) уменьшается.

[Yaroslav950]

Наткнулся на проблему. При высоком масштабировании кнопка установки уменьшается.
procedure CreateControls;
begin
MyCancelButton:=TButton.Create(WizardForm);
with MyCancelButton do begin
Parent:=WizardForm;
Width:=ScaleX(80);
Caption:=ExpandConstant('{cm:CancelButton}');
Left:=ScaleX(550);
Top:=WizardForm.cancelbutton.top;
OnClick:=@CancelButtonOnClick;
end;
end;

 

[Andreo Fadio]

@Yaroslav950, задавайте параметр: Height:= ScaleY(число);

 

[Crachlow]

Наткнулся на проблему. При высоком масштабировании кнопка установки уменьшается.
procedure CreateControls;
begin
MyCancelButton:=TButton.Create(WizardForm);
with MyCancelButton do begin
Parent:=WizardForm;
Width:=ScaleX(80);
Caption:=ExpandConstant('{cm:CancelButton}');
Left:=ScaleX(550);
Top:=WizardForm.cancelbutton.top;
OnClick:=@CancelButtonOnClick;
end;
end;

Кнопка отмены или "кнопка установки уменьшается"?

 

[Yaroslav950]

@Yaroslav950, задавайте параметр: Height:= ScaleY(число);

Короче добавил Height :=WizardForm.cancelbutton.height;
Вроде бы заработало. Проверил при 175% - Норм.

 

[Crachlow]

Ок.