Scaling in ElButtonEdit

BernhardGeyer

Hi,

we change code in TCustomElButtonEdit.ChangeScale to avoid to small with of Drop-Down-Button (for older ElPack-Version) to

procedure TCustomElButtonEdit.ChangeScale(M, D: Integer);
begin
  inherited;

  if Assigned(FAltButton) then
  begin
    if FAltButtonPropHelper.FAltButtonWidth = -1 then
      FAltButton.Width := GetSystemMetrics(SM_CXVSCROLL)
    else
      FAltButton.Width := FAltButtonPropHelper.FAltButtonWidth;
  end;
  if FButtonWidth = -1 then
    FButton.Width := GetSystemMetrics(SM_CXVSCROLL)
  else
    FButton.Width := FButtonWidth;
end;

Please check if this is also needed for new version of ElPack

Rafael Maricca (LMD)

Change is included in current codebase.