Проблема Кнопка отмены при масштабировании(выше 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;
 

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;
Кнопка отмены или "кнопка установки уменьшается"?
 
Сверху