Resizing TSpinEdit and Right justify is a problem

[flaza]

Hi,

I"m using Lazarus 3.4 with ftp 3.2.2 on Windows 10. I use 2 TSpinEdit components vertical aligned and I want the numbers right aligned. See the picture Right justify with increased width.png. With the default height and fontsize it works fine. But then I want set the fontsize to 18 the numbers are partly hidden behind the UpDown buttons of the component, see picture Right justify with Autosize and fontsize 18.png.
Is there away to solve this problem? Or is this a bug? Or is it the widgetset that is responsible?

Thx for your time.

[Bart]

Not sure.
You could try if TSpinEditEx behaves better in this respect.

Bart

[wp]

TSpinEditEx works as expected. However, the button width remains too narrow. There is property BuddyWidth, but this is proteced. You can subclass the control to get access to the protected property:

Code: Pascal  [Select][+][-]

1. type
2.   TSpinEditExOpener = class(TSpinEditEx)
3.   public
4.     property BuddyWidth;
5.   end;
6.  
7. procedure TForm1.FormCreate(Sender: TObject);
8. begin
9.   TSpinEditExOpener(SpinEditEx1).BuddyWidth := 40;
10. end;

Maybe the property should be published here as "ButtonWidth" like with TFileNameEdit, so that the user has full and easy access.

[flaza]

Thx for the solutions, it works fine.

[Bart]

Maybe the property should be published here as "ButtonWidth" like with TFileNameEdit, so that the user has full and easy access.

Yes, probably a good idea to expose this to the user.
Maybe a bit better name: SpinButtonWidth?

Feel free to implement it, or assign a feature request in the bugtracker to me.

Bart

[wp]

Committed a version of TSpinEditEx and TFloatSpinEditEx which as a new published property SpinButtonWidth