Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

In this Discussion

Scaling in ElButtonEdit

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

Tagged:

Comments

Sign In or Register to comment.