This forum is temporaily read-only. All existing discussions remain available for reference. For new questions, bug reports or support requests, please contact us at mail@lmdsupport.com.
Improve TCustomElToolBar.ChangeScale
Please add following lines to above methode to get better Scaling-Experience
BtnHeight := MulDiv(BtnHeight, M, D);
BtnWidth := MulDiv(BtnWidth, M, D);
LargeBtnWidth := MulDiv(LargeBtnWidth, M, D);
LargeBtnHeight := MulDiv(LargeBtnHeight, M, D);
And please check the line:
Height := Height - MulDiv(BtnHeight, M-D, D);
It doesn't make much sense for me.
BtnHeight := MulDiv(BtnHeight, M, D);
BtnWidth := MulDiv(BtnWidth, M, D);
LargeBtnWidth := MulDiv(LargeBtnWidth, M, D);
LargeBtnHeight := MulDiv(LargeBtnHeight, M, D);
And please check the line:
Height := Height - MulDiv(BtnHeight, M-D, D);
It doesn't make much sense for me.
Comments